paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 10:57:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: implemented TGtk3Memo changed signal.

Browse Source
This commit is contained in:
zeljan1 2025-03-31 14:10:35 +02:00
parent d8e4b249c3
commit 01c109d393
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -584,6 +584,8 @@ type
{ TGtk3Memo } { TGtk3Memo }
TGtk3Memo = class(TGtk3ScrollableWin) TGtk3Memo = class(TGtk3ScrollableWin)
strict private
class procedure MemoTextChanged(aBuffer: PGtkTextBuffer; aData: gPointer); cdecl; static;
private private
function GetAlignment: TAlignment; function GetAlignment: TAlignment;
function GetCaretPos: TPoint; function GetCaretPos: TPoint;
@ -607,6 +609,7 @@ type
public public
function getSelStart: Integer; virtual; function getSelStart: Integer; virtual;
function getSelLength: Integer; virtual; function getSelLength: Integer; virtual;
procedure InitializeWidget; override;
procedure setSelStart(AValue: Integer); virtual; procedure setSelStart(AValue: Integer); virtual;
procedure setSelLength(AValue: Integer); virtual; procedure setSelLength(AValue: Integer); virtual;
procedure setSelText(const ANewSelText: string); virtual; procedure setSelText(const ANewSelText: string); virtual;
@ -5293,7 +5296,9 @@ begin
FCentralWidget := Result; FCentralWidget := Result;
if (nboHidePageListPopup in TCustomTabControl(LCLObject).Options) then if (nboHidePageListPopup in TCustomTabControl(LCLObject).Options) then
PGtkNoteBook(FCentralWidget)^.popup_disable; PGtkNoteBook(FCentralWidget)^.popup_disable
else
PGtkNoteBook(FCentralWidget)^.popup_enable;
Alloc.x := Params.X; Alloc.x := Params.X;
Alloc.y := Params.Y; Alloc.y := Params.Y;
@ -6316,6 +6321,17 @@ end;
{ TGtk3Memo } { TGtk3Memo }
class procedure TGtk3Memo.MemoTextChanged(aBuffer: PGtkTextBuffer; aData: gPointer); cdecl;
var
Mess: TLMessage;
begin
Mess := Default(TLMessage);
if (aData = nil) then
exit;
Mess.Msg := CM_TEXTCHANGED;
LCLMessageGlue.DeliverMessage(TGtk3Widget(aData).LCLObject, Mess);
end;
function TGtk3Memo.CreateWidget(const Params: TCreateParams): PGtkWidget; function TGtk3Memo.CreateWidget(const Params: TCreateParams): PGtkWidget;
var var
AMemo: TCustomMemo; AMemo: TCustomMemo;
@ -6362,6 +6378,16 @@ begin
PGtkScrolledWindow(Result)^.set_can_focus(False); PGtkScrolledWindow(Result)^.set_can_focus(False);
end; end;
procedure TGtk3Memo.InitializeWidget;
var
ATextView: PGtkTextView;
begin
inherited InitializeWidget;
ATextView := PGtkTextView(getContainerWidget);
g_signal_connect_data(ATextView^.get_buffer,'changed', TGCallBack(@MemoTextChanged), Self, nil, G_CONNECT_DEFAULT);
end;
function TGtk3Memo.EatArrowKeys(const AKey: Word): Boolean; function TGtk3Memo.EatArrowKeys(const AKey: Word): Boolean;
begin begin
Result := False; Result := False;