[JVCL-Checkins] SF.net SVN: jvcl:[13486] trunk/jvcl/run/JvInspector.pas

[<ah...@us...>]

Revision: 13486
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13486&view=rev
Author:   ahuser
Date:     2013-01-06 16:29:53 +0000 (Sun, 06 Jan 2013)
Log Message:
-----------
some style cleaning (double spaces)

Modified Paths:
--------------
    trunk/jvcl/run/JvInspector.pas

Modified: trunk/jvcl/run/JvInspector.pas
===================================================================
--- trunk/jvcl/run/JvInspector.pas	2013-01-04 16:46:57 UTC (rev 13485)
+++ trunk/jvcl/run/JvInspector.pas	2013-01-06 16:29:53 UTC (rev 13486)
@@ -181,8 +181,6 @@
   irsItemHeight = $40000000;
   irsValueMask = $0FFFFFFF;
 
-
-
 type
   // early declarations
   TJvCustomInspector = class;
@@ -257,13 +255,13 @@
   // We would have liked to be able to generate a const pointer to a
   // non const object (which is what the Delphi declaration is) but the
   // HPP Generator is compeletely flawed in this area
-  TInspectorItemEvent = procedure(Sender: TObject;  Item: TJvCustomInspectorItem) of object;
-  TInspectorItemBeforeCreateEvent = procedure(Sender: TObject;  Data: TJvCustomInspectorData;
+  TInspectorItemEvent = procedure(Sender: TObject; Item: TJvCustomInspectorItem) of object;
+  TInspectorItemBeforeCreateEvent = procedure(Sender: TObject; Data: TJvCustomInspectorData;
     var ItemClass: TJvInspectorItemClass) of object;
-  TInspectorItemBeforeSelectEvent = procedure(Sender: TObject;  NewItem: TJvCustomInspectorItem;
+  TInspectorItemBeforeSelectEvent = procedure(Sender: TObject; NewItem: TJvCustomInspectorItem;
     var Allow: Boolean) of object;
   TInspectorDataEvent = procedure(Sender: TObject; Data: TJvCustomInspectorData) of object;
-  TInspectorItemGetValueListEvent = procedure(Item: TJvCustomInspectorItem;  Values: TStrings) of object;
+  TInspectorItemGetValueListEvent = procedure(Item: TJvCustomInspectorItem; Values: TStrings) of object;
   TInspectorItemSortCompare = function(Item1, Item2: TJvCustomInspectorItem): Integer of object;
   TJvInspAsFloat = procedure(Sender: TJvInspectorEventData; var Value: Extended) of object;
   TJvInspAsInt64 = procedure(Sender: TJvInspectorEventData; var Value: Int64) of object;
@@ -462,7 +460,7 @@
     procedure GetDlgCode(var Code: TDlgCodes); override;
     procedure FocusSet(PrevWnd: THandle); override;
     procedure FocusKilled(NextWnd: THandle); override;
-    function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;  MousePos: TPoint): Boolean; override;
+    function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
     procedure ShowScrollBars(Bar: Integer; Visible: Boolean); virtual;
     function YToIdx(const Y: Integer): Integer; virtual;
     property AutoComplete: Boolean read FAutoComplete write FAutoComplete;
@@ -1600,7 +1598,7 @@
     function IsAssigned: Boolean; override;
     function IsInitialized: Boolean; override;
     class function ItemRegister: TJvInspectorRegister; override;
-    class function New(const AParent: TJvCustomInspectorItem; const AName: string;  ATypeInfo: PTypeInfo; const
+    class function New(const AParent: TJvCustomInspectorItem; const AName: string; ATypeInfo: PTypeInfo; const
       AAddress: Pointer): TJvCustomInspectorItem; reintroduce; overload;
     // REMOVED BECAUSE OF A BCB INCOMPATIBILITY:
     // Untyped parameters are output as void* which is exactly the same
@@ -1724,7 +1722,7 @@
     function HasValue: Boolean; override;
     function IsAssigned: Boolean; override;
     function IsInitialized: Boolean; override;
-    class function New(const AParent: TJvCustomInspectorItem; const AName: string;  ATypeInfo: PTypeInfo):
+    class function New(const AParent: TJvCustomInspectorItem; const AName: string; ATypeInfo: PTypeInfo):
       TJvCustomInspectorItem; reintroduce; overload;
     procedure SetAsSet(const Buf); override;
     property OnGetAsFloat: TJvInspAsFloat read FOnGetAsFloat write SetOnGetAsFloat;
@@ -1750,7 +1748,7 @@
     FKey: string;
     FSection: string;
   protected
-    constructor CreatePrim(const AName, ASection, AKey: string;  ATypeInfo: PTypeInfo);
+    constructor CreatePrim(const AName, ASection, AKey: string; ATypeInfo: PTypeInfo);
     function ExistingValue: Boolean; virtual; abstract;
     function GetAsFloat: Extended; override;
     function GetAsInt64: Int64; override;
@@ -1850,7 +1848,7 @@
     function GetTypeInfo: PTypeInfo; virtual;
     procedure SetTypeInfo(Value: PTypeInfo); virtual;
   public
-    constructor Create(const AItemClass: TJvInspectorItemClass;  ATypeInfo: PTypeInfo);
+    constructor Create(const AItemClass: TJvInspectorItemClass; ATypeInfo: PTypeInfo);
     function MatchValue(const ADataObj: TJvCustomInspectorData): Integer; override;
     function MatchPercent(const ADataObj: TJvCustomInspectorData): Integer; override;
     property TypeInfo: PTypeInfo read GetTypeInfo;
@@ -1886,7 +1884,7 @@
     FTypeInfo: PTypeInfo;
   public
     constructor Create(const AItemClass: TJvInspectorItemClass; const AObjectClass: TClass;
-      const AName: string;  ATypeInfo: PTypeInfo);
+      const AName: string; ATypeInfo: PTypeInfo);
     function Compare(const ADataObj: TJvCustomInspectorData;
       const Item: TJvCustomInspectorRegItem): Integer; override;
     function MatchValue(const ADataObj: TJvCustomInspectorData): Integer; override;
@@ -4149,7 +4147,7 @@
   EndUpdate;
 end;
 
-function TJvCustomInspector.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;  MousePos: TPoint): Boolean;
+function TJvCustomInspector.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;
 var
   Count: Integer;
   Index: Integer;
