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

Issue #8: fire SetupSynEditors after applying a new style, so all SynMemo's have the right colors

Browse Source
This commit is contained in:
Ansgar Becker
2018-10-27 19:58:30 +02:00
parent 39fbdc7dea
commit 7149df3913
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/main.pas
View File

@ -651,6 +651,7 @@ type
procedure menuConnectionsPopup(Sender: TObject);
procedure actExitApplicationExecute(Sender: TObject);
procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
procedure CMStyleChanged(var Msg: TMessage); message CM_STYLECHANGED;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure AfterFormCreate;
@ -11314,6 +11315,14 @@ begin
end;
procedure TMainForm.CMStyleChanged(var Msg: TMessage);
begin
// Style theme applied, e.g. via preferences dialog
// Ensure SynMemo's have fitting colors
SetupSynEditors;
end;
procedure TMainForm.DefaultHandler(var Message);
begin
if TMessage(Message).Msg = SecondInstMsgId then begin