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

gtk2 intf: use Set8087CW in AppInit to avoid crash on ubuntu human theme

Browse Source 
git-svn-id: trunk@15753 -
This commit is contained in:
mattias 2008-07-11 17:19:30 +00:00
parent f181d04615
commit 976269a47b
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -562,9 +562,10 @@ end;
procedure TGtk2WidgetSet.AppInit(var ScreenInfo: TScreenInfo);
begin
inherited AppInit(ScreenInfo);
{$ifdef Windows}
{$if defined(cpui386) or defined(cpux86_64)}
// needed otherwise some gtk theme engines crash with division by zero
Set8087CW($133F);
{$endif}
{$endif}
end;
function TGtk2WidgetSet.AppHandle: Thandle;

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

@ -364,7 +364,7 @@ begin
if not WSCheckHandleAllocated(ATrackBar, 'SetPosition') then
Exit;
Range := PGtkRange(ATrackBar.Handle);
gtk_range_set_value(Range, Trunc(NewPosition));
gtk_range_set_value(Range, NewPosition);
end;
{ TGtk2WSProgressBar }