Generic form with a checklistbox for selecting items

git-svn-id: trunk@28073 -
This commit is contained in:
juha 2010-11-04 13:12:29 +00:00
parent e50753b288
commit 1d2770f40f
3 changed files with 73 additions and 0 deletions

2
.gitattributes vendored
View File

@ -3710,6 +3710,8 @@ ide/frames/window_options.lfm svneol=native#text/plain
ide/frames/window_options.pas svneol=native#text/pascal
ide/frmcustomapplicationoptions.lfm svneol=native#text/plain
ide/frmcustomapplicationoptions.pas svneol=native#text/plain
ide/genericchecklist.lfm svneol=native#text/plain
ide/genericchecklist.pas svneol=native#text/plain
ide/genericlisteditor.lfm svneol=native#text/plain
ide/genericlisteditor.pas svneol=native#text/plain
ide/gotofrm.lfm svneol=native#text/plain

39
ide/genericchecklist.lfm Normal file
View File

@ -0,0 +1,39 @@
object GenericCheckListForm: TGenericCheckListForm
Left = 452
Height = 301
Top = 526
Width = 343
Caption = 'GenericCheckListForm'
ClientHeight = 301
ClientWidth = 343
Position = poScreenCenter
LCLVersion = '0.9.29'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 261
Width = 331
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
HelpButton.Enabled = False
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Cancel'
TabOrder = 0
ShowButtons = [pbOK, pbCancel]
end
object CheckListBox1: TCheckListBox
Left = 0
Height = 255
Top = 0
Width = 343
Align = alClient
ItemHeight = 0
TabOrder = 1
TopIndex = -1
end
end

32
ide/genericchecklist.pas Normal file
View File

@ -0,0 +1,32 @@
unit GenericCheckList;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
StdCtrls, CheckLst;
type
{ TGenericCheckListForm }
TGenericCheckListForm = class(TForm)
ButtonPanel1: TButtonPanel;
CheckListBox1: TCheckListBox;
private
public
end;
var
GenericCheckListForm: TGenericCheckListForm;
implementation
{$R *.lfm}
end.