mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-02 21:07:35 +01:00
Generic form with a checklistbox for selecting items
git-svn-id: trunk@28073 -
This commit is contained in:
parent
e50753b288
commit
1d2770f40f
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -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
39
ide/genericchecklist.lfm
Normal 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
32
ide/genericchecklist.pas
Normal 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.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user