[lnkForumImage]
TotalShareware - Download Free Software
Confronta i prezzi di migliaia di prodotti.
Asp Forum
 Home | Login | Register | Search 


 

Forums >

ntu-kpi.comp.programming

[q] Delphi. Create new component.

Alex I. Varyanick

4/28/2005 7:04:00 PM

type
TAttrKind = (maReadOnly, maHidden, maSysFile, maVolumeID, maDirectory, maArchive);
TAttr = set of TAttrKind;
TMyShellListView = class(TListView)
private
FDirectory : String;
FAttr : TAttr;
FDirLabel : TStaticText;
{ Private declarations }
protected
procedure SetDirectory(Value : String); virtual;
procedure SetFAttr(Value : TAttr); virtual;
procedure SetDirLabel(Value : TStaticText); virtual;
procedure SetDirLabelCaption;
procedure KeyPress(var Key: Char); override;
procedure DblClick; override;
procedure OpenCurrent; virtual;
{ Protected declarations }
public
procedure Refresh;
{ Public declarations }
published
property FileAttr : TAttr read FAttr write SetFAttr default [maReadOnly, maHidden, maSysFile, maVolumeID, maDirectory, maArchive];
property Directory : String read FDirectory write SetDirectory;
property DirLabel : TStaticText read FDirLabel write SetDirLabel;
{ Published declarations }
end;
<SKIPPED>

?OIAIAIA ?ON ? OII, ?OI EAEIA AU N IA OOOAIA?IE?AI UIA?AIEA ?I OIII?AIEA
(default), III ?I?AIO-OI IA OOA?EOON... O.A. oEII?EIE? UOIO EII?IIAIO E
?IIIOE? ACI IA ?IOIO O IAIN ? EIO?AEOIOA IA?AEOI? property FileAttr=[];
÷UOOA?INN AI?OOOEI maDirectory OOAUO OA ?UUU?AAO IAOIA SetFAttr E N ?
ListView ?IIO?AA O?EOIE AEOAEOIOEE, _II!_ eICAA N UA?OOEAA ?OICOAIIO, OI
UIA?AIEA ?II?O OAOAOU?AAOON E []. e IA IOIAOAOAAO OAIAAIUE AEOAEOIOEE.

?AOA?OIAI?AI ?I?OE ?OA ?AOEAAEE UIA?AIEE ?I OIII?AIEA. oAIAAIIA UIA?AIEA
EIIA?II [maDirectory], II O IEI OAE-OA ?OA IA OAAIOAAO...

iIOAO EOI IAOOO?AI IA OAEEA COAAIE EIE UIAAO CAA EIAIII O IAIN OOEE
EOE?UA...

PS. uAOAIAA o?AOEAI!



--
Alex I. Varyanik cono@trinity.ntu-kpi.kiev.ua
ftp://cono.trinity.ntu-k...
ICQ:102575440