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

Switch from yellow selected but unfocused cells to light blue background + black foreground. Hopefully fits somehow with most customized system colors.

Browse Source
This commit is contained in:
Ansgar Becker
2008-10-21 19:07:22 +00:00
parent 3596975672
commit dd306fbc64
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/childwin.pas
View File

@ -5676,6 +5676,8 @@ begin
// Do not apply any color on a selected, highlighted cell to keep readability // Do not apply any color on a selected, highlighted cell to keep readability
if (Node = Sender.FocusedNode) and (Column = Sender.FocusedColumn) then if (Node = Sender.FocusedNode) and (Column = Sender.FocusedColumn) then
cl := clHighlightText cl := clHighlightText
else if vsSelected in Node.States then
cl := clBlack
// Numeric field // Numeric field
else if r.Columns[Column].isInt or r.Columns[Column].isFloat then else if r.Columns[Column].isInt or r.Columns[Column].isFloat then
if isNull then cl := prefNullColorNumeric else cl := prefFieldColorNumeric if isNull then cl := prefNullColorNumeric else cl := prefFieldColorNumeric
@ -6430,7 +6432,7 @@ begin
TargetCanvas.Brush.Color := clHighlight; TargetCanvas.Brush.Color := clHighlight;
TargetCanvas.FillRect(CellRect); TargetCanvas.FillRect(CellRect);
end else if vsSelected in Node.States then begin end else if vsSelected in Node.States then begin
TargetCanvas.Brush.Color := clInfoBk; TargetCanvas.Brush.Color := clSkyBlue;
TargetCanvas.FillRect(CellRect); TargetCanvas.FillRect(CellRect);
end; end;
end; end;