diff --git a/components/spktoolbar/SpkGUITools/SpkGUITools.pas b/components/spktoolbar/SpkGUITools/SpkGUITools.pas index ab7037f3d..879953858 100644 --- a/components/spktoolbar/SpkGUITools/SpkGUITools.pas +++ b/components/spktoolbar/SpkGUITools/SpkGUITools.pas @@ -1,10 +1,16 @@ unit SpkGUITools; -{$mode ObjFpc} -{$H+} +{$mode ObjFpc}{$H+} + +{$IF FPC_FullVersion >= 30200} + {$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined} +{$IFEND} + {$DEFINE SPKGUITOOLS} + {.$define EnhancedRecordSupport} //the fpcbugworkaround is only necessary when using inline for DrawRoundRect + {.$define FpcBugWorkAround} interface diff --git a/components/spktoolbar/SpkToolbar/spkt_Appearance.pas b/components/spktoolbar/SpkToolbar/spkt_Appearance.pas index d12f912ce..d7102d700 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Appearance.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Appearance.pas @@ -377,7 +377,7 @@ type property Element: TSpkElementAppearance read FElement write SetElementAppearance; end; -procedure SetDefaultFont(AFont: TFont); +procedure SetDefaultFont({%H-}AFont: TFont); implementation diff --git a/components/spktoolbar/SpkToolbar/spkt_Tab.pas b/components/spktoolbar/SpkToolbar/spkt_Tab.pas index 573ada548..638758e75 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Tab.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Tab.pas @@ -1,8 +1,3 @@ -unit spkt_Tab; - -{$mode delphi} -{.$Define EnhancedRecordSupport} - (******************************************************************************* * * * File: spkt_Tab.pas * @@ -13,6 +8,16 @@ unit spkt_Tab; * * *******************************************************************************) +unit spkt_Tab; + +{$mode delphi} + +{$IF FPC_FullVersion >= 30200} + {$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined} +{$IFEND} + +{.$Define EnhancedRecordSupport} + interface uses