Added AMXX-Studio to CVS
This commit is contained in:
31
editor/studio/UnitfrmAllFilesForm.pas
Executable file
31
editor/studio/UnitfrmAllFilesForm.pas
Executable file
@ -0,0 +1,31 @@
|
||||
unit UnitfrmAllFilesForm;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, TBXDkPanels, SpTBXDkPanels, mbTBXListBox,
|
||||
mbTBXCheckListBox;
|
||||
|
||||
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.
|
Reference in New Issue
Block a user