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 #1482: text editor dialog and customize highlighter dialog

Browse Source
This commit is contained in:
Ansgar Becker
2025-03-24 14:23:33 +01:00
parent 3acdd774a1
commit 539e5bf7f1
8 changed files with 1222 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/searchreplace.pas
View File

@ -8,7 +8,7 @@ uses
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls,
ExtCtrls, SynEdit, SynEditTypes, laz.VirtualTrees, RegExpr,
SynEditRegexSearch, SynEditMiscClasses, SynEditSearch, extra_controls,
Menus{, texteditor};
Menus, texteditor;
type
TfrmSearchReplace = class(TExtForm)
@ -123,7 +123,7 @@ begin
AnySynMemo := MainForm.ActiveSynMemo(True);
if Assigned(AnySynMemo) then begin
IsEditorWritable := not AnySynMemo.ReadOnly; // Support views and procedure editors
IsGridTextEditor := False; //GetParentForm(AnySynMemo) is TfrmTextEditor; // Support grid text editor, read-only or not
IsGridTextEditor := GetParentForm(AnySynMemo) is TfrmTextEditor; // Support grid text editor, read-only or not
if IsEditorWritable or IsGridTextEditor then
UsedSynMemo := AnySynMemo;
end;