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

tvplanit: Fix column widths in import preview grid.

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

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

@ -6,6 +6,7 @@ object VpImportPreviewForm: TVpImportPreviewForm
Caption = 'VpImportPreviewForm'
ClientHeight = 295
ClientWidth = 634
LCLVersion = '2.3.0.0'
object ButtonPanel: TPanel
Left = 6
Height = 25

13
components/tvplanit/source/vpimportpreview.pas
View File

@ -130,29 +130,30 @@ begin
with FGrid do
begin
Align := alClient;
AutoFillColumns := true;
Parent := self;
Columns.Clear;
with Columns.Add do
begin
Alignment := taCenter;
ButtonStyle := cbsCheckboxColumn;
SizePriority := 0;
Title.Caption := '';
Width := 10; //33;
SizePriority := 0;
Width := 33;
end;
with Columns.Add do
begin
ReadOnly := true;
SizePriority := 2;
SizePriority := 1;
Title.Caption := '';
end;
with Columns.Add do
begin
ButtonStyle := cbsPickList;
SizePriority := 0;
Title.Caption := '';
SizePriority := 0;
Width := 160;
end;
AutoFillColumns := true;
ExtendedSelect := false;
FixedCols := 0;
Options := [goEditing, goRowSelect, goThumbTracking,
@ -162,7 +163,7 @@ begin
OnGetCheckboxState := @GridGetCheckboxState;
OnPrepareCanvas := @GridPrepareCanvas;
OnSetCheckboxState := @GridSetCheckboxState;
Parent := self;
//Parent := self;
end;
FItems := TFPList.Create;