opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Use some other enumerations for colors.

Browse Source
This commit is contained in:
rosenfield.albert
2008-06-23 17:58:03 +00:00
parent 83025528bd
commit 167f7529ad
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/fieldeditor.pas
View File

@@ -1099,12 +1099,12 @@ var
begin
with Control as TComboBox,Canvas do begin
// decide colors
Brush.Color := clWhite;
Font.Color := clBlack;
Brush.Color := clWindow;
Font.Color := clWindowText;
if IsCategory(Index) or (odSelected in State) then begin
Font.Color := clWhite;
if IsCategory(Index) then Brush.Color := clBlack
else if odSelected in State then Brush.Color := clBlue
Font.Color := clWindow;
if IsCategory(Index) then Brush.Color := clWindowText
else if odSelected in State then Brush.Color := clHighlight;
end;
// fill the rectangle first
FillRect(Rect);