2005-08-26 18:29:39 +00:00
|
|
|
unit UnitfrmAllFilesForm;
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
|
|
|
|
StdCtrls, ExtCtrls, Forms, TBXDkPanels, SpTBXDkPanels, mbTBXListBox,
|
2006-03-06 19:47:22 +00:00
|
|
|
mbTBXCheckListBox, SpTBXControls;
|
2005-08-26 18:29:39 +00:00
|
|
|
|
|
|
|
|
type
|
|
|
|
|
TfrmAllFilesForm = class(TForm)
|
|
|
|
|
lblCaption: TLabel;
|
|
|
|
|
lstFiles: TmbTBXCheckListBox;
|
|
|
|
|
cmdOK: TSpTBXButton;
|
|
|
|
|
cmdCancel: TSpTBXButton;
|
|
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
frmAllFilesForm: TfrmAllFilesForm;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
{$R *.DFM}
|
|
|
|
|
|
|
|
|
|
procedure TfrmAllFilesForm.FormShow(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
lstFiles.SetFocus;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|
