paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit, Template(Syncro) fix invalidation

Browse Source 
git-svn-id: trunk@36528 -
This commit is contained in:
martin 2012-04-02 19:23:51 +00:00
parent ee4e8f2cb6
commit f859a78647
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synpluginsyncronizededitbase.pp
View File

@ -92,6 +92,7 @@ type
public
constructor Create(ASynEdit: TSynEditBase);
destructor Destroy; override;
procedure DoInvalidate;
end;
{ TSynPluginSyncronizedEditMarkup }
@ -460,6 +461,11 @@ begin
inherited Destroy;
end;
procedure TSynPluginSyncronizedEditMarkupBase.DoInvalidate;
begin
DoEnabledChanged(nil);
end;
{ TSynPluginSyncronizedEditMarkup }
procedure TSynPluginSyncronizedEditMarkup.SetCurrentCell(const AValue: Integer);

2
components/synedit/synplugintemplateedit.pp
View File

@ -272,6 +272,8 @@ procedure TSynPluginTemplateEdit.SetFinalCaret;
var
c: TSynPluginSyncronizedEditCell;
begin
if FMarkup <> nil then
FMarkup.DoInvalidate;
c := Cells.GroupCell[-2, 0];
Editor.BlockBegin := c.LogStart;
CaretObj.IncForcePastEOL;