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

spktoolbar: More conventional code formatting of unit SpkGUITools

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6038 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-10-12 17:48:39 +00:00
parent 38e00ec90d
commit aa07232678
3 changed files with 1371 additions and 1436 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

13
components/spktoolbar/SpkMath/SpkMath.pas
View File

@ -329,6 +329,8 @@ type
operator - (Left: T3DVector; Right: T3DVector): T3DVector;
{$endif}
procedure EnsureOrder(var a, b: Integer);
implementation
{$ifndef EnhancedRecordSupport}
@ -1696,4 +1698,15 @@ end;
{$endif}
procedure EnsureOrder(var a, b: Integer);
var
tmp: Integer;
begin
if a <= b then
exit;
tmp := a;
a := b;
b := tmp;
end;
end.

5
components/spktoolbar/demos/actions/project1.lpr
View File

@ -13,9 +13,8 @@ uses
{$R *.res}
begin
Application.Scaled := True;
{$IF lcl_fullversion >= 1080000}
Application.Scaled := True;
{$IF LCL_FullVersion >= 1080000}
Application.Scaled:=True;
{$ENDIF}
RequireDerivedFormResource := True;
Application.Initialize;