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

gtk2: clean up

Browse Source 
git-svn-id: trunk@27877 -
This commit is contained in:
mattias 2010-10-26 09:27:49 +00:00
parent dab5f3040e
commit 12b4bd48c0
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2themes.pas
View File

@ -724,7 +724,7 @@ begin
if g_object_get_data(PGObject(Widget), 'lcl-images-change-callback') = nil then
begin
Signal := g_signal_connect(ASettings, 'notify::gtk-button-images', TGCallback(@ButtonImagesChange), Self);
g_object_set_data(PGObject(Widget), 'lcl-images-change-callback', Pointer(Signal))
g_object_set_data(PGObject(Widget), 'lcl-images-change-callback', Pointer(PtrUInt(Signal)))
end;
end;
toShowMenuImages:
@ -737,7 +737,7 @@ begin
if g_object_get_data(PGObject(Widget), 'lcl-images-change-callback') = nil then
begin
Signal := g_signal_connect(ASettings, 'notify::gtk-menu-images', TGCallback(@MenuImagesChange), Self);
g_object_set_data(PGObject(Widget), 'lcl-images-change-callback', Pointer(Signal))
g_object_set_data(PGObject(Widget), 'lcl-images-change-callback', Pointer(PtrUInt(Signal)))
end;
end;
else

4
lcl/interfaces/gtk2/gtk2wscomctrls.pp
View File

@ -421,11 +421,11 @@ end;
class procedure TGtk2WSProgressBar.InternalSetStyle(
AProgressBar: PGtkProgressBar; AStyle: TProgressBarStyle);
begin
g_object_set_data(PGObject(AProgressBar), 'ProgressStyle', Pointer(Ord(AStyle)));
g_object_set_data(PGObject(AProgressBar), 'ProgressStyle', Pointer(PtrUInt(Ord(AStyle))));
if AStyle = pbstMarquee then
begin
g_object_set_data_full(PGObject(AProgressBar), 'timeout',
Pointer(g_timeout_add(100, @ProgressPulseTimeout, AProgressBar)), @ProgressDestroy);
Pointer(PtrUInt(g_timeout_add(100, @ProgressPulseTimeout, AProgressBar))), @ProgressDestroy);
gtk_progress_bar_pulse(AProgressBar);
end;
end;