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

Highlight active tab of most page controls, by adding greyscale icons to image list and using these for all inactive tabs. See https://www.heidisql.com/forum.php?t=41323

Browse Source
This commit is contained in:
Ansgar Becker
2023-10-03 13:34:28 +02:00
parent 5316e2c0da
commit d28d03b6dd
14 changed files with 74 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/routine_editor.pas
View File

@ -77,6 +77,7 @@ type
procedure btnDiscardClick(Sender: TObject);
procedure comboDefinerDropDown(Sender: TObject);
procedure btnMoveParamClick(Sender: TObject);
procedure PageControlMainChange(Sender: TObject);
private
{ Private declarations }
FAlterRoutineType: String;
@ -181,6 +182,7 @@ begin
btnRunProc.Left := Width - btnRunProc.Width - 3;
Mainform.actRunRoutines.Enabled := ObjectExists;
Mainform.ShowStatusMsg;
TExtForm.PageControlTabHighlight(PageControlMain);
Screen.Cursor := crDefault;
end;
@ -202,6 +204,11 @@ begin
end;
procedure TfrmRoutineEditor.PageControlMainChange(Sender: TObject);
begin
TExtForm.PageControlTabHighlight(PageControlMain);
end;
procedure TfrmRoutineEditor.comboTypeSelect(Sender: TObject);
var
isfunc: Boolean;