diff options
Diffstat (limited to 'UViewer.pas')
| -rw-r--r-- | UViewer.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/UViewer.pas b/UViewer.pas index a80a434..6e5fe85 100644 --- a/UViewer.pas +++ b/UViewer.pas @@ -42,6 +42,7 @@ type private // LineHeight, NumLines: integer; LineBuffer: TStringList; + window_group: PGtkWindowGroup; procedure ApplyFont; protected AThread: TThread; @@ -76,6 +77,8 @@ function scroll_event_callback(widget: PGtkWidget; event: PGdkEventScroll; user_ procedure TFViewer.FormCreate(Sender: TObject); begin + window_group := gtk_window_group_new(); + gtk_window_group_add_window(window_group, PGtkWindow(FWidget)); SetDefaultSize(700, 500); Caption := 'TuxView'; BorderWidth := 5; @@ -140,6 +143,7 @@ procedure TFViewer.FormDestroy(Sender: TObject); begin try LineBuffer.Free; + g_object_unref(window_group); except end; end; |