moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-13 21:05:12 -05:00
Code Issues Releases Wiki Activity

Added syncronized editing to Simba!

Browse Source
This commit is contained in:
Raymond 2010-05-20 01:05:33 +02:00
parent 852edf55fc
commit 716dc93834
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/Simba/framefunctionlist.pas
View File

@ -231,6 +231,8 @@ begin
exit;
if FLastScript = Script then
exit;
if SimbaForm.CurrScript = nil then
exit;
FLastScript:= Script;
Filtering := FilterTree.Visible;
if FilterTree.Visible then

4
Projects/Simba/framescript.pas
View File

@ -29,7 +29,7 @@ interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, SynHighlighterPas, SynEdit, SynEditMarkupHighAll,
mmlpsthread,ComCtrls, SynEditKeyCmds, LCLType,MufasaBase, SynEditMarkupSpecialLine, Graphics, Controls, SynEditStrConst,
v_ideCodeInsight, v_ideCodeParser, CastaliaPasLexTypes, CastaliaSimplePasPar, SynEditHighlighter,synedittextbase;
v_ideCodeInsight, v_ideCodeParser, CastaliaPasLexTypes, CastaliaSimplePasPar, SynEditHighlighter,synedittextbase,SynPluginSyncroEdit;
const
ecCodeCompletion = ecUserFirst;
ecCodeHints = ecUserFirst + 1;
@ -46,6 +46,7 @@ type
TScriptFrame = class(TFrame)
SynEdit: TSynEdit;
SyncEdit : TSynPluginSyncroEdit;
procedure SynEditChange(Sender: TObject);
procedure SynEditClickLink(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
@ -583,6 +584,7 @@ var
MarkCaret : TSynEditMarkupHighlightAllCaret;
begin
inherited Create(TheOwner);
SyncEdit := TSynPluginSyncroEdit.Create(SynEdit);
OwnerSheet := TTabSheet(TheOwner);
OwnerPage := TPageControl(OwnerSheet.Owner);