jcl-checkins-diff

[Jcl-checkins-diff] SF.net SVN: jcl: [2108] branches/code_format

[<ou...@us...>]

Revision: 2108
          http://jcl.svn.sourceforge.net/jcl/?rev=2108&view=rev
Author:   outchy
Date:     2007-08-07 12:29:15 -0700 (Tue, 07 Aug 2007)

Log Message:
-----------
Fist test of code formatting

Modified Paths:
--------------
    branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas
    branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas
    branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas
    branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas
    branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas
    branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas
    branches/code_format/jcl/examples/common/expreval/ExprEvalExampleMain.pas
    branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas
    branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
    branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas
    branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
    branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas
    branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas
    branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas
    branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas
    branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas
    branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas
    branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas
    branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas
    branches/code_format/jcl/examples/common/textreader/TextReaderDemoMain.pas
    branches/code_format/jcl/examples/common/unitversioning/UnitVersioningTestMain.pas
    branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoCLRFrame.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoGuidForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoMain.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoMetaDataFrame.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoStringsForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoTableForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoUserStringsForm.pas
    branches/code_format/jcl/examples/windows/debug/framestrack/FramesTrackDemoMain.pas
    branches/code_format/jcl/examples/windows/debug/reportconverter/formConverter.pas
    branches/code_format/jcl/examples/windows/debug/sourceloc/SourceLocDemoMain.pas
    branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas
    branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComUnit.pas
    branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas
    branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDemoMain.pas
    branches/code_format/jcl/examples/windows/debug/threadexcept/ThreadExceptDemoMain.pas
    branches/code_format/jcl/examples/windows/delphitools/common/About.pas
    branches/code_format/jcl/examples/windows/delphitools/common/D6MdiMsgFix.pas
    branches/code_format/jcl/examples/windows/delphitools/common/FindDlg.pas
    branches/code_format/jcl/examples/windows/delphitools/common/SHDocVw_TLB.pas
    branches/code_format/jcl/examples/windows/delphitools/common/ToolsUtils.pas
    branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/DependViewMain.pas
    branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeDump.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeGenDef.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResView.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResource.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeSearch.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeViewerControl.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeViewerMain.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeViewer_TLB.pas
    branches/code_format/jcl/examples/windows/delphitools/resfix/ResFixMain.pas
    branches/code_format/jcl/examples/windows/delphitools/screenjpg/Main.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ChangePriority.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Global.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/HeapDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Main.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ModulesDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ViewTemplate.pas
    branches/code_format/jcl/examples/windows/edisdk/EDICOMExampleMain.pas
    branches/code_format/jcl/examples/windows/edisdk/EDISDK_TLB.pas
    branches/code_format/jcl/examples/windows/edisdk/comserver/EDISDK_TLB.pas
    branches/code_format/jcl/examples/windows/edisdk/comserver/JclEDICOM_ANSIX12.pas
    branches/code_format/jcl/examples/windows/filesummary/FileSummaryDemoMain.pas
    branches/code_format/jcl/examples/windows/fileversion/VerInfoDemoMain.pas
    branches/code_format/jcl/examples/windows/lanman/LanManDemoMain.pas
    branches/code_format/jcl/examples/windows/locales/LocalesDemoMain.pas
    branches/code_format/jcl/examples/windows/mapi/MapiDemoMain.pas
    branches/code_format/jcl/examples/windows/multimedia/MultimediaDemoMain.pas
    branches/code_format/jcl/examples/windows/ntfs/SoftLinkDragDropHandler.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoDependent.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoGroups.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoMain.pas
    branches/code_format/jcl/examples/windows/peimage/ApiHookDemoMain.pas
    branches/code_format/jcl/examples/windows/peimage/UnmangleNameDemoMain.pas
    branches/code_format/jcl/examples/windows/registry/RegistryDemoMain.pas
    branches/code_format/jcl/examples/windows/structstorage/HexDump.pas
    branches/code_format/jcl/examples/windows/structstorage/PropsFrm.pas
    branches/code_format/jcl/examples/windows/structstorage/StructStorageExampleMain.pas
    branches/code_format/jcl/examples/windows/sysinfo/SysInfoDemoMain.pas
    branches/code_format/jcl/examples/windows/tasks/TaskDemoDataModule.pas
    branches/code_format/jcl/examples/windows/tasks/TaskDemoMain.pas
    branches/code_format/jcl/examples/windows/widestring/WideStringDemoMain.pas
    branches/code_format/jcl/experts/common/JclOtaActionConfigureSheet.pas
    branches/code_format/jcl/experts/common/JclOtaConfigurationForm.pas
    branches/code_format/jcl/experts/common/JclOtaConsts.pas
    branches/code_format/jcl/experts/common/JclOtaExceptionForm.pas
    branches/code_format/jcl/experts/common/JclOtaResources.pas
    branches/code_format/jcl/experts/common/JclOtaUtils.pas
    branches/code_format/jcl/experts/common/JclOtaWizardForm.pas
    branches/code_format/jcl/experts/common/JclOtaWizardFrame.pas
    branches/code_format/jcl/experts/debug/JclDebugThread.pas
    branches/code_format/jcl/experts/debug/converter/JclDebugIdeConfigFrame.pas
    branches/code_format/jcl/experts/debug/converter/JclDebugIdeImpl.pas
    branches/code_format/jcl/experts/debug/converter/JclDebugIdeResult.pas
    branches/code_format/jcl/experts/debug/dialog/ExceptDlg.pas
    branches/code_format/jcl/experts/debug/dialog/ExceptDlgMail.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgFileFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgFormFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgIgnoreFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgRepository.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgSystemFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgTraceFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgWizard.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryUtils.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaTemplates.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDModifyForm.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDUtils.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDView.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDViewForm.pas
    branches/code_format/jcl/experts/debug/threadnames/JclIdeThreadStatus.pas
    branches/code_format/jcl/experts/debug/threadnames/ThreadExpertSharedNames.pas
    branches/code_format/jcl/experts/debug/threadnames/ThreadExpertUnit.pas
    branches/code_format/jcl/experts/debug/tools/MapToJdbgMain.pas
    branches/code_format/jcl/experts/debug/tools/TlbToMapMain.pas
    branches/code_format/jcl/experts/favfolders/IdeOpenDlgFavoriteUnit.pas
    branches/code_format/jcl/experts/favfolders/OpenDlgFavAdapter.pas
    branches/code_format/jcl/experts/projectanalyzer/ProjAnalyzerFrm.pas
    branches/code_format/jcl/experts/projectanalyzer/ProjAnalyzerImpl.pas
    branches/code_format/jcl/experts/useswizard/JCLOptionsFrame.pas
    branches/code_format/jcl/experts/useswizard/JCLUsesWizard.pas
    branches/code_format/jcl/experts/useswizard/JclParseUses.pas
    branches/code_format/jcl/experts/useswizard/JclUsesDialog.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlCVSImpl.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlCommonOptions.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlSVNImpl.pas
    branches/code_format/jcl/experts/versioncontrol/VersionControlImpl.pas
    branches/code_format/jcl/install/JclInstall.pas
    branches/code_format/jcl/install/JediInstall.pas
    branches/code_format/jcl/install/JediInstallConfigIni.pas
    branches/code_format/jcl/install/JediRegInfo.pas
    branches/code_format/jcl/install/VclGui/FrmCompile.pas
    branches/code_format/jcl/install/prototypes/JediGUIInstall.pas
    branches/code_format/jcl/install/prototypes/JediGUIMain.pas
    branches/code_format/jcl/install/prototypes/JediGUIReadme.pas
    branches/code_format/jcl/source/common/Jcl8087.pas
    branches/code_format/jcl/source/common/JclAbstractContainers.pas
    branches/code_format/jcl/source/common/JclAlgorithms.pas
    branches/code_format/jcl/source/common/JclAnsiStrings.pas
    branches/code_format/jcl/source/common/JclArrayLists.pas
    branches/code_format/jcl/source/common/JclArraySets.pas
    branches/code_format/jcl/source/common/JclBase.pas
    branches/code_format/jcl/source/common/JclBinaryTrees.pas
    branches/code_format/jcl/source/common/JclBorlandTools.pas
    branches/code_format/jcl/source/common/JclComplex.pas
    branches/code_format/jcl/source/common/JclCompression.pas
    branches/code_format/jcl/source/common/JclContainerIntf.pas
    branches/code_format/jcl/source/common/JclCounter.pas
    branches/code_format/jcl/source/common/JclDateTime.pas
    branches/code_format/jcl/source/common/JclEDI.pas
    branches/code_format/jcl/source/common/JclEDISEF.pas
    branches/code_format/jcl/source/common/JclEDITranslators.pas
    branches/code_format/jcl/source/common/JclEDIXML.pas
    branches/code_format/jcl/source/common/JclEDI_ANSIX12.pas
    branches/code_format/jcl/source/common/JclEDI_ANSIX12_Ext.pas
    branches/code_format/jcl/source/common/JclEDI_UNEDIFACT.pas
    branches/code_format/jcl/source/common/JclEDI_UNEDIFACT_Ext.pas
    branches/code_format/jcl/source/common/JclExprEval.pas
    branches/code_format/jcl/source/common/JclFileUtils.pas
    branches/code_format/jcl/source/common/JclHashMaps.pas
    branches/code_format/jcl/source/common/JclHashSets.pas
    branches/code_format/jcl/source/common/JclIniFiles.pas
    branches/code_format/jcl/source/common/JclLinkedLists.pas
    branches/code_format/jcl/source/common/JclLogic.pas
    branches/code_format/jcl/source/common/JclMIDI.pas
    branches/code_format/jcl/source/common/JclMath.pas
    branches/code_format/jcl/source/common/JclMime.pas
    branches/code_format/jcl/source/common/JclPCRE.pas
    branches/code_format/jcl/source/common/JclQueues.pas
    branches/code_format/jcl/source/common/JclRTTI.pas
    branches/code_format/jcl/source/common/JclResources.pas
    branches/code_format/jcl/source/common/JclSchedule.pas
    branches/code_format/jcl/source/common/JclSimpleXml.pas
    branches/code_format/jcl/source/common/JclStacks.pas
    branches/code_format/jcl/source/common/JclStatistics.pas
    branches/code_format/jcl/source/common/JclStrHashMap.pas
    branches/code_format/jcl/source/common/JclStreams.pas
    branches/code_format/jcl/source/common/JclStringLists.pas
    branches/code_format/jcl/source/common/JclStrings.pas
    branches/code_format/jcl/source/common/JclSysInfo.pas
    branches/code_format/jcl/source/common/JclSysUtils.pas
    branches/code_format/jcl/source/common/JclUnitConv.pas
    branches/code_format/jcl/source/common/JclUnitVersioning.pas
    branches/code_format/jcl/source/common/JclUnitVersioningProviders.pas
    branches/code_format/jcl/source/common/JclValidation.pas
    branches/code_format/jcl/source/common/JclVectors.pas
    branches/code_format/jcl/source/common/JclWideStrings.pas
    branches/code_format/jcl/source/common/bzip2.pas
    branches/code_format/jcl/source/common/pcre.pas
    branches/code_format/jcl/source/prototypes/Hardlinks.pas
    branches/code_format/jcl/source/prototypes/JclWin32.pas
    branches/code_format/jcl/source/prototypes/_GraphUtils.pas
    branches/code_format/jcl/source/prototypes/_Graphics.pas
    branches/code_format/jcl/source/prototypes/zlibh.pas
    branches/code_format/jcl/source/unix/zlibh.pas
    branches/code_format/jcl/source/vcl/JclFont.pas
    branches/code_format/jcl/source/vcl/JclGraphUtils.pas
    branches/code_format/jcl/source/vcl/JclGraphics.pas
    branches/code_format/jcl/source/vcl/JclPrint.pas
    branches/code_format/jcl/source/visclx/JclQGraphUtils.pas
    branches/code_format/jcl/source/visclx/JclQGraphics.pas
    branches/code_format/jcl/source/windows/Hardlinks.pas
    branches/code_format/jcl/source/windows/JclAppInst.pas
    branches/code_format/jcl/source/windows/JclCIL.pas
    branches/code_format/jcl/source/windows/JclCLR.pas
    branches/code_format/jcl/source/windows/JclCOM.pas
    branches/code_format/jcl/source/windows/JclConsole.pas
    branches/code_format/jcl/source/windows/JclDebug.pas
    branches/code_format/jcl/source/windows/JclDotNet.pas
    branches/code_format/jcl/source/windows/JclHookExcept.pas
    branches/code_format/jcl/source/windows/JclLANMan.pas
    branches/code_format/jcl/source/windows/JclLocales.pas
    branches/code_format/jcl/source/windows/JclMapi.pas
    branches/code_format/jcl/source/windows/JclMetadata.pas
    branches/code_format/jcl/source/windows/JclMiscel.pas
    branches/code_format/jcl/source/windows/JclMsdosSys.pas
    branches/code_format/jcl/source/windows/JclMultimedia.pas
    branches/code_format/jcl/source/windows/JclNTFS.pas
    branches/code_format/jcl/source/windows/JclPeImage.pas
    branches/code_format/jcl/source/windows/JclRegistry.pas
    branches/code_format/jcl/source/windows/JclSecurity.pas
    branches/code_format/jcl/source/windows/JclShell.pas
    branches/code_format/jcl/source/windows/JclStructStorage.pas
    branches/code_format/jcl/source/windows/JclSvcCtrl.pas
    branches/code_format/jcl/source/windows/JclSynch.pas
    branches/code_format/jcl/source/windows/JclTD32.pas
    branches/code_format/jcl/source/windows/JclTask.pas
    branches/code_format/jcl/source/windows/JclUnicode.pas
    branches/code_format/jcl/source/windows/JclWideFormat.pas
    branches/code_format/jcl/source/windows/JclWin32Ex.pas
    branches/code_format/jcl/source/windows/JclWinMIDI.pas
    branches/code_format/jcl/source/windows/MSHelpServices_TLB.pas
    branches/code_format/jcl/source/windows/MSTask.pas
    branches/code_format/jcl/source/windows/Snmp.pas
    branches/code_format/jcl/source/windows/mscoree_TLB.pas
    branches/code_format/jcl/source/windows/mscorlib_TLB.pas
    branches/code_format/jcl/source/windows/zlibh.pas

