mirror of
https://github.com/rejetto/hfs2.git
synced 2025-12-19 18:13:46 +01:00
35 lines
651 B
ObjectPascal
35 lines
651 B
ObjectPascal
unit folderKindDlg;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, Buttons, strUtils, ExtCtrls;
|
|
|
|
type
|
|
TfolderKindFrm = class(TForm)
|
|
realLbl: TLabel;
|
|
virtuaLbl: TLabel;
|
|
realBtn: TBitBtn;
|
|
virtuaBtn: TBitBtn;
|
|
Label3: TLabel;
|
|
hintLbl: TLabel;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfolderKindFrm.FormCreate(Sender: TObject);
|
|
begin
|
|
realBtn.Font.Style:=[fsBold];
|
|
with hintLbl do caption:=ansiReplaceStr(caption,'? ','?'#13);
|
|
end;
|
|
|
|
end.
|