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' Caption = 'VpImportPreviewForm'
ClientHeight = 295 ClientHeight = 295
ClientWidth = 634 ClientWidth = 634
LCLVersion = '2.3.0.0'
object ButtonPanel: TPanel object ButtonPanel: TPanel
Left = 6 Left = 6
Height = 25 Height = 25

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

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