From 5fff3549d0d2b80c791ca4efa20f0e806becf5f8 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Tue, 16 Jan 2001 23:30:45 +0000
Subject: [PATCH] trying to determine what's crashing LAzarus on load. Shane

git-svn-id: trunk@126 -
---
 ide/lazarus.pp      |  7 +++----
 ide/main.pp         |  9 ++++-----
 ide/viewform_dlg.pp | 18 +++++++-----------
 ide/viewunit_dlg.pp | 16 +++++++---------
 4 files changed, 21 insertions(+), 29 deletions(-)

diff --git a/ide/lazarus.pp b/ide/lazarus.pp
index eb48e1ecc4..2b60f20a65 100644
--- a/ide/lazarus.pp
+++ b/ide/lazarus.pp
@@ -53,9 +53,9 @@ begin
 
    Application.CreateForm(TMainIDE, MainIDE);
    Application.CreateForm(TMessageDlg, MessageDlg);
-   Application.CreateForm(TViewForms1, ViewForms1);
    Application.CreateForm(TViewUnits1, ViewUnits1);
    Application.CreateForm(TfrmCompilerOptions, frmCompilerOptions);
+   Application.CreateForm(TViewForms1, ViewForms1);
    SplashForm.StartTimer;
    Application.Run;
 end.
@@ -63,9 +63,8 @@ end.
 
 {
   $Log$
-  Revision 1.10  2001/01/16 22:04:26  lazarus
-  Removes the resource for TViewUnits and it compiles and runs now.
-
+  Revision 1.11  2001/01/16 23:30:45  lazarus
+  trying to determine what's crashing LAzarus on load.
   Shane
 
   Revision 1.9  2001/01/15 18:25:51  lazarus
diff --git a/ide/main.pp b/ide/main.pp
index 396544455c..f4ac93723c 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -1611,8 +1611,8 @@ If TSourceEditor(Sender).IsControlUnit then
    Writeln('*****************CREATING LFM********************');
 //   Writeln('Result = '+Inttostr(CreateLFM(TCustomForm(TSourceEditor(Sender).Control))));
 //  writeln('RESULT IS '+inttostr(CreateLFM(Self)));
-//   Writeln('Result = '+Inttostr(CreateLFM(ViewUnits1)));
-//   Writeln('Result = '+Inttostr(CreateLFM(ViewForms1)));
+   Writeln('Result = '+Inttostr(CreateLFM(ViewUnits1)));
+   Writeln('Result = '+Inttostr(CreateLFM(ViewForms1)));
 //   Writeln('Result = '+Inttostr(CreateLFM(MessageDlg)));
 //   Writeln('Result = '+Inttostr(CreateLFM(FindDialog1)));
 //   Writeln('Result = '+Inttostr(CreateLFM(MainIDE)));
@@ -1927,9 +1927,8 @@ end.
 { =============================================================================
 
   $Log$
-  Revision 1.47  2001/01/16 22:04:26  lazarus
-  Removes the resource for TViewUnits and it compiles and runs now.
-
+  Revision 1.48  2001/01/16 23:30:45  lazarus
+  trying to determine what's crashing LAzarus on load.
   Shane
 
   Revision 1.45  2001/01/15 20:55:44  lazarus
diff --git a/ide/viewform_dlg.pp b/ide/viewform_dlg.pp
index 796036e2a1..191f67a0e3 100644
--- a/ide/viewform_dlg.pp
+++ b/ide/viewform_dlg.pp
@@ -43,7 +43,7 @@ type
     Procedure listbox1Click(Sender : TObject);
 protected
 public
- //   constructor Create(AOwner: TComponent); override;	
+   // constructor Create(AOwner: TComponent); override;	
 end;
 
 var
@@ -75,8 +75,8 @@ begin
   btnOK.Height := 25;
   btnOK.Caption := 'OK';
   btnOK.Visible := True;
-  btnOK.Name := 'btnOK';
   btnOK.OnClick := @btnOKClick;
+  btnOK.Name := 'btnOK';
 
   btnCancel := TButton.Create(Self);
   btnCancel.Parent := Self;
@@ -108,15 +108,12 @@ begin
     Height:= Self.Height - Top - pad;
     Visible:= true;
     MultiSelect:= false;
-    Listbox1.Name := 'Listbox1';
+    Name := 'Listbox1';
     OnClick :=@listbox1Click;
-
-
-//    Selected[1]:= true;
   end;
 
 end;
-           }
+      }
 
 Procedure TViewForms1.btnOKClick(Sender : TOBject);
 Begin
@@ -159,7 +156,7 @@ end;
 initialization
 {Do not change the following}
 {<LAZARUSFORMDEF>}
-{$I viewforms1.lrs}
+{ $I viewforms1.lrs}
 {<LAZARUSFORMDEFEND>}
 {}
 
@@ -168,9 +165,8 @@ initialization
 end.
 {
   $Log$
-  Revision 1.5  2001/01/16 22:04:26  lazarus
-  Removes the resource for TViewUnits and it compiles and runs now.
-
+  Revision 1.6  2001/01/16 23:30:45  lazarus
+  trying to determine what's crashing LAzarus on load.
   Shane
 
   Revision 1.4  2001/01/14 03:56:57  lazarus
diff --git a/ide/viewunit_dlg.pp b/ide/viewunit_dlg.pp
index 20456c8a11..08348106ed 100644
--- a/ide/viewunit_dlg.pp
+++ b/ide/viewunit_dlg.pp
@@ -43,7 +43,7 @@ type
     Procedure Listbox1Click(Sender : TObject);
 protected
 public
-    constructor Create(AOwner: TComponent); override;	
+  //  constructor Create(AOwner: TComponent); override;	
 end;
 
 var
@@ -51,7 +51,7 @@ ViewUnits1 : TViewUnits1;
 
 implementation
 
-
+  {
 constructor TViewUnits1.Create(AOwner: TComponent);	
 var
 Pad : Integer;
@@ -109,13 +109,12 @@ begin
     MultiSelect:= false;
     Name := 'Listbox1';
     OnClick := @ListBox1Click;
-//    Selected[1]:= true;
   end;
 
 
 
 end;
-
+       }
 
 Procedure TViewUnits1.btnOKClick(Sender : TOBject);
 Begin
@@ -130,7 +129,7 @@ End;
 
 Procedure TViewUnits1.btnCancelClick(Sender : TOBject);
 Begin
-close;ModalResult := mrCancel;
+ModalResult := mrCancel;
 end;
 
 Procedure TViewUnits1.listbox1Click(Sender : TObject);
@@ -156,7 +155,7 @@ end;
 initialization
 {Do not change the following}
 {<LAZARUSFORMDEF>}
-{ $I viewunits1.lrs}
+{$I viewunits1.lrs}
 {<LAZARUSFORMDEFEND>}
 {}
 
@@ -164,9 +163,8 @@ initialization
 end.
 {
   $Log$
-  Revision 1.5  2001/01/16 22:04:26  lazarus
-  Removes the resource for TViewUnits and it compiles and runs now.
-
+  Revision 1.6  2001/01/16 23:30:45  lazarus
+  trying to determine what's crashing LAzarus on load.
   Shane
 
   Revision 1.4  2001/01/14 03:56:57  lazarus