From 3adfcc06616d2fd302f5789148d99857b08b86c7 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 7 Jul 2005 19:25:09 +0000
Subject: [PATCH] fixed var parameter

git-svn-id: trunk@7326 -
---
 components/synedit/synedit.pp |  2 +-
 doceditor/frmbuild.pp         |  5 +++--
 doceditor/frmexample.pp       |  1 +
 doceditor/lazde.lpi           | 24 ++++++++++++------------
 4 files changed, 17 insertions(+), 15 deletions(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 108427849d..5b5f026f58 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -2499,7 +2499,7 @@ var
   iLine: integer;
 begin
   iLine := PixelsToRowColumn(Point(0, Y)).Y;
-  
+
   case TSynEditStringList(fLines).FoldType[iLine] of
   cfExpanded:
     begin
diff --git a/doceditor/frmbuild.pp b/doceditor/frmbuild.pp
index 3564ea4426..5580f33af7 100644
--- a/doceditor/frmbuild.pp
+++ b/doceditor/frmbuild.pp
@@ -137,7 +137,7 @@ type
     // Sources methods
     Function SourceFileCount : Integer;
     Function AddSource(Const ASource,AOptions : String) : Integer;
-    Procedure GetSourceOptions(Index : Integer; Var ASource, AOptions: String);
+    Procedure GetSourceOptions(Index : Integer; Out ASource, AOptions: String);
     Procedure SetSourceOptions(Index : Integer; Const ASource, AOptions: String);
     Procedure ClearSources;
     procedure DisplaySources;
@@ -566,7 +566,8 @@ begin
   FOptions[Index]:=ASource+'='+AOptions;
 end;
 
-Procedure TBuildForm.GetSourceOptions(Index : Integer; Var ASource, AOptions: String);
+Procedure TBuildForm.GetSourceOptions(Index : Integer;
+  Out ASource, AOptions: String);
 
 Var
   N : Integer;
diff --git a/doceditor/frmexample.pp b/doceditor/frmexample.pp
index c2cf3188d4..154eb7251c 100644
--- a/doceditor/frmexample.pp
+++ b/doceditor/frmexample.pp
@@ -68,6 +68,7 @@ procedure TExampleForm.ExampleFormCloseQuery(Sender: TObject;
 var
   S: String;
 begin
+  if Sender = nil then exit;
   if ModalResult = mrOk then begin
     S := ExtractFilePath(EFilename.Text);
     CanClose := CheckFilePath(S);
diff --git a/doceditor/lazde.lpi b/doceditor/lazde.lpi
index 69fda6c83f..979fd5b243 100644
--- a/doceditor/lazde.lpi
+++ b/doceditor/lazde.lpi
@@ -8,7 +8,7 @@
         <SaveOnlyProjectUnits Value="True"/>
       </Flags>
       <MainUnit Value="0"/>
-      <ActiveEditorIndexAtStart Value="12"/>
+      <ActiveEditorIndexAtStart Value="10"/>
       <AutoCreateForms Value="False"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=".exe"/>
@@ -108,8 +108,8 @@
         <UsageCount Value="52"/>
       </Unit7>
       <Unit8>
-        <CursorPos X="28" Y="29"/>
-        <EditorIndex Value="17"/>
+        <CursorPos X="16" Y="26"/>
+        <EditorIndex Value="12"/>
         <Filename Value="pkeditor.pp"/>
         <IsPartOfProject Value="True"/>
         <Loaded Value="True"/>
@@ -118,18 +118,18 @@
         <UsageCount Value="46"/>
       </Unit8>
       <Unit9>
-        <CursorPos X="21" Y="24"/>
+        <CursorPos X="16" Y="497"/>
         <EditorIndex Value="7"/>
         <Filename Value="eleditor.pp"/>
         <IsPartOfProject Value="True"/>
         <Loaded Value="True"/>
-        <TopLine Value="1"/>
+        <TopLine Value="473"/>
         <UnitName Value="ElEditor"/>
         <UsageCount Value="46"/>
       </Unit9>
       <Unit10>
         <CursorPos X="34" Y="28"/>
-        <EditorIndex Value="16"/>
+        <EditorIndex Value="11"/>
         <Filename Value="fpdeutil.pp"/>
         <IsPartOfProject Value="True"/>
         <Loaded Value="True"/>
@@ -138,26 +138,26 @@
         <UsageCount Value="46"/>
       </Unit10>
       <Unit11>
-        <CursorPos X="30" Y="9"/>
-        <EditorIndex Value="8"/>
+        <CursorPos X="15" Y="71"/>
+        <EditorIndex Value="9"/>
         <Filename Value="frmexample.pp"/>
         <ComponentName Value="ExampleForm"/>
         <IsPartOfProject Value="True"/>
         <Loaded Value="True"/>
         <ResourceFilename Value="frmexample.lrs"/>
-        <TopLine Value="1"/>
+        <TopLine Value="66"/>
         <UnitName Value="FrmExample"/>
         <UsageCount Value="37"/>
       </Unit11>
       <Unit12>
-        <CursorPos X="14" Y="665"/>
-        <EditorIndex Value="9"/>
+        <CursorPos X="3" Y="570"/>
+        <EditorIndex Value="10"/>
         <Filename Value="frmbuild.pp"/>
         <ComponentName Value="BuildForm"/>
         <IsPartOfProject Value="True"/>
         <Loaded Value="True"/>
         <ResourceFilename Value="frmbuild.lrs"/>
-        <TopLine Value="655"/>
+        <TopLine Value="545"/>
         <UnitName Value="frmBuild"/>
         <UsageCount Value="32"/>
       </Unit12>