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

Issue #1906: add preference option for grayscale/color icons on inactive tabs

Browse Source
This commit is contained in:
Ansgar Becker
2024-02-10 15:37:21 +01:00
parent 8f099dcfe2
commit 04c2d949a0
5 changed files with 47 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/extra_controls.pas
View File

@ -422,22 +422,32 @@ class procedure TExtForm.PageControlTabHighlight(PageControl: TPageControl);
var
i, CurrentImage, CountOriginals: Integer;
Images: TVirtualImageList;
GrayscaleMode: Integer;
IsQueryTab, DoGrayscale: Boolean;
begin
// Set grayscale icon on inactive tabs
if not (PageControl.Images is TVirtualImageList) then
Exit;
GrayscaleMode := AppSettings.ReadInt(asTabIconsGrayscaleMode);
Images := PageControl.Images as TVirtualImageList;
CountOriginals := Images.ImageCollection.Count;
for i:=0 to PageControl.PageCount-1 do begin
CurrentImage := PageControl.Pages[i].ImageIndex;
if PageControl.ActivePageIndex = i then begin
if CurrentImage >= CountOriginals then
if CurrentImage >= CountOriginals then begin
// Grayscaled => Color
PageControl.Pages[i].ImageIndex := CurrentImage - CountOriginals;
end;
end
else begin
if CurrentImage < CountOriginals then
PageControl.Pages[i].ImageIndex := CurrentImage + CountOriginals;
if CurrentImage < CountOriginals then begin
// Color => Grayscaled
IsQueryTab := (PageControl.Owner.Name = 'MainForm') and ExecRegExpr('^tabQuery\d*$', PageControl.Pages[i].Name);
if ((GrayscaleMode = 1) and IsQueryTab) or (GrayscaleMode = 2) then
PageControl.Pages[i].ImageIndex := CurrentImage + CountOriginals;
end;
end;
end;
end;