opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Enhance position and size of checkboxes in printer dialog. Some captions were cut, especially when you call the dialog for the command stats list.

Browse Source
This commit is contained in:
Ansgar Becker
2007-12-14 20:28:41 +00:00
parent 2e859faf5e
commit bb76a60abb
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/printlist.dfm
View File

@ -52,7 +52,7 @@ object printlistForm: TprintlistForm
Caption = 'Print what...' Caption = 'Print what...'
TabOrder = 2 TabOrder = 2
object chkAllColumns: TCheckBox object chkAllColumns: TCheckBox
Left = 16 Left = 10
Top = 24 Top = 24
Width = 97 Width = 97
Height = 17 Height = 17

7
source/printlist.pas
View File

@ -107,17 +107,18 @@ begin
chk.Caption := list.Header.Columns[i].Text; chk.Caption := list.Header.Columns[i].Text;
chk.Checked := True; chk.Checked := True;
chk.Enabled := False; chk.Enabled := False;
chk.Width := 125;
if chkCount mod 2 = 0 then begin if chkCount mod 2 = 0 then begin
inc(chkTop); inc(chkTop);
chk.Left := 16; chk.Left := 10;
end else end else
chk.Left := 130; chk.Left := 140;
chk.Top := chkTop * chkHeight; chk.Top := chkTop * chkHeight;
chk.Tag := 1; chk.Tag := 1;
inc(chkCount); inc(chkCount);
end; end;
Height := boxColumns.Top Height := boxColumns.Top
+ (3 * chkHeight) // "All columns checkbox + space + (4 * chkHeight) // "All columns checkbox + space
+ (Height - boxColumns.Top - boxColumns.Height) // Bottom rest + (Height - boxColumns.Top - boxColumns.Height) // Bottom rest
+ (Ceil(chkCount/2) * chkHeight); // Height of generated checkboxes + (Ceil(chkCount/2) * chkHeight); // Height of generated checkboxes
Screen.Cursor := crDefault; Screen.Cursor := crDefault;