Minor changes

git-svn-id: trunk@99 -

designer/designer.pp

@@ -98,7 +98,13 @@ end;
 
 function TDesigner.IsDesignMsg(Sender: TControl; var Message: TLMessage): Boolean;
 Begin
-
+result := false;
+Writeln('In ISDESIGNMSG');
+if ((Message.msg >= LM_MOUSEFIRST) and (Message.msg <= LM_MOUSELAST)) then
+Result := true;
+if Result then Writeln('It IS a design message')
+else
+Writeln('It IS NOT a design message')
 end;
 
 procedure TDesigner.LoadFile(FileName: string);

ide/find_dlg.pp

@@ -32,7 +32,7 @@ uses
 
 type
 
- TFindDialog = class(TCustomForm)
+ TFindDialog = class(TForm)
     lblTexttofind : TLabel;
     edtTexttoFind: TEdit;
     btnOK : TButton;
@@ -64,7 +64,7 @@ implementation
 constructor TFindDialog.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
-  fCompStyle := csForm;
+  Name := 'FindDialog1';
 
   Caption := 'Find';
   Setbounds(0,0,450,250);
@@ -77,6 +77,7 @@ begin
     Left := 10;
     Top := 5;
     Caption := 'Text to find:';
+    Name := 'lblTextToFind';
     Visible := True;
     end;
 
@@ -87,6 +88,7 @@ begin
     Left := lblTextToFind.LEft+lblTextToFind.Width+5;
     Width := Self.Width - Left - 5;
     Top := 5;
+    Name := 'edtTextToFind';
     Visible := True;
     end;
 
@@ -100,6 +102,7 @@ begin
     Width :=(Self.Width div 2) - 10;
     Height := (Self.Height div 2) -35;
     Caption := 'Options';
+    Name := 'gbGroupBox';
     Visible := True;
    end;
 
@@ -113,6 +116,7 @@ begin
      left := 5;
      top := 5;
      Caption := 'Case Sensitive';
+     Name := 'cbCaseSensitive';
      visible := True;
     end;
 
@@ -122,6 +126,7 @@ begin
      left := 5;
      top := 25;
      Caption := 'Whole Words';
+     Name := 'cbWholeWords';
      visible := True;
     end;
 
@@ -131,6 +136,7 @@ begin
      left := 5;
      top := 50;
      Caption := 'Regular Expressions';
+     Name := 'cbRegularExpressions';
      visible := True;
     end;
 
@@ -145,6 +151,7 @@ begin
      Caption := 'Direction';
      Items.Add('Forward');
      Items.Add('Backward');
+     Name := 'rgForwardBack';
      visible := True;
      ItemIndex := 0;
     end;
@@ -159,6 +166,7 @@ begin
      Caption := 'OK';
      ModalResult := mrOK;
      visible := True;
+     Name := 'btnOK';
      OnCLick := @BTnOKClicked;
      end;
 
@@ -171,6 +179,7 @@ begin
      Height := 25;
      Caption := 'Cancel';
      ModalResult := mrCancel;
+     Name := 'btnCancel';
      visible := True;
      OnCLick := @BTnCancelClicked;
      end;
@@ -184,6 +193,7 @@ begin
      Height := 25;
      Caption := 'Help';
 //     ModalResult := mrHelp;
+     Name := 'btnHelp';
      visible := True;
      OnCLick := @BTnHelpClicked;
      end;

ide/main.pp

@@ -1409,6 +1409,8 @@ begin
     FormEditor1.CreateComponent(nil,TForm,
        ObjectInspector1.Left+ObjectInspector1.Width+5,ObjectInspector1.Top,
        400,300));
+
+  CInterface.SetPropByName('Designing',True);
   TempForm:=TForm(CInterface.Control);
   TempForm.Designer :=
     TDesigner.Create(TCustomForm(CInterface.Control));
@@ -1543,12 +1545,12 @@ writeln('FILESAVEDEVENT');
 If TSourceEditor(Sender).IsControlUnit then
   begin
    Writeln('*****************CREATING LFM********************');
-   Writeln('Result = '+Inttostr(CreateLFM(TCustomForm(TSourceEditor(Sender).Control))));
+//   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(MessageDlg)));
-//   Writeln('Result = '+Inttostr(CreateLFM(TCustomForm(TSourceEditor(Sender).Control))));
+//   Writeln('Result = '+Inttostr(CreateLFM(FindDialog1)));
    end;
 end;
 
@@ -1867,10 +1869,8 @@ end.
 { =============================================================================
 
   $Log$
-  Revision 1.33  2001/01/05 17:44:37  lazarus
+  Revision 1.34  2001/01/05 18:56:23  lazarus
-  ViewUnits1, ViewForms1 and MessageDlg are all loaded from their resources and all controls are auto-created on them.
+  Minor changes
-  There are still a few problems with some controls so I haven't converted all forms.
-  Shane
 
   Revision 1.32  2001/01/04 20:33:53  lazarus
   Moved lresources.

ide/uniteditor.pp

@@ -56,12 +56,17 @@ type
     FEditor     : TmwCustomEdit;
 {$endif}
     FControl: TComponent;  //if this is a Form or Datamodule, this is used
-    FCurrentCursorXLine : Integer;  //pulled out of the editor by the Function Getxxx
+
-    FCurrentCursorYLine : Integer;  //pulled out of the editor by the Function Getxxx
+    //pulled out of the editor by the Function Getxxx
+    FCurrentCursorXLine : Integer;
+    //pulled out of the editor by the Function Getxxx
+    FCurrentCursorYLine : Integer;
     FFileName : String;
     FPopUpMenu : TPopupMenu;
     FModified : Boolean;
-    FSource : TStringList; //pulled out of the editor by the Function Getxxx
+
+    //pulled out of the editor by getting it's TStrings
+    FSource : TStringList;
     FUnitName : String;
 
     FOnAfterClose : TNotifyEvent;

lcl/extctrls.pp

@@ -293,11 +293,14 @@ type
   public
      constructor Create (AOwner : TComponent); override;
   published
+     property Align;
+     property Caption;
      property Enabled;
      property ItemIndex;
      property Items;
      property Columns;
      property Visible;
+     property OnClick;
   end;
 
 const
@@ -321,6 +324,9 @@ end.
 
  {
   $Log$
+  Revision 1.4  2001/01/05 18:56:23  lazarus
+  Minor changes
+
   Revision 1.3  2001/01/04 20:33:53  lazarus
   Moved lresources.
   Moved CreateLFM to Main.pp

lcl/include/control.inc

@@ -406,9 +406,9 @@ procedure TControl.WndPRoc(var Message : TLMessage);
 Var
   Form : TCustomForm;
 begin
+  if (csDesigning in ComponentState) then
+   Writeln('CSDesigning in ComponentState');
 
-//Assert(False, Format('Trace:[TControl.WndPRoc] %s --> Message = %d',[CLASSNAME, Message.msg]));
-//Assert(False, 'Trace:-----------IN TCONTROL WNDPROC----------');
   if (csDesigning in ComponentState) then
   begin
       Form := GetParentForm(Self);
@@ -1276,6 +1276,9 @@ end;
 
 { =============================================================================
   $Log$
+  Revision 1.8  2001/01/05 18:56:23  lazarus
+  Minor changes
+
   Revision 1.7  2000/12/29 18:33:54  lazarus
   TStatusBar's create and destroy were not set to override TWinControls so they were never called.
   Shane