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

Fix a weird rendering issue on Windows Vista.

Browse Source
This commit is contained in:
rosenfield.albert
2008-06-24 10:56:33 +00:00
parent ef0be0be5b
commit 1b2fd65ed2
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/fieldeditor.pas
View File

@ -1106,8 +1106,18 @@ procedure TFieldEditForm.ComboBoxTypeDrawItem(Control: TWinControl; Index:
Integer; Rect: TRect; State: TOwnerDrawState);
var
s: string;
osVerInfo: TOSVersionInfo;
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;
// decide colors
Brush.Color := clWindow;
Font.Color := clWindowText;