Added Paths:
-----------
    branches/code_format/thirdparty/jedi_code_format/
    branches/code_format/thirdparty/jedi_code_format/JCFSettings.cfg

Modified: branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -130,7 +130,8 @@
   Value: Integer;
 begin
   Value := StrToIntDef(edtFind.Text, 0);
-  It := JclAlgorithms.Find(List.First, List.Size, TObject(Value), SimpleCompare);
+  It := JclAlgorithms.Find(List.First, List.Size, TObject(Value),
+    SimpleCompare);
   if It = nil then
     lblFound.Caption := 'Not found'
   else
@@ -158,7 +159,8 @@
   Value: Integer;
 begin
   Value := StrToIntDef(edtCount.Text, 0);
-  Count := JclAlgorithms.CountObject(List.First, List.Size, TObject(Value), SimpleCompare);
+  Count := JclAlgorithms.CountObject(List.First, List.Size,
+    TObject(Value), SimpleCompare);
   lblCount.Caption := IntToStr(Count);
 end;
 
@@ -243,4 +245,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -164,7 +164,8 @@
     It := Map.Values.First;
     while It.HasNext do
       memResult.Items.Add(TMyObject(It.Next).Str);
-    memResult.Items.Add('--------------------------------------------------------');
+    memResult.Items.Add(
+      '--------------------------------------------------------');
   finally
     // MyObject.Free;  // Free in the map (Default: OwnsObject = True)
     // KeyObject.Free;
@@ -332,4 +333,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -472,4 +472,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -33,7 +33,8 @@
     function Size: Integer;
 
     procedure Add(Index: Integer; AObject: TMyObject); overload;
-    function AddAll(Index: Integer; ACollection: IJclCollection): Boolean; overload;
+    function AddAll(Index: Integer; ACollection: IJclCollection): Boolean;
+      overload;
     function GetObject(Index: Integer): TMyObject;
     function IndexOf(AObject: TMyObject): Integer;
     function LastIndexOf(AObject: TMyObject): Integer;
@@ -61,7 +62,8 @@
   protected
     { IJclList }
     procedure Add(Index: Integer; AObject: TMyObject); overload;
-    function AddAll(Index: Integer; ACollection: IJclCollection): Boolean; overload;
+    function AddAll(Index: Integer; ACollection: IJclCollection): Boolean;
+      overload;
     function GetObject(Index: Integer): TMyObject;
     function IndexOf(AObject: TMyObject): Integer;
     function LastIndexOf(AObject: TMyObject): Integer;
@@ -97,7 +99,7 @@
 
 function TMyObjectList.Contains(AObject: TMyObject): Boolean;
 begin
-Result := inherited Contains(AObject);
+  Result := inherited Contains(AObject);
 end;
 
 function TMyObjectList.GetObject(Index: Integer): TMyObject;
@@ -131,4 +133,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -145,4 +145,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -140,4 +140,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/expreval/ExprEvalExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/expreval/ExprEvalExampleMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/expreval/ExprEvalExampleMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -54,7 +54,8 @@
 
 procedure TForm1.EnterButtonClick(Sender: TObject);
 begin
-  Memo1.Lines.Add(ResultAsText(FEvaluator as TEvaluator, ExpressionInput.Text));
+  Memo1.Lines.Add(ResultAsText(FEvaluator as TEvaluator,
+    ExpressionInput.Text));
 end;
 
 procedure TForm1.FuncListClick(Sender: TObject);

Modified: branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -3,7 +3,7 @@
 interface
 
 uses
-  Types, SysUtils, Classes, 
+  Types, SysUtils, Classes,
   QGraphics, QControls, QForms, QStdCtrls,
   JclExprEval;
 

Modified: branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -9,7 +9,8 @@
 
 uses
   SysUtils, Classes,
-  Types, Qt, QGraphics, QStdCtrls, QControls, QExtCtrls, QComCtrls, QForms, QMask,
+  Types, Qt, QGraphics, QStdCtrls, QControls, QExtCtrls, QComCtrls,
+  QForms, QMask,
   JclStrings, JclFileUtils, QDialogs;
 
 type
@@ -115,7 +116,8 @@
   StatusBar.Panels[2].Text := Format('Processing %s...', [Directory]);
 end;
 
-procedure TFileSearchForm.AddFile(const Directory: string; const FileInfo: TSearchRec);
+procedure TFileSearchForm.AddFile(const Directory: string;
+  const FileInfo: TSearchRec);
 var
   ListItem: TListItem;
   S: string;
@@ -124,9 +126,10 @@
   with ListItem do
   begin
     Caption := Directory + FileInfo.Name;
-    Str(GetSizeOfFile(FileInfo):13, S);
+    Str(GetSizeOfFile(FileInfo): 13, S);
     SubItems.Add(S);
-    SubItems.Add(FormatDateTime(' yyyy-mm-dd hh:nn:ss ', FileDateToDateTime(FileInfo.Time)));
+    SubItems.Add(FormatDateTime(' yyyy-mm-dd hh:nn:ss ',
+      FileDateToDateTime(FileInfo.Time)));
     SubItems.Add(FileAttributesStr(FileInfo));
     {$IFDEF UNIX}
     if (FileInfo.Attr and faSymLink) <> 0 then
@@ -137,7 +140,8 @@
   end;
 end;
 
-procedure TFileSearchForm.TaskDone(const ID: TFileSearchTaskID; const Aborted: Boolean);
+procedure TFileSearchForm.TaskDone(const ID: TFileSearchTaskID;
+  const Aborted: Boolean);
 begin
   if not FFileListLiveUpdate then
     FileList.Items.EndUpdate;
@@ -145,7 +149,8 @@
   if Aborted then
     StatusBar.Panels[2].Text := 'Prematurely aborted.'
   else
-    StatusBar.Panels[2].Text := Format('...finished (%f seconds).', [(Now - FT0) * SecsPerDay]);
+    StatusBar.Panels[2].Text :=
+      Format('...finished (%f seconds).', [(Now - FT0) * SecsPerDay]);
   FileList.Sorted := True;
   StartBtn.Enabled := True;
   SaveBtn.Enabled := True;
@@ -158,7 +163,8 @@
   RootDirInput.Text := PathCanonicalize(RootDirInput.Text);
 
   FFileEnumerator.SearchOption[fsLastChangeAfter] := cbLastChangeAfter.Checked;
-  FFileEnumerator.SearchOption[fsLastChangeBefore] := cbLastChangeBefore.Checked;
+  FFileEnumerator.SearchOption[fsLastChangeBefore] :=
+    cbLastChangeBefore.Checked;
   if FFileEnumerator.SearchOption[fsLastChangeAfter] then
     FFileEnumerator.LastChangeAfterAsString := edLastChangeAfter.Text;
   if FFileEnumerator.SearchOption[fsLastChangeBefore] then
@@ -171,7 +177,7 @@
   FFileEnumerator.FileSizeMax := StrToInt64(edFileSizeMax.Text);
   FFileEnumerator.IncludeSubDirectories := IncludeSubDirectories.Checked;
   FFileEnumerator.IncludeHiddenSubDirectories := IncludeHiddenSubDirs.Checked;
-  FFileEnumerator.CaseSensitiveSearch := not cbCaseInsensitiveSearch.Checked; 
+  FFileEnumerator.CaseSensitiveSearch := not cbCaseInsensitiveSearch.Checked;
   FDirCount := 0;
 
   StartBtn.Enabled := False;
@@ -195,7 +201,8 @@
   FFileEnumerator.StopTask(FTaskID);
 end;
 
-procedure TFileSearchForm.FileListColumnClick(Sender: TObject; Column: TListColumn);
+procedure TFileSearchForm.FileListColumnClick(Sender: TObject;
+  Column: TListColumn);
 const
   SD: array[TSortDirection] of TSortDirection = (sdDescending, sdAscending);
 begin
@@ -210,8 +217,10 @@
 
 procedure TFileSearchForm.cbFileAttributeClick(Sender: TObject);
 const
-  Interest: array[TCheckBoxState] of TAttributeInterest = (aiRejected, aiRequired, aiIgnored);
-  CBState: array[TAttributeInterest] of TCheckBoxState = (cbGrayed, cbUnchecked, cbChecked);
+  Interest: array[TCheckBoxState] of TAttributeInterest =
+    (aiRejected, aiRequired, aiIgnored);
+  CBState: array[TAttributeInterest] of TCheckBoxState =
+    (cbGrayed, cbUnchecked, cbChecked);
 begin
   with FFileEnumerator.AttributeMask do
   begin
@@ -250,7 +259,7 @@
 begin
   if not IncludeSubDirectories.Checked then
     if IncludeHiddenSubDirs.State = cbChecked then
-        IncludeHiddenSubDirs.State := cbUnchecked;
+      IncludeHiddenSubDirs.State := cbUnchecked;
 end;
 
 procedure TFileSearchForm.DetailsBtnClick(Sender: TObject);
@@ -267,14 +276,13 @@
 begin
   if SaveDialog.Execute then
     with TStringList.Create do
-    try
-      for I := 0 to FileList.Items.Count - 1 do
-        Add(FileList.Items[I].Caption);
-      SaveToFile(SaveDialog.FileName);
-    finally
-      Free;
-    end;
+      try
+        for I := 0 to FileList.Items.Count - 1 do
+          Add(FileList.Items[I].Caption);
+        SaveToFile(SaveDialog.FileName);
+      finally
+        Free;
+      end;
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -71,7 +71,7 @@
   i: Integer;
   H, S, L: Single;
 begin
-  for i := 0 to Length(P)-1 do
+  for i := 0 to Length(P) - 1 do
   begin
     P[i].X := Random(Width);
     P[i].Y := Random(Height);
@@ -91,4 +91,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2007-08-07 19:29:15 UTC (rev 2108)
@@ -31,7 +31,7 @@
   JclQGraphics,
   {$ENDIF VisualCLX}
   {$IFDEF HasShellCtrls}
-    {$WARN UNIT_PLATFORM OFF} 
+    {$WARN UNIT_PLATFORM OFF}
   ShellCtrls,
   {$ENDIF HasShellCtrls}
   JclFileUtils;
@@ -101,8 +101,10 @@
     FStretchTime: LongWord;
     FPreserveAspectRatio: Boolean;
     FResamplingFilter: TResamplingFilter;
-    procedure AddToFileList(const Directory: string; const FileInfo: TSearchRec);
-    procedure FileSearchTerminated(const ID: TFileSearchTaskID; const Aborted: Boolean);
+    procedure AddToFileList(const Directory: string;
+      const FileInfo: TSearchRec);
+    procedure FileSearchTerminated(const ID: TFileSearchTaskID;
+      const Aborted: Boolean);
     function ChangeDirectory: Boolean;
     procedure DoStretch;
     procedure LoadFile(const AFileName: string);
@@ -118,7 +120,8 @@
     procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DropFiles;
     {$ENDIF VCL}
   protected
-    property FileListIndex: Integer read GetFileListIndex write SetFileListIndex;
+    property FileListIndex: Integer read GetFileListIndex
+      write SetFileListIndex;
     property FileName: string read FFileName write SetFileName;
   end;
 
@@ -139,9 +142,10 @@
 
 {$IFDEF MSWINDOWS}
 type
-  TWMDropFilesCallback = procedure (const FileName: string) of object;
+  TWMDropFilesCallback = procedure(const FileName: string) of object;
 