@@ -10918,7 +10916,7 @@
 end;
 
 class function TJvInspectorPropData.New(const AParent: TJvCustomInspectorItem;
-  const AInstance: TObject;  PropInfo: PPropInfo): TJvCustomInspectorItem;
+  const AInstance: TObject; PropInfo: PPropInfo): TJvCustomInspectorItem;
 var
   Data: TJvInspectorPropData;
   RegItem: TJvCustomInspectorRegItem;
@@ -11010,7 +11008,7 @@
 end;
 
 class function TJvInspectorPropData.New(const AParent: TJvCustomInspectorItem;
-  const AInstance: TObject;  PropInfos: PPropList;
+  const AInstance: TObject; PropInfos: PPropList;
   const PropCount: Integer): TJvInspectorItemInstances;
 var
   I: Integer;
@@ -11759,7 +11757,7 @@
 end;
 
 class function TJvInspectorINIFileData.New(const AParent: TJvCustomInspectorItem;
-  const AName, ASection, AKey: string;  ATypeInfo: PTypeInfo;
+  const AName, ASection, AKey: string; ATypeInfo: PTypeInfo;
   const AINIFile: TCustomIniFile): TJvCustomInspectorItem;
 var
   Data: TJvInspectorINIFileData;
@@ -12139,7 +12137,7 @@
 //=== { TJvInspectorPropRegItem } ============================================
 
 constructor TJvInspectorPropRegItem.Create(const AItemClass: TJvInspectorItemClass;
-  const AObjectClass: TClass; const AName: string;  ATypeInfo: PTypeInfo);
+  const AObjectClass: TClass; const AName: string; ATypeInfo: PTypeInfo);
 begin
   inherited Create(AItemClass);
   FObjectClass := AObjectClass;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.