Removed the inline functions in fpgui.pas which solved the problem with FPC wanting to recomile that unit when not really needed. Most of the times it reported that StyleManager.pas could not be found.

1 files changed, 6 insertions, 6 deletions

diff --git a/gui/fpguiscrollbar.inc b/gui/fpguiscrollbar.inc
index 38b55384..43030960 100644
--- a/gui/fpguiscrollbar.inc
+++ b/gui/fpguiscrollbar.inc
@@ -537,10 +537,10 @@ begin
     begin
       Inc(FMinSize.cx, Left + Right);
       Inc(FMinSize.cy, Top + Bottom);
-      FDefSize.cx := fpGUI.Min(DefSize.cx + Left + Right, InfiniteSize);
-      FDefSize.cy := fpGUI.Min(DefSize.cy + Top + Bottom, InfiniteSize);
-      FMaxSize.cx := fpGUI.Min(MaxSize.cx + Left + Right, InfiniteSize);
-      FMaxSize.cy := fpGUI.Min(MaxSize.cy + Top + Bottom, InfiniteSize);
+      FDefSize.cx := Math.Min(DefSize.cx + Left + Right, InfiniteSize);
+      FDefSize.cy := Math.Min(DefSize.cy + Top + Bottom, InfiniteSize);
+      FMaxSize.cx := Math.Min(MaxSize.cx + Left + Right, InfiniteSize);
+      FMaxSize.cy := Math.Min(MaxSize.cy + Top + Bottom, InfiniteSize);
     end;
 end;
 
@@ -684,8 +684,8 @@ begin
       Size := Slider.Width
     else
       Size := Slider.Height;
-    Result := fpGUI.Max(Style.GeTFScrollBarBtnMinSize,
-        PageSize * Size div fpGUI.Max(1, Max - Min + 1));
+    Result := Math.Max(Style.GeTFScrollBarBtnMinSize,
+        PageSize * Size div Math.Max(1, Max - Min + 1));
     if Result > Size then
       Result := Size;
   end;