-procedure ProcessWMDropFiles(var Msg: TWMDropFiles; Callback: TWMDropFilesCallback; ...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl: [2119] branches/code_format

[<ou...@us...>]

Revision: 2119
          http://jcl.svn.sourceforge.net/jcl/?rev=2119&view=rev
Author:   outchy
Date:     2007-08-12 01:49:57 -0700 (Sun, 12 Aug 2007)

Log Message:
-----------
New test with maximum line length set to 120.

Modified Paths:
--------------
    branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas
    branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas
    branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas
    branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas
    branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas
    branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas
    branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas
    branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
    branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas
    branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
    branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas
    branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas
    branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas
    branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas
    branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas
    branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas
    branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas
    branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas
    branches/code_format/jcl/examples/common/textreader/TextReaderDemoMain.pas
    branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoCLRFrame.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoGuidForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoMain.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoMetaDataFrame.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoStringsForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoTableForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoUserStringsForm.pas
    branches/code_format/jcl/examples/windows/debug/framestrack/FramesTrackDemoMain.pas
    branches/code_format/jcl/examples/windows/debug/reportconverter/formConverter.pas
    branches/code_format/jcl/examples/windows/debug/sourceloc/SourceLocDemoMain.pas
    branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas
    branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas
    branches/code_format/jcl/examples/windows/delphitools/common/About.pas
    branches/code_format/jcl/examples/windows/delphitools/common/D6MdiMsgFix.pas
    branches/code_format/jcl/examples/windows/delphitools/common/FindDlg.pas
    branches/code_format/jcl/examples/windows/delphitools/common/SHDocVw_TLB.pas
    branches/code_format/jcl/examples/windows/delphitools/common/ToolsUtils.pas
    branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/DependViewMain.pas
    branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeDump.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeGenDef.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResView.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResource.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeSearch.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeViewerControl.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeViewerMain.pas
    branches/code_format/jcl/examples/windows/delphitools/resfix/ResFixMain.pas
    branches/code_format/jcl/examples/windows/delphitools/screenjpg/Main.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ChangePriority.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Global.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/HeapDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Main.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ModulesDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ViewTemplate.pas
    branches/code_format/jcl/examples/windows/edisdk/EDICOMExampleMain.pas
    branches/code_format/jcl/examples/windows/edisdk/EDISDK_TLB.pas
    branches/code_format/jcl/examples/windows/edisdk/comserver/EDISDK_TLB.pas
    branches/code_format/jcl/examples/windows/edisdk/comserver/JclEDICOM_ANSIX12.pas
    branches/code_format/jcl/examples/windows/filesummary/FileSummaryDemoMain.pas
    branches/code_format/jcl/examples/windows/fileversion/VerInfoDemoMain.pas
    branches/code_format/jcl/examples/windows/lanman/LanManDemoMain.pas
    branches/code_format/jcl/examples/windows/locales/LocalesDemoMain.pas
    branches/code_format/jcl/examples/windows/mapi/MapiDemoMain.pas
    branches/code_format/jcl/examples/windows/multimedia/MultimediaDemoMain.pas
    branches/code_format/jcl/examples/windows/ntfs/SoftLinkDragDropHandler.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoDependent.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoGroups.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoMain.pas
    branches/code_format/jcl/examples/windows/peimage/ApiHookDemoMain.pas
    branches/code_format/jcl/examples/windows/peimage/UnmangleNameDemoMain.pas
    branches/code_format/jcl/examples/windows/registry/RegistryDemoMain.pas
    branches/code_format/jcl/examples/windows/structstorage/HexDump.pas
    branches/code_format/jcl/examples/windows/structstorage/PropsFrm.pas
    branches/code_format/jcl/examples/windows/structstorage/StructStorageExampleMain.pas
    branches/code_format/jcl/examples/windows/sysinfo/SysInfoDemoMain.pas
    branches/code_format/jcl/examples/windows/tasks/TaskDemoDataModule.pas
    branches/code_format/jcl/examples/windows/tasks/TaskDemoMain.pas
    branches/code_format/jcl/examples/windows/widestring/WideStringDemoMain.pas
    branches/code_format/jcl/experts/common/JclOtaConfigurationForm.pas
    branches/code_format/jcl/experts/common/JclOtaConsts.pas
    branches/code_format/jcl/experts/common/JclOtaExceptionForm.pas
    branches/code_format/jcl/experts/common/JclOtaResources.pas
    branches/code_format/jcl/experts/common/JclOtaUtils.pas
    branches/code_format/jcl/experts/common/JclOtaWizardForm.pas
    branches/code_format/jcl/experts/common/JclOtaWizardFrame.pas
    branches/code_format/jcl/experts/debug/JclDebugThread.pas
    branches/code_format/jcl/experts/debug/converter/JclDebugIdeImpl.pas
    branches/code_format/jcl/experts/debug/converter/JclDebugIdeResult.pas
    branches/code_format/jcl/experts/debug/dialog/ExceptDlg.pas
    branches/code_format/jcl/experts/debug/dialog/ExceptDlgMail.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgFileFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgRepository.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgTraceFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgWizard.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryUtils.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaTemplates.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDModifyForm.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDUtils.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDView.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDViewForm.pas
    branches/code_format/jcl/experts/debug/threadnames/JclIdeThreadStatus.pas
    branches/code_format/jcl/experts/debug/threadnames/ThreadExpertSharedNames.pas
    branches/code_format/jcl/experts/debug/threadnames/ThreadExpertUnit.pas
    branches/code_format/jcl/experts/debug/tools/MapToJdbgMain.pas
    branches/code_format/jcl/experts/debug/tools/TlbToMapMain.pas
    branches/code_format/jcl/experts/favfolders/IdeOpenDlgFavoriteUnit.pas
    branches/code_format/jcl/experts/favfolders/OpenDlgFavAdapter.pas
    branches/code_format/jcl/experts/projectanalyzer/ProjAnalyzerFrm.pas
    branches/code_format/jcl/experts/projectanalyzer/ProjAnalyzerImpl.pas
    branches/code_format/jcl/experts/useswizard/JCLUsesWizard.pas
    branches/code_format/jcl/experts/useswizard/JclParseUses.pas
    branches/code_format/jcl/experts/useswizard/JclUsesDialog.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlCVSImpl.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlCommonOptions.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlSVNImpl.pas
    branches/code_format/jcl/experts/versioncontrol/VersionControlImpl.pas
    branches/code_format/jcl/install/JclInstall.pas
    branches/code_format/jcl/install/JediInstall.pas
    branches/code_format/jcl/install/JediInstallConfigIni.pas
    branches/code_format/jcl/install/VclGui/FrmCompile.pas
    branches/code_format/jcl/install/prototypes/JediGUIInstall.pas
    branches/code_format/jcl/install/prototypes/JediGUIMain.pas
    branches/code_format/jcl/source/common/Jcl8087.pas
    branches/code_format/jcl/source/common/JclAbstractContainers.pas
    branches/code_format/jcl/source/common/JclAlgorithms.pas
    branches/code_format/jcl/source/common/JclAnsiStrings.pas
    branches/code_format/jcl/source/common/JclArrayLists.pas
    branches/code_format/jcl/source/common/JclArraySets.pas
    branches/code_format/jcl/source/common/JclBase.pas
    branches/code_format/jcl/source/common/JclBinaryTrees.pas
    branches/code_format/jcl/source/common/JclBorlandTools.pas
    branches/code_format/jcl/source/common/JclComplex.pas
    branches/code_format/jcl/source/common/JclCompression.pas
    branches/code_format/jcl/source/common/JclContainerIntf.pas
    branches/code_format/jcl/source/common/JclCounter.pas
    branches/code_format/jcl/source/common/JclDateTime.pas
    branches/code_format/jcl/source/common/JclEDI.pas
    branches/code_format/jcl/source/common/JclEDISEF.pas
    branches/code_format/jcl/source/common/JclEDITranslators.pas
    branches/code_format/jcl/source/common/JclEDIXML.pas
    branches/code_format/jcl/source/common/JclEDI_ANSIX12.pas
    branches/code_format/jcl/source/common/JclEDI_ANSIX12_Ext.pas
    branches/code_format/jcl/source/common/JclEDI_UNEDIFACT.pas
    branches/code_format/jcl/source/common/JclEDI_UNEDIFACT_Ext.pas
    branches/code_format/jcl/source/common/JclExprEval.pas
    branches/code_format/jcl/source/common/JclFileUtils.pas
    branches/code_format/jcl/source/common/JclHashMaps.pas
    branches/code_format/jcl/source/common/JclHashSets.pas
    branches/code_format/jcl/source/common/JclLinkedLists.pas
    branches/code_format/jcl/source/common/JclLogic.pas
    branches/code_format/jcl/source/common/JclMIDI.pas
    branches/code_format/jcl/source/common/JclMath.pas
    branches/code_format/jcl/source/common/JclMime.pas
    branches/code_format/jcl/source/common/JclPCRE.pas
    branches/code_format/jcl/source/common/JclRTTI.pas
    branches/code_format/jcl/source/common/JclResources.pas
    branches/code_format/jcl/source/common/JclSchedule.pas
    branches/code_format/jcl/source/common/JclSimpleXml.pas
    branches/code_format/jcl/source/common/JclStatistics.pas
    branches/code_format/jcl/source/common/JclStrHashMap.pas
    branches/code_format/jcl/source/common/JclStreams.pas
    branches/code_format/jcl/source/common/JclStringLists.pas
    branches/code_format/jcl/source/common/JclStrings.pas
    branches/code_format/jcl/source/common/JclSysInfo.pas
    branches/code_format/jcl/source/common/JclSysUtils.pas
    branches/code_format/jcl/source/common/JclUnitConv.pas
    branches/code_format/jcl/source/common/JclUnitVersioning.pas
    branches/code_format/jcl/source/common/JclUnitVersioningProviders.pas
    branches/code_format/jcl/source/common/JclValidation.pas
    branches/code_format/jcl/source/common/JclVectors.pas
    branches/code_format/jcl/source/common/JclWideStrings.pas
    branches/code_format/jcl/source/common/bzip2.pas
    branches/code_format/jcl/source/common/pcre.pas
    branches/code_format/jcl/source/prototypes/Hardlinks.pas
    branches/code_format/jcl/source/prototypes/JclWin32.pas
    branches/code_format/jcl/source/prototypes/_GraphUtils.pas
    branches/code_format/jcl/source/prototypes/_Graphics.pas
    branches/code_format/jcl/source/prototypes/zlibh.pas
    branches/code_format/jcl/source/unix/zlibh.pas
    branches/code_format/jcl/source/vcl/JclFont.pas
    branches/code_format/jcl/source/vcl/JclGraphUtils.pas
    branches/code_format/jcl/source/vcl/JclGraphics.pas
    branches/code_format/jcl/source/vcl/JclPrint.pas
    branches/code_format/jcl/source/visclx/JclQGraphUtils.pas
    branches/code_format/jcl/source/visclx/JclQGraphics.pas
    branches/code_format/jcl/source/windows/Hardlinks.pas
    branches/code_format/jcl/source/windows/JclAppInst.pas
    branches/code_format/jcl/source/windows/JclCIL.pas
    branches/code_format/jcl/source/windows/JclCLR.pas
    branches/code_format/jcl/source/windows/JclCOM.pas
    branches/code_format/jcl/source/windows/JclConsole.pas
    branches/code_format/jcl/source/windows/JclDebug.pas
    branches/code_format/jcl/source/windows/JclDotNet.pas
    branches/code_format/jcl/source/windows/JclHookExcept.pas
    branches/code_format/jcl/source/windows/JclLANMan.pas
    branches/code_format/jcl/source/windows/JclLocales.pas
    branches/code_format/jcl/source/windows/JclMapi.pas
    branches/code_format/jcl/source/windows/JclMetadata.pas
    branches/code_format/jcl/source/windows/JclMiscel.pas
    branches/code_format/jcl/source/windows/JclMsdosSys.pas
    branches/code_format/jcl/source/windows/JclMultimedia.pas
    branches/code_format/jcl/source/windows/JclNTFS.pas
    branches/code_format/jcl/source/windows/JclPeImage.pas
    branches/code_format/jcl/source/windows/JclRegistry.pas
    branches/code_format/jcl/source/windows/JclSecurity.pas
    branches/code_format/jcl/source/windows/JclShell.pas
    branches/code_format/jcl/source/windows/JclStructStorage.pas
    branches/code_format/jcl/source/windows/JclSvcCtrl.pas
    branches/code_format/jcl/source/windows/JclSynch.pas
    branches/code_format/jcl/source/windows/JclTD32.pas
    branches/code_format/jcl/source/windows/JclTask.pas
    branches/code_format/jcl/source/windows/JclWideFormat.pas
    branches/code_format/jcl/source/windows/JclWin32.pas
    branches/code_format/jcl/source/windows/JclWin32Ex.pas
    branches/code_format/jcl/source/windows/JclWinMIDI.pas
    branches/code_format/jcl/source/windows/MSHelpServices_TLB.pas
    branches/code_format/jcl/source/windows/MSTask.pas
    branches/code_format/jcl/source/windows/Snmp.pas
    branches/code_format/jcl/source/windows/mscoree_TLB.pas
    branches/code_format/jcl/source/windows/mscorlib_TLB.pas
    branches/code_format/jcl/source/windows/zlibh.pas
    branches/code_format/thirdparty/jedi_code_format/JCFSettings.cfg

Modified: branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -243,4 +243,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -332,4 +332,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -472,4 +472,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -97,7 +97,7 @@
 
 function TMyObjectList.Contains(AObject: TMyObject): Boolean;
 begin
-Result := inherited Contains(AObject);
+  Result := inherited Contains(AObject);
 end;
 
 function TMyObjectList.GetObject(Index: Integer): TMyObject;
@@ -131,4 +131,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -145,4 +145,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -140,4 +140,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -3,7 +3,7 @@
 interface
 
 uses
-  Types, SysUtils, Classes, 
+  Types, SysUtils, Classes,
   QGraphics, QControls, QForms, QStdCtrls,
   JclExprEval;
 

Modified: branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -124,7 +124,7 @@
   with ListItem do
   begin
     Caption := Directory + FileInfo.Name;
-    Str(GetSizeOfFile(FileInfo):13, S);
+    Str(GetSizeOfFile(FileInfo): 13, S);
     SubItems.Add(S);
     SubItems.Add(FormatDateTime(' yyyy-mm-dd hh:nn:ss ', FileDateToDateTime(FileInfo.Time)));
     SubItems.Add(FileAttributesStr(FileInfo));
@@ -171,7 +171,7 @@
   FFileEnumerator.FileSizeMax := StrToInt64(edFileSizeMax.Text);
   FFileEnumerator.IncludeSubDirectories := IncludeSubDirectories.Checked;
   FFileEnumerator.IncludeHiddenSubDirectories := IncludeHiddenSubDirs.Checked;
-  FFileEnumerator.CaseSensitiveSearch := not cbCaseInsensitiveSearch.Checked; 
+  FFileEnumerator.CaseSensitiveSearch := not cbCaseInsensitiveSearch.Checked;
   FDirCount := 0;
 
   StartBtn.Enabled := False;
@@ -250,7 +250,7 @@
 begin
   if not IncludeSubDirectories.Checked then
     if IncludeHiddenSubDirs.State = cbChecked then
-        IncludeHiddenSubDirs.State := cbUnchecked;
+      IncludeHiddenSubDirs.State := cbUnchecked;
 end;
 
 procedure TFileSearchForm.DetailsBtnClick(Sender: TObject);
@@ -267,14 +267,13 @@
 begin
   if SaveDialog.Execute then
     with TStringList.Create do
-    try
-      for I := 0 to FileList.Items.Count - 1 do
-        Add(FileList.Items[I].Caption);
-      SaveToFile(SaveDialog.FileName);
-    finally
-      Free;
-    end;
+      try
+        for I := 0 to FileList.Items.Count - 1 do
+          Add(FileList.Items[I].Caption);
+        SaveToFile(SaveDialog.FileName);
+      finally
+        Free;
+      end;
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -71,7 +71,7 @@
   i: Integer;
   H, S, L: Single;
 begin
-  for i := 0 to Length(P)-1 do
+  for i := 0 to Length(P) - 1 do
   begin
     P[i].X := Random(Width);
     P[i].Y := Random(Height);
@@ -91,4 +91,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -31,7 +31,7 @@
   JclQGraphics,
   {$ENDIF VisualCLX}
   {$IFDEF HasShellCtrls}
-    {$WARN UNIT_PLATFORM OFF} 
+    {$WARN UNIT_PLATFORM OFF}
   ShellCtrls,
   {$ENDIF HasShellCtrls}
   JclFileUtils;
@@ -139,7 +139,7 @@
 
 {$IFDEF MSWINDOWS}
 type
-  TWMDropFilesCallback = procedure (const FileName: string) of object;
+  TWMDropFilesCallback = procedure(const FileName: string) of object;
 
 procedure ProcessWMDropFiles(var Msg: TWMDropFiles; Callback: TWMDropFilesCallback; DropPoint: PPoint = nil); overload;
 var
@@ -201,23 +201,23 @@
     WatchSubTree := False;
     OnChange := ShellChange;
     NotifyFilters := [
-        nfFileNameChange,
-        nfDirNameChange,
+      nfFileNameChange,
+      nfDirNameChange,
         //nfSizeChange,
-        nfWriteChange,
-        nfSecurityChange];
+      nfWriteChange,
+      nfSecurityChange];
   end;
   {$ENDIF HasShellCtrls}
   {$IFDEF VCL}
   DragAcceptFiles(Handle, True);
   {$ENDIF VCL}
   if ParamCount > 0 then
