forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

nothing

This commit is contained in:
Basile Burg 2015-02-01 01:48:27 +01:00
parent fc69c42d5d
commit 87d588d475
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_editor.pas
View File

@ -52,9 +52,9 @@ type
procedure memoMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure memoMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure memoCtrlClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure memoCtrlClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure memoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure memoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
function getEditor(index: NativeInt): TCESynMemo; function getEditor(index: Integer): TCESynMemo;
function getEditorCount: NativeInt; function getEditorCount: Integer;
function getEditorIndex: NativeInt; function getEditorIndex: Integer;
procedure getCompletionList; procedure getCompletionList;
procedure getSymbolLoc; procedure getSymbolLoc;
procedure focusedEditorChanged; procedure focusedEditorChanged;
@ -67,9 +67,9 @@ type
constructor create(aOwner: TComponent); override; constructor create(aOwner: TComponent); override;
destructor destroy; override; destructor destroy; override;
// //
property editor[index: NativeInt]: TCESynMemo read getEditor; property editor[index: Integer]: TCESynMemo read getEditor;
property editorCount: NativeInt read getEditorCount; property editorCount: Integer read getEditorCount;
property editorIndex: NativeInt read getEditorIndex; property editorIndex: Integer read getEditorIndex;
end; end;
implementation implementation
@ -210,12 +210,12 @@ begin
end; end;
{$ENDIF} {$ENDIF}
function TCEEditorWidget.getEditorCount: NativeInt; function TCEEditorWidget.getEditorCount: Integer;
begin begin
result := pageControl.PageCount; result := pageControl.PageCount;
end; end;
function TCEEditorWidget.getEditorIndex: NativeInt; function TCEEditorWidget.getEditorIndex: Integer;
begin begin
if pageControl.PageCount > 0 then if pageControl.PageCount > 0 then
result := pageControl.PageIndex result := pageControl.PageIndex