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

* Bugfix: column type dropdown was rendered incorrectly with non-default font dpi configurations. Fixes issue #615.

Browse Source 
* Commented code that shows how to get current DPI.  Feel free to delete.
This commit is contained in:
rosenfield.albert
2008-08-07 23:55:13 +00:00
parent bf24403596
commit 071e68c598
1 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
source/fieldeditor.pas
View File

@ -1101,18 +1101,19 @@ procedure TFieldEditForm.ComboBoxTypeDrawItem(Control: TWinControl; Index:
Integer; Rect: TRect; State: TOwnerDrawState);
var
s: string;
osVerInfo: TOSVersionInfo;
{*dc: HDC;
dpi: Integer;*}
begin
with Control as TComboBox,Canvas do begin
// fix for a weird Vista issue
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo) ;
if GetVersionEx(osVerInfo) then begin
if osVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then begin
if osVerInfo.dwMajorVersion = 6 then begin
Font.Size := 6;
end;
end;
end;
// custom DPI support
{*
// not useful unless SetDPIAware() is issued.
dc := GetDC(MainForm.Handle);
dpi := GetDeviceCaps(dc, LOGPIXELSX);
ReleaseDC(MainForm.Handle, dc);
Font.PixelsPerInch := dpi;
*}
Font.PixelsPerInch := 96;
// decide colors
Brush.Color := clWindow;
Font.Color := clWindowText;