-  with OpenDialog do
-  begin
-    FileName := ParamStr(1);
-    InitialDir := ExtractFileDir(FileName);
-    LoadFile(FileName);
-  end;
+    with OpenDialog do
+    begin
+      FileName := ParamStr(1);
+      InitialDir := ExtractFileDir(FileName);
+      LoadFile(FileName);
+    end;
 end;
 
 {$IFDEF VCL}
@@ -302,7 +302,7 @@
       PageControl.ActivePage := OriginalPage
     else
     {$ENDIF VCL}
-      PageControl.ActivePage := FLastImagePage;
+    PageControl.ActivePage := FLastImagePage;
     FocusControl(PageControl);
   end;
 end;
@@ -331,8 +331,8 @@
   with OriginalImage.Picture do
     if (Graphic = nil) {$IFDEF VCL} or (Graphic is TMetafile) {$ENDIF} then
       Exit;
-  W := StretchedPage.Width-2;
-  H := StretchedPage.Height-2;
+  W := StretchedPage.Width - 2;
+  H := StretchedPage.Height - 2;
   if FPreserveAspectRatio then
     with OriginalImage.Picture.Graphic do
     begin
@@ -379,14 +379,14 @@
 procedure TStretchDemoForm.PrevFile(Sender: TObject);
 begin
   if FileListIndex > 0 then
-    FileListIndex  := FileListIndex - 1;
+    FileListIndex := FileListIndex - 1;
   LoadSelected;
 end;
 
 procedure TStretchDemoForm.NextFile(Sender: TObject);
 begin
   if FileListIndex < FileListView.Items.Count - 1 then
-    FileListIndex  := FileListIndex + 1;
+    FileListIndex := FileListIndex + 1;
   LoadSelected;
 end;
 
@@ -419,15 +419,15 @@
 begin
   case Key of
     Key_Prior:
-      begin
-        PrevFile(Self);
-        Key := 0;
-      end;
+    begin
+      PrevFile(Self);
+      Key := 0;
+    end;
     Key_Next:
-      begin
-        NextFile(Self);
-        Key := 0;
-      end;
+    begin
+      NextFile(Self);
+      Key := 0;
+    end;
   end;
 end;
 

Modified: branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -191,4 +191,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas
===================================================================
--- branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -52,8 +52,8 @@
 
 const
   HalftonesPerOctave = 12;
-  MiddleA            = 440.0; // Hertz
-  MidiMiddleA        = 69;    // A3 = 440 Hertz
+  MiddleA = 440.0; // Hertz
+  MidiMiddleA = 69;    // A3 = 440 Hertz
   Digits = 6;
   MIDIFreqMax = 127.99993896;
   FreqHertzMin = 8.17579892;

Modified: branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -116,7 +116,7 @@
 
 procedure TMainForm.RandBtnClick(Sender: TObject);
 begin
-  ValueEdit.Text := FloatToStr(Power(Random * 4 -2, Random(400)));
+  ValueEdit.Text := FloatToStr(Power(Random * 4 - 2, Random(400)));
   EvalBtn.Enabled := False;
   Display;
 end;

Modified: branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -48,7 +48,7 @@
     procedure Match;
     function GetUIOptions: TJclAnsiRegExOptions;
     procedure UpdateUIOptions;
-    procedure LoadFromFile(const Filename:string);
+    procedure LoadFromFile(const Filename: string);
   protected
     procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
   public
@@ -143,7 +143,8 @@
 var
   Options: TJclAnsiRegExOptions;
 begin
-  if RE = nil then Exit;
+  if RE = nil then
+    Exit;
   Options := RE.Options;
   chkIgnoreCase.Checked := roIgnoreCase in Options;
   chkMultiLine.Checked := roMultiLine in Options;
@@ -176,18 +177,18 @@
 
 procedure TfrmMain.WMDropFiles(var Message: TWMDropFiles);
 var
-  i:integer;
-  buf:array [0..MAX_PATH] of char;
+  i: integer;
+  buf: array [0..MAX_PATH] of char;
 begin
   i := DragQueryFile(Message.Drop, $FFFFFFFF, nil, 0);
   if i > 0 then
-  try
-    DragQueryFile(Message.Drop, 0, buf, sizeof(buf));
-    if FileExists(buf) then
-     LoadFromFile(buf);
-  finally
-    DragFinish(Message.Drop);
-  end;
+    try
+      DragQueryFile(Message.Drop, 0, buf, sizeof(buf));
+      if FileExists(buf) then
+        LoadFromFile(buf);
+    finally
+      DragFinish(Message.Drop);
+    end;
 end;
 
 procedure TfrmMain.LoadFromFile(const Filename: string);
@@ -197,4 +198,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -47,7 +47,7 @@
     procedure Match;
     function GetUIOptions: TJclAnsiRegExOptions;
     procedure UpdateUIOptions;
-    procedure LoadFromFile(const Filename:string);
+    procedure LoadFromFile(const Filename: string);
   protected
     //procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
   public
@@ -140,7 +140,8 @@
 var
   Options: TJclAnsiRegExOptions;
 begin
-  if RE = nil then Exit;
+  if RE = nil then
+    Exit;
   Options := RE.Options;
   chkIgnoreCase.Checked := roIgnoreCase in Options;
   chkMultiLine.Checked := roMultiLine in Options;
@@ -173,4 +174,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas	2007-08-12 08:29:10 UTC (rev 2118)
+++ branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas	2007-08-12 08:49:57 UTC (rev 2119)
@@ -56,7 +56,7 @@
     le131, le132, le133, le134, le135, le136, le137, le138, le139, le140,
     le141, le142, le143, le144, le145, le146, le147, le148, le149, le150,
     le151, le152, le153, le154, le155, le156, le157, le158, le159, le160);
-    
+
   TLargeSet = set of TLargeEnum;
   TLargeSubEnum = le019 .. le150;
   TLargeSubSet = set of TLargeSubEnum;
@@ -169,18 +169,25 @@
   try
     Writer.Writeln('StrToSet with string=''[le019..le023, le033, le045..le049]''');
     JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, '[le019..le023, le033, le045..le049]');
