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

Issue #2155: high DPI fix for painting icons in SQL export target drop-down

Browse Source
This commit is contained in:
Ansgar Becker
2025-05-13 19:00:05 +02:00
parent d2471e663c
commit e39e95e23d
2 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/tabletools.lfm
View File

@ -672,10 +672,11 @@ object frmTableTools: TfrmTableTools
BorderSpacing.Around = 6 BorderSpacing.Around = 6
DropDownCount = 16 DropDownCount = 16
ItemHeight = 20 ItemHeight = 20
Style = csOwnerDrawFixed Style = csOwnerDrawVariable
TabOrder = 6 TabOrder = 6
OnChange = comboExportOutputTypeChange OnChange = comboExportOutputTypeChange
OnDrawItem = comboExportOutputTypeDrawItem OnDrawItem = comboExportOutputTypeDrawItem
OnMeasureItem = comboExportOutputTypeMeasureItem
end end
object comboExportOutputTarget: TComboBox object comboExportOutputTarget: TComboBox
AnchorSideLeft.Control = tabSQLexport AnchorSideLeft.Control = tabSQLexport

17
source/tabletools.pas
View File

@ -102,8 +102,6 @@ type
editGenerateDataNumRows: TEdit; editGenerateDataNumRows: TEdit;
lblGenerateDataNullAmount: TLabel; lblGenerateDataNullAmount: TLabel;
editGenerateDataNullAmount: TEdit; editGenerateDataNullAmount: TEdit;
procedure comboExportOutputTypeDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure btnHelpMaintenanceClick(Sender: TObject); procedure btnHelpMaintenanceClick(Sender: TObject);
@ -156,6 +154,10 @@ type
procedure editDatabaseTableFilterKeyPress(Sender: TObject; var Key: Char); procedure editDatabaseTableFilterKeyPress(Sender: TObject; var Key: Char);
procedure editDatabaseTableFilterRightButtonClick(Sender: TObject); procedure editDatabaseTableFilterRightButtonClick(Sender: TObject);
procedure timerCalcSizeTimer(Sender: TObject); procedure timerCalcSizeTimer(Sender: TObject);
procedure comboExportOutputTypeDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState);
procedure comboExportOutputTypeMeasureItem(Control: TWinControl;
Index: Integer; var AHeight: Integer);
const const
StatusMsg = '%s %s ...'; StatusMsg = '%s %s ...';
private private
@ -374,8 +376,15 @@ begin
end; end;
Canv.FillRect(ARect); Canv.FillRect(ARect);
Canv.TextRect(ARect, ARect.Left + MainForm.VirtualImageListMain.Width + 4, ARect.Top, comboExportOutputType.Items[Index]); Canv.TextRect(ARect, ARect.Left + Scale96ToForm(MainForm.VirtualImageListMain.Width) + 4, ARect.Top, comboExportOutputType.Items[Index]);
MainForm.VirtualImageListMain.Draw(Canv, ARect.Left + 2, ARect.Top + 2, ItemImageIndex); MainForm.VirtualImageListMain.DrawForControl(Canv, ARect.Left + 2, ARect.Top + 2, ItemImageIndex, MainForm.VirtualImageListMain.Width, comboExportOutputType);
end;
procedure TfrmTableTools.comboExportOutputTypeMeasureItem(Control: TWinControl;
Index: Integer; var AHeight: Integer);
begin
AHeight := Scale96ToForm(MainForm.VirtualImageListMain.Height) + 2;
end; end;