diff --git a/source/fieldeditor.pas b/source/fieldeditor.pas
index e8734264..464c8efe 100644
--- a/source/fieldeditor.pas
+++ b/source/fieldeditor.pas
@@ -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;