-    Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True');
-    Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False');
+    Writer.Writeln('SetToS...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl: [2158] branches/code_format

[<ou...@us...>]

Revision: 2158
          http://jcl.svn.sourceforge.net/jcl/?rev=2158&view=rev
Author:   outchy
Date:     2007-09-08 12:45:12 -0700 (Sat, 08 Sep 2007)

Log Message:
-----------
reverting previous modifications, new test with JCF rev 532.

Revision Links:
--------------
    http://jcl.svn.sourceforge.net/jcl/?rev=532&view=rev

Modified Paths:
--------------
    branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
    branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas
    branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas
    branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas
    branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoTableForm.pas
    branches/code_format/jcl/examples/windows/delphitools/common/D6MdiMsgFix.pas
    branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeDump.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResView.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResource.pas
    branches/code_format/jcl/examples/windows/delphitools/screenjpg/Main.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/HeapDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Main.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.pas
    branches/code_format/jcl/examples/windows/multimedia/MultimediaDemoMain.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoMain.pas
    branches/code_format/jcl/examples/windows/structstorage/PropsFrm.pas
    branches/code_format/jcl/examples/windows/tasks/TaskDemoDataModule.pas
    branches/code_format/jcl/experts/common/JclOtaConsts.pas
    branches/code_format/jcl/experts/common/JclOtaUtils.pas
    branches/code_format/jcl/experts/debug/dialog/ClxExceptDlg.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgFileFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryReg.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDModifyForm.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDUtils.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDView.pas
    branches/code_format/jcl/experts/debug/threadnames/JclIdeThreadStatus.pas
    branches/code_format/jcl/experts/debug/threadnames/ThreadExpertSharedNames.pas
    branches/code_format/jcl/experts/favfolders/OpenDlgFavAdapter.pas
    branches/code_format/jcl/experts/projectanalyzer/ProjAnalyzerFrm.pas
    branches/code_format/jcl/experts/useswizard/JCLUsesWizard.pas
    branches/code_format/jcl/experts/useswizard/JclParseUses.pas
    branches/code_format/jcl/experts/useswizard/JclUsesDialog.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlCVSImpl.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlSVNImpl.pas
    branches/code_format/jcl/experts/versioncontrol/VersionControlImpl.pas
    branches/code_format/jcl/install/JclInstall.pas
    branches/code_format/jcl/source/common/JclAnsiStrings.pas
    branches/code_format/jcl/source/common/JclBorlandTools.pas
    branches/code_format/jcl/source/common/JclCompression.pas
    branches/code_format/jcl/source/common/JclDateTime.pas
    branches/code_format/jcl/source/common/JclEDISEF.pas
    branches/code_format/jcl/source/common/JclEDI_ANSIX12.pas
    branches/code_format/jcl/source/common/JclEDI_UNEDIFACT.pas
    branches/code_format/jcl/source/common/JclExprEval.pas
    branches/code_format/jcl/source/common/JclFileUtils.pas
    branches/code_format/jcl/source/common/JclLogic.pas
    branches/code_format/jcl/source/common/JclMath.pas
    branches/code_format/jcl/source/common/JclMime.pas
    branches/code_format/jcl/source/common/JclPCRE.pas
    branches/code_format/jcl/source/common/JclRTTI.pas
    branches/code_format/jcl/source/common/JclSchedule.pas
    branches/code_format/jcl/source/common/JclSimpleXml.pas
    branches/code_format/jcl/source/common/JclStreams.pas
    branches/code_format/jcl/source/common/JclStrings.pas
    branches/code_format/jcl/source/common/JclSysInfo.pas
    branches/code_format/jcl/source/common/JclSysUtils.pas
    branches/code_format/jcl/source/common/JclUnitConv.pas
    branches/code_format/jcl/source/common/JclWideStrings.pas
    branches/code_format/jcl/source/prototypes/_GraphUtils.pas
    branches/code_format/jcl/source/prototypes/_Graphics.pas
    branches/code_format/jcl/source/vcl/JclGraphUtils.pas
    branches/code_format/jcl/source/vcl/JclGraphics.pas
    branches/code_format/jcl/source/vcl/JclPrint.pas
    branches/code_format/jcl/source/visclx/JclQGraphUtils.pas
    branches/code_format/jcl/source/windows/JclCIL.pas
    branches/code_format/jcl/source/windows/JclConsole.pas
    branches/code_format/jcl/source/windows/JclDebug.pas
    branches/code_format/jcl/source/windows/JclLANMan.pas
    branches/code_format/jcl/source/windows/JclLocales.pas
    branches/code_format/jcl/source/windows/JclMapi.pas
    branches/code_format/jcl/source/windows/JclMetadata.pas
    branches/code_format/jcl/source/windows/JclMiscel.pas
    branches/code_format/jcl/source/windows/JclMultimedia.pas
    branches/code_format/jcl/source/windows/JclNTFS.pas
    branches/code_format/jcl/source/windows/JclPeImage.pas
    branches/code_format/jcl/source/windows/JclRegistry.pas
    branches/code_format/jcl/source/windows/JclShell.pas
    branches/code_format/jcl/source/windows/JclSvcCtrl.pas
    branches/code_format/jcl/source/windows/JclSynch.pas
    branches/code_format/jcl/source/windows/JclTD32.pas
    branches/code_format/jcl/source/windows/JclTask.pas
    branches/code_format/jcl/source/windows/JclWideFormat.pas
    branches/code_format/jcl/source/windows/JclWinMIDI.pas
    branches/code_format/thirdparty/jedi_code_format/JCFGui.exe
    branches/code_format/thirdparty/jedi_code_format/JCFSettings.cfg

Modified: branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -302,7 +302,7 @@
       PageControl.ActivePage := OriginalPage
     else
     {$ENDIF VCL}
-    PageControl.ActivePage := FLastImagePage;
+      PageControl.ActivePage := FLastImagePage;
     FocusControl(PageControl);
   end;
 end;

Modified: branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas
===================================================================
--- branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -10,7 +10,7 @@
 uses
   Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
   Buttons, ExtCtrls, Spin,
-  JclMath, JclMidi;
+  JclMath, JclMIDI;
 
 type
   TTuningDialog = class(TForm)

Modified: branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -207,7 +207,8 @@
   Writer.Indent;
   try
     Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(crArrow, TypeInfo(TCursor)));
-    Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('crArrow', TypeInfo(TCursor))) + ' (should be ' + IntToStr(crArrow) + ')');
+    Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('crArrow', TypeInfo(TCursor))) +
+      ' (should be ' + IntToStr(crArrow) + ')');
     Writer.Writeln('');
     Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(1, TypeInfo(TCursor)));
     Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('1', TypeInfo(TCursor))) + ' (should be 1)');

Modified: branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -206,7 +206,8 @@
   Writer.Indent;
   try
     Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(crArrow, TypeInfo(TCursor)));
-    Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('crArrow', TypeInfo(TCursor))) + ' (should be ' + IntToStr(crArrow) + ')');
+    Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('crArrow', TypeInfo(TCursor))) +
+      ' (should be ' + IntToStr(crArrow) + ')');
     Writer.Writeln('');
     Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(1, TypeInfo(TCursor)));
     Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('1', TypeInfo(TCursor))) + ' (should be 1)');

Modified: branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -135,8 +135,8 @@
           MemoChanging := False;
         end;
       end;
-      else
-        inherited;
+    else
+      inherited;
     end;
   end
   else

Modified: branches/code_format/jcl/examples/windows/clr/ClrDemoTableForm.pas
===================================================================
--- branches/code_format/jcl/examples/windows/clr/ClrDemoTableForm.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/clr/ClrDemoTableForm.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -4,7 +4,7 @@
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, Buttons, ComCtrls, JclClr, JclMetadata;
+  StdCtrls, Buttons, ComCtrls, JclCLR, JclMetadata;
 
 type
   TDumpLineKind = (lkWide, lkThin, lkEmpty);
@@ -272,8 +272,8 @@
         Result := 'Windows';
       VER_PLATFORM_WIN32_NT:
         Result := 'WinNT';
-      else
-        Result := IntToHex(PlatformID, 8);
+    else
+      Result := IntToHex(PlatformID, 8);
     end;
   end;
 var

Modified: branches/code_format/jcl/examples/windows/delphitools/common/D6MdiMsgFix.pas
===================================================================
--- branches/code_format/jcl/examples/windows/delphitools/common/D6MdiMsgFix.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/delphitools/common/D6MdiMsgFix.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -57,16 +57,16 @@
   with Application do
     if Assigned(MainForm) and (MainForm.FormStyle = fsMDIForm) and
       Assigned(Screen.ActiveForm) and (Screen.ActiveForm.FormStyle <> fsMdiChild) then
-      begin
-        Handled := True;
-        with TApplicationAccess(Application) do
-          if not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
-          begin
+    begin
+      Handled := True;
+      with TApplicationAccess(Application) do
+        if not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
+        begin
             // prevent to call buggy TApplication.IsMDIMsg method, handle message here
-            TranslateMessage(Msg);
-            DispatchMessage(Msg);
-          end;
-      end;
+          TranslateMessage(Msg);
+          DispatchMessage(Msg);
+        end;
+    end;
 end;
 
 constructor TFixApplicationEvents.Create(AOwner: TComponent);

Modified: branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas
===================================================================
--- branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -320,9 +320,9 @@
       stNotFound:
         if Forwarded then
           SetNodeState(Node, modFwdMissing) else SetNodeState(Node, modMissing);
-      else
-        if Forwarded then
-          SetNodeState(Node, modFwdInvalid) else SetNodeState(Node, modInvalid);
+    else
+      if Forwarded then
+        SetNodeState(Node, modFwdInvalid) else SetNodeState(Node, modInvalid);
     end;
   end;
 

Modified: branches/code_format/jcl/examples/windows/delphitools/peviewer/PeDump.pas
===================================================================
--- branches/code_format/jcl/examples/windows/delphitools/peviewer/PeDump.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/delphitools/peviewer/PeDump.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -189,8 +189,8 @@
       Result := icoDelayImport;
     ikBoundImport:
       Result := icoBoundImport;
-    else
-      Result := 0;
+  else
+    Result := 0;
   end;
 end;
 
@@ -787,8 +787,8 @@
         Result := 'ABSOLUTE';
       IMAGE_REL_BASED_HIGHLOW:
         Result := 'HIGHLOW';
-      else
-        Result := IntToStr(RelocType);
+    else
+      Result := IntToStr(RelocType);
     end;
   end;
 
@@ -964,8 +964,8 @@
           Result := Result + #13#10 + ImageCharacteristicValues[I].Name;
       Delete(Result, 1, 2);
     end;
-    else
-      Result := '';
+  else
+    Result := '';
   end;
 end;
 

Modified: branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResView.pas
===================================================================
--- branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResView.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResView.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -345,9 +345,9 @@
         H := GetSystemMetrics(SM_CYICON);
       rkBitmap:
         H := TPeResUnkGraphic(Item).GraphicProperties.Height;
-      else
-        FTempGraphic.Assign(Item);
-        H := FTempGraphic.Height;
+    else
+      FTempGraphic.Assign(Item);
+      H := FTempGraphic.Height;
     end;
     MaxRowHeight := Max(MaxRowHeight, H);
   end;
@@ -531,8 +531,8 @@
         CreateStringsList(TPeResString(FCurrentDir));
         PageControl1.ActivePage := StringsTab;
       end;
-      else
-        Result := False;
+    else
+      Result := False;
     end;
   end;
 
@@ -599,8 +599,8 @@
         TextRichEdit.Lines.Assign(TPeResVersion(FSelectedItem));
         PageControl1.ActivePage := TextTab;
       end;
-      else
-        Result := False;
+    else
+      Result := False;
     end;
   end;
 

Modified: branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResource.pas
===================================================================
--- branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResource.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResource.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -640,8 +640,8 @@
       Result := 'PROCESSKEY';
     $F6..$FE:
       Result := KNF6FE[KeyCode];
-    else
-      Result := '';
+  else
+    Result := '';
   end;
   if Result <> '' then
     Result := 'VK_' + Result;
@@ -1036,8 +1036,8 @@
     case BitCount of
       1, 4, 8:
         Result := 1 shl BitCount;
-      else
-        Result := 0;
+    else
+      Result := 0;
     end;
   end;
 

Modified: branches/code_format/jcl/examples/windows/delphitools/screenjpg/Main.pas
===================================================================
--- branches/code_format/jcl/examples/windows/delphitools/screenjpg/Main.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/delphitools/screenjpg/Main.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -118,8 +118,8 @@
         Result := SaveFile;
       ID_NO:
         Result := True;
-      else
-        Result := False;
+    else
+      Result := False;
     end;
 end;
 

Modified: branches/code_format/jcl/examples/windows/delphitools/toolhelpview/HeapDump.pas
===================================================================
--- branches/code_format/jcl/examples/windows/delphitools/toolhelpview/HeapDump.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/delphitools/toolhelpview/HeapDump.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -187,8 +187,8 @@
                 SubItems.Add('Default');
               HF32_SHARED:
                 SubItems.Add('Shared');
-              else
-                SubItems.Add('Normal');
+            else
+              SubItems.Add('Normal');
             end;
           end;
           Next := Heap32ListNext(SnapProcHandle, HeapList);

Modified: branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Main.pas
===================================================================
--- branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Main.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Main.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -232,8 +232,8 @@
       Result := 1;
     PROCESS_CLASS_TIMECRITICAL:
       Result := 2;
-    else
-      Result := -1;
+  else
+    Result := -1;
   end;
 end;
 

Modified: branches/code_format/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.pas
===================================================================
--- branches/code_format/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -137,8 +137,8 @@
       Result := 'Guard';
     PAGE_NOCACHE:
       Result := 'NoCache';
-    else
-      Result := '';
+  else
+    Result := '';
   end;
 end;
 
@@ -151,8 +151,8 @@
       Result := 'Free';
     MEM_RESERVE:
       Result := 'Reserve';
-    else
-      Result := Format('%x', [P]);
+  else
+    Result := Format('%x', [P]);
   end;
 end;
 
@@ -165,8 +165,8 @@
       Result := 'Mapped';
     MEM_PRIVATE:
       Result := 'Private';
-    else
-      Result := Format('%x', [P]);
+  else
+    Result := Format('%x', [P]);
   end;
 end;
 

Modified: branches/code_format/jcl/examples/windows/multimedia/MultimediaDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/windows/multimedia/MultimediaDemoMain.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/multimedia/MultimediaDemoMain.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -353,8 +353,8 @@
           C := '+';
         3:
           C := '-';
-        else
-          C := '!';
+      else
+        C := '!';
       end;
       List.Add(Format('%*s%s %s', [Node.Level * 2, '', Node.Text, StringOfChar(C, 119 -
         Node.Level * 2 - Length(Node.Text))]));

Modified: branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoMain.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoMain.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -222,7 +222,7 @@
   else
     m_fOrderAsc := True;
 
-  for I:=0 to lstSvc.Columns.Count-1 do
+  for I := 0 to lstSvc.Columns.Count - 1 do
     lstSvc.Columns[I].Tag := Ord(lstSvc.Columns[I] = Column);
 
   SCManager.Sort(SortOrderMapping[Column.Index], m_fOrderAsc);

Modified: branches/code_format/jcl/examples/windows/structstorage/PropsFrm.pas
===================================================================
--- branches/code_format/jcl/examples/windows/structstorage/PropsFrm.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/structstorage/PropsFrm.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -118,8 +118,8 @@
       Result := SLockBytes;
     STGTY_PROPERTY:
       Result := SProperty;
-    else
-      Result := SUnknown;
+  else
+    Result := SUnknown;
   end;
 end;
 

Modified: branches/code_format/jcl/examples/windows/tasks/TaskDemoDataModule.pas
===================================================================
--- branches/code_format/jcl/examples/windows/tasks/TaskDemoDataModule.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/examples/windows/tasks/TaskDemoDataModule.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -112,9 +112,9 @@
     except
       on E: Exception do
       {$IFDEF COMPILER6_UP}
-      ApplicationShowException(E);
+        ApplicationShowException(E);
       {$ELSE}
