pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

SpkToolbar: Less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8131 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-10-27 17:49:55 +00:00
parent 19cbd53aa1
commit 4e7896f9a4
3 changed files with 19 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/spktoolbar/SpkGUITools/SpkGUITools.pas
View File

@ -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

2
components/spktoolbar/SpkToolbar/spkt_Appearance.pas
View File

@ -377,7 +377,7 @@ type
property Element: TSpkElementAppearance read FElement write SetElementAppearance;
end;
procedure SetDefaultFont(AFont: TFont);
procedure SetDefaultFont({%H-}AFont: TFont);
implementation

15
components/spktoolbar/SpkToolbar/spkt_Tab.pas
View File

@ -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