paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 14:58:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

trying to determine what's crashing LAzarus on load.

Browse Source 
Shane

git-svn-id: trunk@126 -
This commit is contained in:
lazarus 2001-01-16 23:30:45 +00:00
parent c0ca68ed97
commit 5fff3549d0
4 changed files with 21 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/lazarus.pp
View File

@ -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

9
ide/main.pp
View File

@ -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

18
ide/viewform_dlg.pp
View File

@ -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

16
ide/viewunit_dlg.pp
View File

@ -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