-        Application.ShowException(E);
+      Application.ShowException(E);
       {$ENDIF}
     end;
 end;

Modified: branches/code_format/jcl/experts/common/JclOtaConsts.pas
===================================================================
--- branches/code_format/jcl/experts/common/JclOtaConsts.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/experts/common/JclOtaConsts.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -40,7 +40,7 @@
   RegJclIDEKey = RegJclKey + 'IDE\';
   DelphiEnvironmentVar = 'DELPHI';
   {$IFDEF COMPILER6_UP}
-  EnvironmentVarsKey    = 'Environment Variables';
+  EnvironmentVarsKey = 'Environment Variables';
   {$ENDIF COMP\xCFLER6_UP}
 
   //=== Various constants shared by different experts ========================

Modified: branches/code_format/jcl/experts/common/JclOtaUtils.pas
===================================================================
--- branches/code_format/jcl/experts/common/JclOtaUtils.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/experts/common/JclOtaUtils.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -282,16 +282,21 @@
 begin
   if SameText(PersonalityText, sDelphiPersonality) then
     Result := bpDelphi32
-  else if SameText(PersonalityText, sDelphiDotNetPersonality) then
+  else
+  if SameText(PersonalityText, sDelphiDotNetPersonality) then
     Result := bpDelphiNet32
-  else if SameText(PersonalityText, sCBuilderPersonality) then
+  else
+  if SameText(PersonalityText, sCBuilderPersonality) then
     Result := bpBCBuilder32
-  else if SameText(PersonalityText, sCSharpPersonality) then
+  else
+  if SameText(PersonalityText, sCSharpPersonality) then
     Result := bpCSBuilder32
-  else if SameText(PersonalityText, sVBPersonality) then
+  else
+  if SameText(PersonalityText, sVBPersonality) then
     Result := bpVisualBasic32
   {$IFDEF COMPILER10_UP}
-  else if SameText(PersonalityText, sDesignPersonality) then
+  else
+  if SameText(PersonalityText, sDesignPersonality) then
     Result := bpDesign
   {$ENDIF COMPILER10_UP}
   else
@@ -1197,13 +1202,13 @@
 begin
   if AboutBoxIndex = -1 then
   begin
-    Supports(BorlandIDEServices,IOTAAboutBoxServices, AboutBoxServices);
+    Supports(BorlandIDEServices, IOTAAboutBoxServices, AboutBoxServices);
     if not Assigned(AboutBoxServices) then
       raise EJclExpertException.CreateTrace(RsENoAboutServices);
     ProductImage := LoadBitmap(FindResourceHInstance(HInstance), 'JCLSPLASH');
     if ProductImage = 0 then
       raise EJclExpertException.CreateTrace(RsENoBitmapResources);
-    AboutBoxIndex := AboutBoxServices.AddPluginInfo(RsAboutTitle, RsAboutDescription, 
+    AboutBoxIndex := AboutBoxServices.AddPluginInfo(RsAboutTitle, RsAboutDescription,
       ProductImage, False, RsAboutLicenceStatus);
   end;
 end;
@@ -1247,7 +1252,7 @@
 
   try
   {$IFDEF BDS}
-  UnregisterAboutBox;
+    UnregisterAboutBox;
   {$ENDIF BDS}
     FreeAndNil(GlobalActionList);
     FreeAndNil(GlobalActionSettings);

Modified: branches/code_format/jcl/experts/debug/dialog/ClxExceptDlg.pas
===================================================================
--- branches/code_format/jcl/experts/debug/dialog/ClxExceptDlg.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/experts/debug/dialog/ClxExceptDlg.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -38,11 +38,11 @@
 const
   QEventType_UMCreateDetails = QEventType(Integer(QEventType_ClxUser) + $01);
 
-  ReportToLogEnabled   = $00000001; // TExceptionDialog.Tag property
+  ReportToLogEnabled = $00000001; // TExceptionDialog.Tag property
   DisableTextScrollbar = $00000002; // TExceptionDialog.Tag property
 
 type
-  TSimpleExceptionLog = class (TObject)
+  TSimpleExceptionLog = class(TObject)
   private
     FLogFileHandle: THandle;
     FLogFileName: string;
@@ -186,7 +186,7 @@
 
 function HookTApplicationHandleException: Boolean;
 const
-  CallOffset      = $86;
+  CallOffset = $86;
   CallOffsetDebug = $63;
 type
   PCALLInstruction = ^TCALLInstruction;
@@ -209,13 +209,15 @@
       if Result then
       begin
         if IsCompiledWithPackages then
-          Result := PeMapImgResolvePackageThunk(Pointer(Integer(CallAddress) + Integer(PCALLInstruction(CallAddress)^.Address) + SizeOf(CALLInstruction))) = SysUtilsShowExceptionAddr
+          Result := PeMapImgResolvePackageThunk(Pointer(Integer(CallAddress) +
+            Integer(PCALLInstruction(CallAddress)^.Address) + SizeOf(CALLInstruction))) = SysUtilsShowExceptionAddr
         else
-          Result := PCALLInstruction(CallAddress)^.Address = Integer(SysUtilsShowExceptionAddr) - Integer(CallAddress) - SizeOf(CALLInstruction);
+          Result := PCALLInstruction(CallAddress)^.Address = Integer(SysUtilsShowExceptionAddr) -
+            Integer(CallAddress) - SizeOf(CALLInstruction);
       end;
     except
       Result := False;
-    end;    
+    end;
   end;
 
 begin
@@ -226,14 +228,14 @@
   begin
     Result := VirtualProtect(CallAddress, sizeof(CallInstruction), PAGE_EXECUTE_READWRITE, OldProtect);
     if Result then
-    try
-      CALLInstruction.Address := Integer(@HookShowException) - Integer(CallAddress) - SizeOf(CALLInstruction);
-      PCALLInstruction(CallAddress)^ := CALLInstruction;
-      if Result then
-        FlushInstructionCache(GetCurrentProcess, CallAddress, SizeOf(CALLInstruction));
-    finally
-      VirtualProtect(CallAddress, sizeof(CallInstruction), OldProtect, Dummy);
-    end;
+      try
+        CALLInstruction.Address := Integer(@HookShowException) - Integer(CallAddress) - SizeOf(CALLInstruction);
+        PCALLInstruction(CallAddress)^ := CALLInstruction;
+        if Result then
+          FlushInstructionCache(GetCurrentProcess, CallAddress, SizeOf(CALLInstruction));
+      finally
+        VirtualProtect(CallAddress, sizeof(CallInstruction), OldProtect, Dummy);
+      end;
   end;
 end;
 
@@ -339,7 +341,7 @@
 begin
   if SeparatorLen = 0 then
     SeparatorLen := 100;
-  SeparatorLen := Max(SeparatorLen, 20);  
+  SeparatorLen := Max(SeparatorLen, 20);
   OpenLog;
   if not FLogWasEmpty then
     Write(AnsiCrLf);
@@ -461,13 +463,13 @@
           ImageBaseStr := StrRepeat(' ', 11);
         if VersionResourceAvailable(ModuleName) then
           with TJclFileVersionInfo.Create(ModuleName) do
-          try
-            DetailsMemo.Lines.Add(ImageBaseStr + BinFileVersion + ' - ' + FileVersion);
-            if FileDescription <> '' then
-              DetailsMemo.Lines.Add(StrRepeat(' ', 11) + FileDescription);
-          finally
-            Free;
-          end
+            try
+              DetailsMemo.Lines.Add(ImageBaseStr + BinFileVersion + ' - ' + FileVersion);
+              if FileDescription <> '' then
+                DetailsMemo.Lines.Add(StrRepeat(' ', 11) + FileDescription);
+            finally
+              Free;
+            end
         else
           DetailsMemo.Lines.Add(ImageBaseStr + RsMissingVersionInfo);
       end;
@@ -708,7 +710,7 @@
       TextLabel.ScrollBars := ssVertical
     else
       TextLabel.ScrollBars := ssNone;
-   end;
+  end;
 end;
 
 //==================================================================================================

Modified: branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgFileFrame.pas
===================================================================
--- branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgFileFrame.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgFileFrame.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -122,8 +122,8 @@
         SaveDialogFileName.FilterIndex := 2;
       bpBCBuilder32:
         SaveDialogFileName.FilterIndex := 3;
-      else
-        SaveDialogFileName.FilterIndex := 1;
+    else
+      SaveDialogFileName.FilterIndex := 1;
     end
   else
     SaveDialogFileName.DefaultExt := '';

Modified: branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryReg.pas
===================================================================
--- branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryReg.pas	2007-09-08 17:16:02 UTC (rev 2157)
+++ branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryReg.pas	2007-09-08 19:45:12 UTC (rev 2158)
@@ -105,10 +105,10 @@
 
   for Index := 0 to PersonalityServices.PersonalityCount - 1 do
     if SameText(PersonalityServices.Personalities[Index], PersonalityName) then
-  begin
-    Result := True;
-    Break;
-  end;
+    begin
+      Result := True;
+      Break;
+    end;
 end;
 {$ELSE BDS}
 begin
@@ -172,8 +172,8 @@
 end;
 
 function JCLWizardInit(const BorlandIDEServices: IBorlandIDEServices;
-    RegisterProc: TWizardRegisterProc;
-    var TerminateProc: TWizardTerminateProc): Boolean stdcall;
+  RegisterProc: TWizardRegisterProc;
+  var TerminateProc: TWizardTerminateProc): Boolean stdcall;
 var
   OTAWizardServices: IOTAWizardServices;
 begin
@@ -235,7 +235,7 @@
   SourceExtension, SourceTemplate, SourceContent, SourceFileName: string;
   OTAServices: IOTAServices;
 begin
-  Supports(BorlandIDEServices,IOTAServices,OTAServices);
+  Supports(BorlandIDEServices, IOTAServices, OTAServices);
   if not Assigned(OTAServices) then
     raise EJclExpertException.CreateTrace(RsENoIDEServices);
 
@@ -244,33 +244,33 @@
 
   case Params.Language of
     bpDelphi32:
-      begin
-        FormExtension := JclBorDesignerFormExtension[Params.Designer];
-        FormTemplate := Templat...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl: [2226] branches/code_format

[<ou...@us...>]

Revision: 2226
          http://jcl.svn.sourceforge.net/jcl/?rev=2226&view=rev
Author:   outchy
Date:     2007-11-15 09:36:08 -0800 (Thu, 15 Nov 2007)

Log Message:
-----------
Test with JCF 2.32

