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

LCL-GTK3: Make AnchorDocking display dock names properly. Issue #40341, patch by Anton Kavalenka.

Browse Source
This commit is contained in:
Juha 2024-07-27 13:14:14 +03:00
parent 987f140c91
commit 1393bae4a7
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7571,6 +7571,7 @@ begin
FWidget:=Result; FWidget:=Result;
FWidget^.set_events(GDK_DEFAULT_EVENTS_MASK); FWidget^.set_events(GDK_DEFAULT_EVENTS_MASK);
gtk_widget_realize(Result); gtk_widget_realize(Result);
Title:=Params.Caption;
decor:=decoration_flags(AForm); decor:=decoration_flags(AForm);
gdk_window_set_decorations(Result^.window, decor); gdk_window_set_decorations(Result^.window, decor);
gtk_window_set_decorated(PGtkWindow(Result),(decor <> [])); gtk_window_set_decorated(PGtkWindow(Result),(decor <> []));
@ -7639,11 +7640,18 @@ end;
function TGtk3Window.getText: String; function TGtk3Window.getText: String;
begin begin
Result := Title; // query widget
Result:=Title;
// return cached
if Result='' then
Result := inherited GetText;
end; end;
procedure TGtk3Window.setText(const AValue: String); procedure TGtk3Window.setText(const AValue: String);
begin begin
// set cached text
inherited SetText(AValue);
// set widget text
Title := AValue; Title := AValue;
end; end;