pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Add "check/uncheck all" checkbox to header of the grid in the import preview form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8399 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-19 21:32:56 +00:00
parent a430be7bcf
commit 2062b0bb22
6 changed files with 167 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
components/tvplanit/source/vpimportpreview.lfm
View File

@ -2,68 +2,26 @@ object VpImportPreviewForm: TVpImportPreviewForm
Left = 327
Height = 295
Top = 127
Width = 603
Width = 634
Caption = 'VpImportPreviewForm'
ClientHeight = 295
ClientWidth = 603
LCLVersion = '2.3.0.0'
object Grid: TDrawGrid
Left = 0
Height = 258
Top = 0
Width = 603
Align = alClient
AutoFillColumns = True
ColCount = 3
Columns = <
item
Alignment = taCenter
ButtonStyle = cbsCheckboxColumn
SizePriority = 0
Title.Caption = ''
Width = 33
end
item
ReadOnly = True
Title.Caption = 'Title'
Width = 410
end
item
ButtonStyle = cbsPickList
SizePriority = 0
Title.Caption = 'Title'
Width = 160
end>
ExtendedSelect = False
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goSmoothScroll]
TabOrder = 0
OnDrawCell = GridDrawCell
OnGetCheckboxState = GridGetCheckboxState
OnPrepareCanvas = GridPrepareCanvas
OnSetCheckboxState = GridSetCheckboxState
ColWidths = (
33
410
160
)
end
ClientWidth = 634
object ButtonPanel: TPanel
Left = 6
Height = 25
Top = 264
Width = 591
Width = 622
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 591
TabOrder = 1
ClientWidth = 622
TabOrder = 0
object btnExecute: TButton
AnchorSideTop.Control = ButtonPanel
AnchorSideRight.Control = btnCancel
Left = 375
Left = 406
Height = 25
Top = 0
Width = 141
@ -77,7 +35,7 @@ object VpImportPreviewForm: TVpImportPreviewForm
AnchorSideTop.Control = ButtonPanel
AnchorSideRight.Control = ButtonPanel
AnchorSideRight.Side = asrBottom
Left = 516
Left = 547
Height = 25
Top = 0
Width = 75