Modified Paths:
--------------
    branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas
    branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas
    branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas
    branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas
    branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas
    branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas
    branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas
    branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas
    branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
    branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas
    branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
    branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas
    branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas
    branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas
    branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas
    branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas
    branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas
    branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas
    branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas
    branches/code_format/jcl/examples/common/textreader/TextReaderDemoMain.pas
    branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoCLRFrame.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoGuidForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoMain.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoMetaDataFrame.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoStringsForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoTableForm.pas
    branches/code_format/jcl/examples/windows/clr/ClrDemoUserStringsForm.pas
    branches/code_format/jcl/examples/windows/debug/framestrack/FramesTrackDemoMain.pas
    branches/code_format/jcl/examples/windows/debug/reportconverter/formConverter.pas
    branches/code_format/jcl/examples/windows/debug/sourceloc/SourceLocDemoMain.pas
    branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas
    branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas
    branches/code_format/jcl/examples/windows/delphitools/common/About.pas
    branches/code_format/jcl/examples/windows/delphitools/common/D6MdiMsgFix.pas
    branches/code_format/jcl/examples/windows/delphitools/common/FindDlg.pas
    branches/code_format/jcl/examples/windows/delphitools/common/SHDocVw_TLB.pas
    branches/code_format/jcl/examples/windows/delphitools/common/ToolsUtils.pas
    branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/DependViewMain.pas
    branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeDump.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeGenDef.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResView.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResource.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeSearch.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeViewerControl.pas
    branches/code_format/jcl/examples/windows/delphitools/peviewer/PeViewerMain.pas
    branches/code_format/jcl/examples/windows/delphitools/resfix/ResFixMain.pas
    branches/code_format/jcl/examples/windows/delphitools/screenjpg/Main.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ChangePriority.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Global.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/HeapDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Main.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ModulesDump.pas
    branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ViewTemplate.pas
    branches/code_format/jcl/examples/windows/edisdk/EDICOMExampleMain.pas
    branches/code_format/jcl/examples/windows/edisdk/EDISDK_TLB.pas
    branches/code_format/jcl/examples/windows/edisdk/comserver/EDISDK_TLB.pas
    branches/code_format/jcl/examples/windows/edisdk/comserver/JclEDICOM_ANSIX12.pas
    branches/code_format/jcl/examples/windows/filesummary/FileSummaryDemoMain.pas
    branches/code_format/jcl/examples/windows/fileversion/VerInfoDemoMain.pas
    branches/code_format/jcl/examples/windows/lanman/LanManDemoMain.pas
    branches/code_format/jcl/examples/windows/locales/LocalesDemoMain.pas
    branches/code_format/jcl/examples/windows/mapi/MapiDemoMain.pas
    branches/code_format/jcl/examples/windows/multimedia/MultimediaDemoMain.pas
    branches/code_format/jcl/examples/windows/ntfs/SoftLinkDragDropHandler.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoDependent.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoGroups.pas
    branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoMain.pas
    branches/code_format/jcl/examples/windows/peimage/ApiHookDemoMain.pas
    branches/code_format/jcl/examples/windows/peimage/UnmangleNameDemoMain.pas
    branches/code_format/jcl/examples/windows/registry/RegistryDemoMain.pas
    branches/code_format/jcl/examples/windows/structstorage/HexDump.pas
    branches/code_format/jcl/examples/windows/structstorage/PropsFrm.pas
    branches/code_format/jcl/examples/windows/structstorage/StructStorageExampleMain.pas
    branches/code_format/jcl/examples/windows/sysinfo/SysInfoDemoMain.pas
    branches/code_format/jcl/examples/windows/tasks/TaskDemoDataModule.pas
    branches/code_format/jcl/examples/windows/tasks/TaskDemoMain.pas
    branches/code_format/jcl/examples/windows/widestring/WideStringDemoMain.pas
    branches/code_format/jcl/experts/common/JclOtaActionConfigureSheet.pas
    branches/code_format/jcl/experts/common/JclOtaConfigurationForm.pas
    branches/code_format/jcl/experts/common/JclOtaConsts.pas
    branches/code_format/jcl/experts/common/JclOtaExceptionForm.pas
    branches/code_format/jcl/experts/common/JclOtaResources.pas
    branches/code_format/jcl/experts/common/JclOtaUtils.pas
    branches/code_format/jcl/experts/common/JclOtaWizardForm.pas
    branches/code_format/jcl/experts/common/JclOtaWizardFrame.pas
    branches/code_format/jcl/experts/debug/JclDebugThread.pas
    branches/code_format/jcl/experts/debug/converter/JclDebugIdeImpl.pas
    branches/code_format/jcl/experts/debug/converter/JclDebugIdeResult.pas
    branches/code_format/jcl/experts/debug/dialog/ClxExceptDlg.pas
    branches/code_format/jcl/experts/debug/dialog/ExceptDlg.pas
    branches/code_format/jcl/experts/debug/dialog/ExceptDlgMail.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgFileFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgRepository.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgTraceFrame.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgWizard.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryReg.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryUtils.pas
    branches/code_format/jcl/experts/debug/dialog/JclOtaTemplates.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDModifyForm.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDUtils.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDView.pas
    branches/code_format/jcl/experts/debug/simdview/JclSIMDViewForm.pas
    branches/code_format/jcl/experts/debug/threadnames/JclIdeThreadStatus.pas
    branches/code_format/jcl/experts/debug/threadnames/ThreadExpertSharedNames.pas
    branches/code_format/jcl/experts/debug/threadnames/ThreadExpertUnit.pas
    branches/code_format/jcl/experts/debug/tools/MapToJdbgMain.pas
    branches/code_format/jcl/experts/debug/tools/TlbToMapMain.pas
    branches/code_format/jcl/experts/favfolders/IdeOpenDlgFavoriteUnit.pas
    branches/code_format/jcl/experts/favfolders/OpenDlgFavAdapter.pas
    branches/code_format/jcl/experts/projectanalyzer/ProjAnalyzerFrm.pas
    branches/code_format/jcl/experts/projectanalyzer/ProjAnalyzerImpl.pas
    branches/code_format/jcl/experts/useswizard/JCLUsesWizard.pas
    branches/code_format/jcl/experts/useswizard/JclParseUses.pas
    branches/code_format/jcl/experts/useswizard/JclUsesDialog.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlCVSImpl.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlCommonOptions.pas
    branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlSVNImpl.pas
    branches/code_format/jcl/experts/versioncontrol/VersionControlImpl.pas
    branches/code_format/jcl/install/JclInstall.pas
    branches/code_format/jcl/install/JediInstall.pas
    branches/code_format/jcl/install/JediInstallConfigIni.pas
    branches/code_format/jcl/install/JediProfiles.pas
    branches/code_format/jcl/install/VclGui/FrmCompile.pas
    branches/code_format/jcl/install/VclGui/JediGUIProfiles.pas
    branches/code_format/jcl/install/prototypes/JediGUIInstall.pas
    branches/code_format/jcl/install/prototypes/JediGUIMain.pas
    branches/code_format/jcl/source/common/Jcl8087.pas
    branches/code_format/jcl/source/common/JclAbstractContainers.pas
    branches/code_format/jcl/source/common/JclAlgorithms.pas
    branches/code_format/jcl/source/common/JclAnsiStrings.pas
    branches/code_format/jcl/source/common/JclArrayLists.pas
    branches/code_format/jcl/source/common/JclArraySets.pas
    branches/code_format/jcl/source/common/JclBase.pas
    branches/code_format/jcl/source/common/JclBinaryTrees.pas
    branches/code_format/jcl/source/common/JclBorlandTools.pas
    branches/code_format/jcl/source/common/JclComplex.pas
    branches/code_format/jcl/source/common/JclCompression.pas
    branches/code_format/jcl/source/common/JclContainerIntf.pas
    branches/code_format/jcl/source/common/JclCounter.pas
    branches/code_format/jcl/source/common/JclDateTime.pas
    branches/code_format/jcl/source/common/JclEDI.pas
    branches/code_format/jcl/source/common/JclEDISEF.pas
    branches/code_format/jcl/source/common/JclEDITranslators.pas
    branches/code_format/jcl/source/common/JclEDIXML.pas
    branches/code_format/jcl/source/common/JclEDI_ANSIX12.pas
    branches/code_format/jcl/source/common/JclEDI_ANSIX12_Ext.pas
    branches/code_format/jcl/source/common/JclEDI_UNEDIFACT.pas
    branches/code_format/jcl/source/common/JclEDI_UNEDIFACT_Ext.pas
    branches/code_format/jcl/source/common/JclExprEval.pas
    branches/code_format/jcl/source/common/JclFileUtils.pas
    branches/code_format/jcl/source/common/JclHashMaps.pas
    branches/code_format/jcl/source/common/JclHashSets.pas
    branches/code_format/jcl/source/common/JclLinkedLists.pas
    branches/code_format/jcl/source/common/JclLogic.pas
    branches/code_format/jcl/source/common/JclMIDI.pas
    branches/code_format/jcl/source/common/JclMath.pas
    branches/code_format/jcl/source/common/JclMime.pas
    branches/code_format/jcl/source/common/JclPCRE.pas
    branches/code_format/jcl/source/common/JclQueues.pas
    branches/code_format/jcl/source/common/JclRTTI.pas
    branches/code_format/jcl/source/common/JclResources.pas
    branches/code_format/jcl/source/common/JclSchedule.pas
    branches/code_format/jcl/source/common/JclSimpleXml.pas
    branches/code_format/jcl/source/common/JclSortedMaps.pas
    branches/code_format/jcl/source/common/JclStacks.pas
    branches/code_format/jcl/source/common/JclStatistics.pas
    branches/code_format/jcl/source/common/JclStrHashMap.pas
    branches/code_format/jcl/source/common/JclStreams.pas
    branches/code_format/jcl/source/common/JclStringLists.pas
    branches/code_format/jcl/source/common/JclStrings.pas
    branches/code_format/jcl/source/common/JclSysInfo.pas
    branches/code_format/jcl/source/common/JclSysUtils.pas
    branches/code_format/jcl/source/common/JclUnitConv.pas
    branches/code_format/jcl/source/common/JclUnitVersioning.pas
    branches/code_format/jcl/source/common/JclUnitVersioningProviders.pas
    branches/code_format/jcl/source/common/JclValidation.pas
    branches/code_format/jcl/source/common/JclVectors.pas
    branches/code_format/jcl/source/common/JclWideStrings.pas
    branches/code_format/jcl/source/common/bzip2.pas
    branches/code_format/jcl/source/common/pcre.pas
    branches/code_format/jcl/source/prototypes/Hardlinks.pas
    branches/code_format/jcl/source/prototypes/JclArrayLists.pas
    branches/code_format/jcl/source/prototypes/JclArraySets.pas
    branches/code_format/jcl/source/prototypes/JclBinaryTrees.pas
    branches/code_format/jcl/source/prototypes/JclHashMaps.pas
    branches/code_format/jcl/source/prototypes/JclHashSets.pas
    branches/code_format/jcl/source/prototypes/JclLinkedLists.pas
    branches/code_format/jcl/source/prototypes/JclVectors.pas
    branches/code_format/jcl/source/prototypes/JclWin32.pas
    branches/code_format/jcl/source/prototypes/_GraphUtils.pas
    branches/code_format/jcl/source/prototypes/_Graphics.pas
    branches/code_format/jcl/source/prototypes/zlibh.pas
    branches/code_format/jcl/source/unix/zlibh.pas
    branches/code_format/jcl/source/vcl/JclFont.pas
    branches/code_format/jcl/source/vcl/JclGraphUtils.pas
    branches/code_format/jcl/source/vcl/JclGraphics.pas
    branches/code_format/jcl/source/vcl/JclPrint.pas
    branches/code_format/jcl/source/visclx/JclQGraphUtils.pas
    branches/code_format/jcl/source/visclx/JclQGraphics.pas
    branches/code_format/jcl/source/windows/Hardlinks.pas
    branches/code_format/jcl/source/windows/JclAppInst.pas
    branches/code_format/jcl/source/windows/JclCIL.pas
    branches/code_format/jcl/source/windows/JclCLR.pas
    branches/code_format/jcl/source/windows/JclCOM.pas
    branches/code_format/jcl/source/windows/JclConsole.pas
    branches/code_format/jcl/source/windows/JclDebug.pas
    branches/code_format/jcl/source/windows/JclDotNet.pas
    branches/code_format/jcl/source/windows/JclHookExcept.pas
    branches/code_format/jcl/source/windows/JclLANMan.pas
    branches/code_format/jcl/source/windows/JclLocales.pas
    branches/code_format/jcl/source/windows/JclMapi.pas
    branches/code_format/jcl/source/windows/JclMetadata.pas
    branches/code_format/jcl/source/windows/JclMiscel.pas
    branches/code_format/jcl/source/windows/JclMsdosSys.pas
    branches/code_format/jcl/source/windows/JclMultimedia.pas
    branches/code_format/jcl/source/windows/JclNTFS.pas
    branches/code_format/jcl/source/windows/JclPeImage.pas
    branches/code_format/jcl/source/windows/JclRegistry.pas
    branches/code_format/jcl/source/windows/JclSecurity.pas
    branches/code_format/jcl/source/windows/JclShell.pas
    branches/code_format/jcl/source/windows/JclStructStorage.pas
    branches/code_format/jcl/source/windows/JclSvcCtrl.pas
    branches/code_format/jcl/source/windows/JclSynch.pas
    branches/code_format/jcl/source/windows/JclTD32.pas
    branches/code_format/jcl/source/windows/JclTask.pas
    branches/code_format/jcl/source/windows/JclUnicode.pas
    branches/code_format/jcl/source/windows/JclWideFormat.pas
    branches/code_format/jcl/source/windows/JclWin32.pas
    branches/code_format/jcl/source/windows/JclWin32Ex.pas
    branches/code_format/jcl/source/windows/JclWinMIDI.pas
    branches/code_format/jcl/source/windows/MSHelpServices_TLB.pas
    branches/code_format/jcl/source/windows/MSTask.pas
    branches/code_format/jcl/source/windows/Snmp.pas
    branches/code_format/jcl/source/windows/mscoree_TLB.pas
    branches/code_format/jcl/source/windows/mscorlib_TLB.pas
    branches/code_format/jcl/source/windows/zlibh.pas

Added Paths:
-----------
    branches/code_format/thirdparty/jedi_code_format/
    branches/code_format/thirdparty/jedi_code_format/JCF.log
    branches/code_format/thirdparty/jedi_code_format/JCFGui.exe
    branches/code_format/thirdparty/jedi_code_format/JCFSettings.cfg

Property Changed:
----------------
    branches/code_format/thirdparty/InnoSetup/
    branches/code_format/thirdparty/InnoSetup/Skin/
    branches/code_format/thirdparty/InnoSetup/Skin/images/
    branches/code_format/thirdparty/svn_cleaner/

Modified: branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas	2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas	2007-11-15 17:36:08 UTC (rev 2226)
@@ -243,4 +243,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas	2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas	2007-11-15 17:36:08 UTC (rev 2226)
@@ -119,7 +119,7 @@
   Map: IJclIntfIntfMap;
   MyObject: IIntfMyObject;
   KeyObject: TInterfacedObject;
-  It: IJclIntfIterator;
+  It:  IJclIntfIterator;
 begin
   Map := TJclIntfIntfHashMap.Create(DefaultContainerCapacity);
   MyObject := TIntfMyObject.Create;
@@ -179,7 +179,7 @@
   Map: IJclMap;
   MyObject: TMyObject;
   KeyObject: TObject;
-  It: IJclIterator;
+  It:  IJclIterator;
 begin
   Map := TJclHashMap.Create(DefaultContainerCapacity, False, False);
   MyObject := TMyObject.Create;
