文章两篇:
----------------------------------------------------------------------------
luo73
1。安装包裹
V1.54所有包(120个zip)没有必要一个一个安装,只要安装了MCK.ZIP和KOF.ZIP就可以做很多事情了。其他的包裹选择安装,一般的安装方法是将解压后对应的*.PAS考到KOF所在的文件夹,然后再单元中引用就行了。
如:使用kolgif的话,考kolgif.PAS到KOF所在的文件夹后,在你的单元中USES 的{$IFNDEF KOL_MCK} 之前加上",KolGif",这样你就可以在PUBLIC段定义你的对象FGif了,对应的代码如下(详细参考KolGifDemo):
.......
uses Windows, Messages, ShellAPI, KOL , KolGif{$IFNDEF KOL_MCK}, mirror, Classes,
Controls, mckCtrls, mckObjs {$ENDIF};
.......
PUBLIC
{$IFDEF GIFDECODERONLY}
FGif: PGifDecoder;
{$ELSE}
FGif: PGif;
{$ENDIF}
.........
-----------------------
以上安装说明,很多包中提供的控件都是INVISIBLE的类,没有提供Mirror Class,这也就是KOF&MCK的精华所在吧。
注意哟:KOF的类一般是P打头的。如果你要开发三方KOF控件,最好也按此约定。
-----------------------------------------------------------------------------
777kkk
2。KOL的时间显示设置技巧
我们知道,在DELPHI中显示当前日期、时间(24类型时、分、秒),
如2002-10-18 13:17:25的时间的格式一般为:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=FormatDateTime(‘yyyy"-"mm"-"dd ‘ +‘" " hh:mm:ss‘, StrToDateTime(DateTimeToStr(now)));
end;
而在KOL里则是这样显示的:
procedure TForm1.Timer1Timer(Sender: PObj);
begin
Label1.Caption :=DateTime2StrShort(now)+Time2StrFmt(‘:ss‘,now);
//24时间制,如2002-10-18 13:17:25
end;
其它时间类型的设置:
1,在KOL里显当前12时制时间(时、分、秒),如10:45:20 ,可以这样设置:
procedure TForm1.Timer1Timer(Sender: PObj);
begin
Label1.Caption :=Time2StrFmt(‘hh:mm:ss‘,now);
end;
2,在KOL里显示当前日期与24时制时间(时、分)
如 2002-10-18 13:23 可以这样设置:
procedure TForm1.Timer1Timer(Sender: PObj);
begin
Label1.Caption := DateTime2StrShort(now);
end;
3,在KOL里显示当前日期(年,月,日)
如 2002-10-18 可以这样设置:
procedure TForm1.Timer1Timer(Sender: PObj);
begin
Label1.Caption :=Date2StrFmt(‘yyyy‘+‘-‘+‘M‘+‘-‘+‘D‘,now);
end;
先写到这里吧,希望大家交流!