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...'
TabOrder = 2
object chkAllColumns: TCheckBox
Left = 16
Left = 10
Top = 24
Width = 97
Height = 17

7
source/printlist.pas
View File

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