@@ -204,7 +204,7 @@
 var
   MySet: IJclIntfSet;
   MyObject: IIntfMyObject;
-  It: IJclIntfIterator;
+  It:    IJclIntfIterator;
 begin
   MySet := TJclIntfHashSet.Create(DefaultContainerCapacity);
   MyObject := TIntfMyObject.Create;
@@ -223,7 +223,7 @@
 var
   MySet: IJclSet;
   MyObject: TMyObject;
-  It: IJclIterator;
+  It:    IJclIterator;
 begin
   MySet := TJclHashSet.Create(DefaultContainerCapacity, False);
   MyObject := TMyObject.Create;
@@ -242,7 +242,7 @@
 var
   MySet: IJclIntfSet;
   MyObject: IIntfMyObject;
-  It: IJclIntfIterator;
+  It:    IJclIntfIterator;
 begin
   MySet := TJclIntfArraySet.Create(DefaultContainerCapacity);
   MyObject := TIntfMyObject.Create;
@@ -261,7 +261,7 @@
 var
   MySet: IJclSet;
   MyObject: TMyObject;
-  It: IJclIterator;
+  It:    IJclIterator;
 begin
   MySet := TJclArraySet.Create(DefaultContainerCapacity, False);
   MyObject := TMyObject.Create;
@@ -283,7 +283,7 @@
 procedure TMainForm.btnAnsiStrAnsiStrHashMapClick(Sender: TObject);
 var
   Map: IJclAnsiStrAnsiStrMap;
-  It: IJclAnsiStrIterator;
+  It:  IJclAnsiStrIterator;
 begin
   Map := TJclAnsiStrAnsiStrHashMap.Create(DefaultContainerCapacity);
   Map.PutValue('MyKey1', 'MyString1');
@@ -303,7 +303,7 @@
 procedure TMainForm.btnWideStrWideStrHashMapClick(Sender: TObject);
 var
   Map: IJclWideStrWideStrMap;
-  It: IJclWideStrIterator;
+  It:  IJclWideStrIterator;
 begin
   Map := TJclWideStrWideStrHashMap.Create(DefaultContainerCapacity);
   Map.PutValue('MyKey1', 'MyString1');
@@ -324,7 +324,7 @@
 var
   Map: IJclAnsiStrMap;
   MyObject: TMyObject;
-  It: IJclAnsiStrIterator;
+  It:  IJclAnsiStrIterator;
 begin
   Map := TJclAnsiStrHashMap.Create(DefaultContainerCapacity, False);
   MyObject := TMyObject.Create;
@@ -348,7 +348,7 @@
 var
   Map: IJclWideStrMap;
   MyObject: TMyObject;
-  It: IJclWideStrIterator;
+  It:  IJclWideStrIterator;
 begin
   Map := TJclWideStrHashMap.Create(DefaultContainerCapacity, False);
   MyObject := TMyObject.Create;
@@ -371,7 +371,7 @@
 procedure TMainForm.btnAnsiStrHashSetClick(Sender: TObject);
 var
   MySet: IJclAnsiStrSet;
-  It: IJclAnsiStrIterator;
+  It:    IJclAnsiStrIterator;
 begin
   MySet := TJclAnsiStrHashSet.Create(DefaultContainerCapacity);
   MySet.Add('MyString');
@@ -386,7 +386,7 @@
 procedure TMainForm.btnWideStrHashSetClick(Sender: TObject);
 var
   MySet: IJclWideStrSet;
-  It: IJclWideStrIterator;
+  It:    IJclWideStrIterator;
 begin
   MySet := TJclWideStrHashSet.Create(DefaultContainerCapacity);
   MySet.Add('MyString');
@@ -401,8 +401,8 @@
 procedure TMainForm.btnAnsiStrArraySetClick(Sender: TObject);
 var
   MySet: IJclAnsiStrSet;
-  It: IJclAnsiStrIterator;
-  I: Integer;
+  It:    IJclAnsiStrIterator;
+  I:     Integer;
 begin
   MySet := TJclAnsiStrArraySet.Create(DefaultContainerCapacity);
   for I := 1 to 8 do
@@ -421,8 +421,8 @@
 procedure TMainForm.btnWideStrArraySetClick(Sender: TObject);
 var
   MySet: IJclWideStrSet;
-  It: IJclWideStrIterator;
-  I: Integer;
+  It:    IJclWideStrIterator;
+  I:     Integer;
 begin
   MySet := TJclWideStrArraySet.Create(DefaultContainerCapacity);
   for I := 1 to 8 do
@@ -439,4 +439,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas	2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas	2007-11-15 17:36:08 UTC (rev 2226)
@@ -133,7 +133,7 @@
   MyArray: IJclIntfArray;
   MyObject: IIntfMyObject;
   It: IJclIntfIterator;
-  I: Integer;
+  I:  Integer;
 begin
   memResult.Lines.Clear;
   List := TJclIntfArrayList.Create(DefaultContainerCapacity);
@@ -202,8 +202,8 @@
 var
   List: IJclIntfList;
   MyObject: IIntfMyObject;
-  It: IJclIntfIterator;
-  I: Integer;
+  It:   IJclIntfIterator;
+  I:    Integer;
 begin
   memResult.Lines.Clear;
   List := TJclIntfVector.Create(DefaultContainerCapacity);
@@ -241,7 +241,7 @@
 var
   List: IJclList;
   MyObject: TMyObject;
-  It: IJclIterator;
+  It:   IJclIterator;
 begin
   memResult.Lines.Clear;
   List := TJclArrayList.Create(DefaultContainerCapacity, True);
@@ -275,7 +275,7 @@
 var
   List: IJclList;
   MyObject: TMyObject;
-  It: IJclIterator;
+  It:   IJclIterator;
 begin
   memResult.Lines.Clear;
   List := TJclLinkedList.Create(nil, True);
@@ -303,8 +303,8 @@
 var
   List: IJclList;
   MyObject: TMyObject;
-  It: IJclIterator;
-  I: Integer;
+  It:   IJclIterator;
+  I:    Integer;
 begin
   memResult.Lines.Clear;
   List := TJclVector.Create(DefaultContainerCapacity, True);
@@ -360,8 +360,8 @@
   List, Sub: IJclAnsiStrList;
   MyArray: IJclAnsiStrArray;
   It: IJclAnsiStrIterator;
-  I: Integer;
-  S: string;
+  I:  Integer;
+  S:  string;
 begin
   memResult.Lines.Clear;
   List := TJclAnsiStrArrayList.Create(DefaultContainerCapacity);
@@ -394,8 +394,8 @@
   List, Sub: IJclWideStrList;
   MyArray: IJclWideStrArray;
   It: IJclWideStrIterator;
-  I: Integer;
-  S: string;
+  I:  Integer;
+  S:  string;
 begin
   memResult.Lines.Clear;
   List := TJclWideStrArrayList.Create(DefaultContainerCapacity);
@@ -504,9 +504,9 @@
 procedure TMainForm.btnAnsiStrVectorClick(Sender: TObject);
 var
   List: IJclAnsiStrList;
-  S: string;
-  It: IJclAnsiStrIterator;
-  I: Integer;
+  S:    string;
+  It:   IJclAnsiStrIterator;
+  I:    Integer;
 begin
   memResult.Lines.Clear;
   List := TJclAnsiStrVector.Create(DefaultContainerCapacity);
@@ -539,9 +539,9 @@
 procedure TMainForm.btnWideStrVectorClick(Sender: TObject);
 var
   List: IJclWideStrList;
-  S: string;
-  It: IJclWideStrIterator;
-  I: Integer;
+  S:    string;
+  It:   IJclWideStrIterator;
+  I:    Integer;
 begin
   memResult.Lines.Clear;
   List := TJclWideStrVector.Create(DefaultContainerCapacity);
@@ -572,4 +572,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas	2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas	2007-11-15 17:36:08 UTC (rev 2226)
@@ -96,7 +96,7 @@
 
 function TMyObjectList.Contains(AObject: TMyObject): Boolean;
 begin
-Result := inherited Contains(AObject);
+  Result := inherited Contains(AObject);
 end;
 
 function TMyObjectList.GetObject(Index: Integer): TMyObject;
@@ -130,4 +130,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas	2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas	2007-11-15 17:36:08 UTC (rev 2226)
@@ -155,4 +155,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas	2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas	2007-11-15 17:36:08 UTC (rev 2226)
@@ -29,7 +29,7 @@
 
 const
   ResultFormat = '%.1f ms';
-  MsecsPerDay = 24 * 60 * 60 * 1000;
+  MsecsPerDay  = 24 * 60 * 60 * 1000;
 
 {$IFNDEF RTL140_UP}
 const
@@ -42,7 +42,7 @@
 procedure TestList(Results: TStrings);
 var
   List: TList;
-  I: Integer;
+  I:    Integer;
   Start: TDateTime;
 begin
   Randomize;
@@ -77,8 +77,8 @@
 procedure TestJclArrayList(Results: TStrings);
 var
   List: IJclList;
-  It: IJclIterator;
-  I: Integer;
+  It:   IJclIterator;
+  I:    Integer;
   Start: TDateTime;
 begin
   Randomize;
@@ -120,8 +120,8 @@
 procedure TestJclLinkedList(Results: TStrings);
 var
   List: IJclList;
-  I: Integer;
-  It: IJclIterator;
+  I:    Integer;
+  It:   IJclIterator;
   Start: TDateTime;
 begin
   Randomize;
@@ -159,7 +159,7 @@
 procedure TestJclVector(Results: TStrings);
 var
   List: IJclList;
-  I: Integer;
+  I:    Integer;
   Start: TDateTime;
 begin
   Randomize;
@@ -232,7 +232,7 @@
 procedure TestJclHashMap(Results: TStrings);
 var
   Map: IJclMap;
-  I: Integer;
+  I:   Integer;
   Start: TDateTime;
 begin
   Randomize;
@@ -299,7 +299,7 @@
 procedure TestJclAnsiStrAnsiStrHashMap(Results: TStrings);
 var
   Map: IJclAnsiStrAnsiStrMap;
-  I: Integer;
+  I:   Integer;
   Res: string;
   Start: TDateTime;
 begin
@@ -326,7 +326,7 @@
 procedure TestJclWideStrWideStrHashMap(Results: TStrings);
 var
   Map: IJclWideStrWideStrMap;
-  I: Integer;
+  I:   Integer;
   Res: string;
   Start: TDateTime;
 begin

Modified: branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas	2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas	2007-11-15 17:36:08 UTC (rev 2226)
@@ -72,9 +72,9 @@
 procedure TMainForm.btnIntfArrayTreeClick(Sender: TObject);
 var
   Tree: IJclIntfTree;
-  I: Integer;
-  Obj: IIntfInteger;
-  It: IJclIntfIterator;
+  I:    Integer;
+  Obj:  IIntfInteger;
+  It:   IJclIntfIterator;
 begin
   memoResult.Lines.Clear;
   Tree := TJclIntfBinaryTree.Create(IntfIntegerComparator);
@@ -107,8 +107,8 @@
 procedure TMainForm.btnArrayTreeClick(Sender: TObject);
 var
   Tree: IJclTree;
-  I: Integer;
-  It: IJclIterator;
+  I:    Integer;
+  It:   IJclIterator;
 begin
   memoResult.Lines.Clear;
   Tree := TJclBinaryTree.Create(JclAlgorithms.IntegerCompare, True);
@@ -127,8 +127,8 @@
 procedure TMainForm.btnAnsiStrBinaryTreeClick(Sender: TObject);
 var
   Tree: IJclAnsiStrTree;
-  I: Integer;
-  It: IJclAnsiStrIterator;
+  I:    Integer;
+  It:   IJclAnsiStrIterator;
 begin
   memoResult.Lines.Clear;
   Tree := TJclAnsiStrBinaryTree.Create(JclAlgorithms.AnsiStrSimpleCompare);
@@ -147,8 +147,8 @@
 procedure TMainForm.btnWideStrBinaryTreeClick(Sender: TObject);
 var
   Tree: IJclWideStrTree;
-  I: Integer;
-  It: IJclWideStrIterator;
+  I:    Integer;
+  It:   IJclWideStrIterator;
 begin
   memoResult.Lines.Clear;
   Tree := TJclWideStrBinaryTree.Create(JclAlgorithms.WideStrSimpleCompare);
@@ -165,4 +165,3 @@
 end;
 
 end.
-

Modified: branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas	2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas	2007-11-15 17:36:08 UTC (rev 2226)
@@ -3,7 +3,7 @@
 interface
 
 uses
-  Types, SysUtils, Classes, 
+  Types, SysUtils, Classes,
   QGraphics, QControls, QForms, QStdCtrls,
   JclExprEval;
 

Modified: branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas	2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas	2007-11-15 17:36:08 UTC (rev 2226)
@@ -124,7 +124,7 @@
   with ListItem do
   begin
     Caption := Directory + FileInfo.Name;
-    Str(GetSizeOfFile(FileInfo):13, S);
+    Str(GetSizeOfFile(FileInfo): 13, S);
     SubItems.Add(S);
     SubItems.Add...
 
[truncated message content]