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

Now with even more effort to use the right names amongst a myriad of ill-explained and logically incoherent bundles of random color enumeration.

Browse Source
This commit is contained in:
rosenfield.albert
2008-06-23 18:06:54 +00:00
parent 167f7529ad
commit cf7859a131
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/fieldeditor.pas
View File

@ -1101,10 +1101,13 @@ begin
// decide colors
Brush.Color := clWindow;
Font.Color := clWindowText;
if IsCategory(Index) or (odSelected in State) then begin
if IsCategory(Index) then begin
Font.Color := clWindow;
if IsCategory(Index) then Brush.Color := clWindowText
else if odSelected in State then Brush.Color := clHighlight;
Brush.Color := clWindowText
end
else if odSelected in State then begin
Font.Color := clHighlightText;
Brush.Color := clHighlight;
end;
// fill the rectangle first
FillRect(Rect);