Permalink
Browse files

Issue #8: fire SetupSynEditors after applying a new style, so all Syn…

…Memo's have the right colors
  • Loading branch information...
ansgarbecker committed Oct 27, 2018
1 parent 39fbdc7 commit 7149df391311081eb39f390970b8be664d0a0499
Showing with 9 additions and 0 deletions.
  1. +9 −0 source/main.pas
View
@@ -651,6 +651,7 @@ TMainForm = class(TForm)
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 @@ procedure TMainForm.WMCopyData(var Msg: TWMCopyData);
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

0 comments on commit 7149df3

Please sign in to comment.