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

reactivated page close btn on linux

This commit is contained in:
Basile Burg 2015-01-21 08:09:37 +01:00
parent 3cd1306be6
commit f1c16c11d6
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_editor.pas
View File

@ -43,6 +43,9 @@ type
tokLst: TLexTokenList; tokLst: TLexTokenList;
errLst: TLexErrorList; errLst: TLexErrorList;
fModStart: boolean; fModStart: boolean;
{$IFDEF LINUX}
procedure pageCloseBtnClick(Sender: TObject);
{$ENDIF}
function completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer; Selected: boolean; Index: integer): boolean; function completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer; Selected: boolean; Index: integer): boolean;
procedure lexFindToken(const aToken: PLexToken; out doStop: boolean); procedure lexFindToken(const aToken: PLexToken; out doStop: boolean);
procedure memoKeyPress(Sender: TObject; var Key: char); procedure memoKeyPress(Sender: TObject; var Key: char);
@ -109,6 +112,10 @@ begin
bmp.Free; bmp.Free;
end; end;
// //
{$IFDEF LINUX}
PageControl.OnCloseTabClicked := @pageCloseBtnClick;
{$ENDIF}
//
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
end; end;
@ -198,6 +205,13 @@ end;
{$ENDREGION} {$ENDREGION}
{$REGION PageControl/Editor things ---------------------------------------------} {$REGION PageControl/Editor things ---------------------------------------------}
{$IFDEF LINUX}
procedure TCEEditorWidget.pageCloseBtnClick(Sender: TObject);
begin
if fDoc <> nil then fDoc.Free;
end;
{$ENDIF}
function TCEEditorWidget.getEditorCount: NativeInt; function TCEEditorWidget.getEditorCount: NativeInt;
begin begin
result := pageControl.PageCount; result := pageControl.PageCount;