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

LCL: GTK2: Fixed memory leak in StatusBar. Issue #34951

Browse Source 
git-svn-id: trunk@60250 -
This commit is contained in:
michl 2019-01-30 21:54:31 +00:00
parent d66f084d39
commit ec7a5c0cd1
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -6263,6 +6263,7 @@ var
NewShadowType: TGtkShadowType;
NewJustification: TGtkJustification;
xalign, yalign: gfloat;
MessageId: guint;
begin
//DebugLn('UpdateStatusBarPanel ',DbgS(StatusBar),' Index=',dbgs(Index));
AStatusBar := StatusBar as TStatusBar;
@ -6293,10 +6294,11 @@ begin
'state');
//DebugLn(' PanelText="',PanelText,'"');
if PanelText <> '' then
gtk_statusbar_push(PGTKStatusBar(StatusPanelWidget), ContextID, PGChar(PanelText))
MessageId := gtk_statusbar_push(PGTKStatusBar(StatusPanelWidget), ContextID, PGChar(PanelText))
else
gtk_statusbar_push(PGTKStatusBar(StatusPanelWidget), ContextID, '');
MessageId := gtk_statusbar_push(PGTKStatusBar(StatusPanelWidget), ContextID, '');
if MessageId > 1 then
gtk_statusbar_remove(PGTKStatusBar(StatusPanelWidget), ContextID, MessageId - 1);
if CurPanel <> nil then
begin
@ -6339,8 +6341,9 @@ begin
g_object_set_data(PGObject(StatusPanelWidget),'lcl_statusbar_id',
@AStatusBar.Panels[Index].ID);
g_signal_connect_after(StatusPanelWidget, 'expose-event',
TGtkSignalFunc(@gtk2PaintStatusBarWidget), AStatusBar);
if AStatusBar.Panels[Index].Style = psOwnerDraw then
g_signal_connect_after(StatusPanelWidget, 'expose-event',
TGtkSignalFunc(@gtk2PaintStatusBarWidget), AStatusBar);
end;
end;