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; operator - (Left: T3DVector; Right: T3DVector): T3DVector;
{$endif} {$endif}
procedure EnsureOrder(var a, b: Integer);
implementation implementation
{$ifndef EnhancedRecordSupport} {$ifndef EnhancedRecordSupport}
@ -1696,4 +1698,15 @@ end;
{$endif} {$endif}
procedure EnsureOrder(var a, b: Integer);
var
tmp: Integer;
begin
if a <= b then
exit;
tmp := a;
a := b;
b := tmp;
end;
end. end.

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

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