MG: fixes for 1.1

git-svn-id: trunk@3523 -

components/codetools/allcodetoolunits.pp

@@ -14,7 +14,7 @@ unit AllCodeToolUnits;
 interface
 
 uses
-  MemCheck,
+  {$IFDEF VER1_0}MemCheck,{$ENDIF}
   CodeToolManager, CustomCodeTool, PascalParserTool, FindDeclarationTool,
   StdCodeTools, MethodJumpTool, EventCodeTool, CodeCompletionTool, LinkScanner,
   FindDeclarationCache, BasicCodeTools, CodeTree, CodeAtom, SourceChanger,
@@ -30,6 +30,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.11  2002/10/20 21:54:02  lazarus
+  MG: fixes for 1.1
+
   Revision 1.10  2002/04/28 14:10:30  lazarus
   MG: fixes for saving resource files
 

debugger/watchpropertydlg.pp

@@ -62,7 +62,8 @@ type
     FWatch: TDBGWatch;
     FDebugger: TDebugger;
   public
-    constructor Create(AOWner: TCOmponent; const AWatch: TDBGWatch; const ADebugger: TDebugger); //reintroduce;
+    constructor Create(AOWner: TComponent; const AWatch: TDBGWatch;
+      const ADebugger: TDebugger); //reintroduce;
     destructor Destroy; override;
   published
     // publish some properties until fpcbug #1888 is fixed

designer/objectinspector.pp

@@ -269,7 +269,7 @@ type
     procedure SetBounds(aLeft,aTop,aWidth,aHeight:integer); override;
     procedure Paint;  override;
     procedure Clear;
-    constructor Create(AnOwner:TComponent;
+    constructor CreateWithParams(AnOwner:TComponent;
        APropertyEditorHook:TPropertyEditorHook;  TypeFilter:TTypeKinds);
     destructor Destroy;  override;
   end;
@@ -344,7 +344,7 @@ end;
 
 { TOIPropertyGrid }
 
-constructor TOIPropertyGrid.Create(AnOwner:TComponent;
+constructor TOIPropertyGrid.CreateWithParams(AnOwner:TComponent;
   APropertyEditorHook:TPropertyEditorHook;  TypeFilter:TTypeKinds);
 begin
   inherited Create(AnOwner);
@@ -1943,7 +1943,7 @@ begin
   end;
 
   // property grid
-  PropertyGrid:=TOIPropertyGrid.Create(Self,PropertyEditorHook
+  PropertyGrid:=TOIPropertyGrid.CreateWithParams(Self,PropertyEditorHook
       ,[tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat, tkSet{, tkMethod}
       , tkSString, tkLString, tkAString, tkWString, tkVariant
       {, tkArray, tkRecord, tkInterface}, tkClass, tkObject, tkWChar, tkBool
@@ -1962,7 +1962,8 @@ begin
   end;
 
   // event grid
-  EventGrid:=TOIPropertyGrid.Create(Self,PropertyEditorHook,[tkMethod]);
+  EventGrid:=TOIPropertyGrid.CreateWithParams(Self,PropertyEditorHook,
+                                              [tkMethod]);
   with EventGrid do begin
     Name:='EventGrid';
     Parent:=NoteBook.Page[1];

lcl/comctrls.pp

@@ -369,6 +369,7 @@ type
     property ScrollBars;
     property SmallImages;
     property SortColumn;
+    property SortType;
     property Visible;
     property ViewStyle;
     property OnMouseMove;
@@ -507,7 +508,7 @@ type
     procedure ChangeBounds(ALeft, ATop, AWidth, AHeight: Integer); Override;
     function CanChange: Boolean; dynamic;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
-    procedure Click(Button: TUDBtnType); dynamic;
+    procedure ClickUpDown(Button: TUDBtnType); virtual;
     property AlignButton: TUDAlignButton read FAlignButton write SetAlignButton default udRight;
     property ArrowKeys: Boolean read FArrowKeys write SetArrowKeys default True;
     property Associate: TWinControl read FAssociate write SetAssociate;
@@ -1699,6 +1700,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.53  2002/10/20 21:54:02  lazarus
+  MG: fixes for 1.1
+
   Revision 1.52  2002/10/20 19:03:56  lazarus
   AJ: minor fixes for FPC 1.1
 

lcl/include/customupdown.inc

@@ -29,7 +29,8 @@ Type
     Procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
   Public
-    constructor Create(UpDown : TCustomUpDown; ButtonType : TUDBtnType);
+    constructor CreateWithParams(UpDown : TCustomUpDown;
+      ButtonType : TUDBtnType);
 
     Procedure Paint; Override;
   end;
@@ -92,11 +93,12 @@ begin
         end;
         
     end;
-    FUpDown.Click(FButtonType);
+    FUpDown.ClickUpDown(FButtonType);
   end;
 end;
 
-constructor TUpDownButton.Create(UpDown : TCustomUpDown; ButtonType : TUDBtnType);
+constructor TUpDownButton.CreateWithParams(UpDown : TCustomUpDown;
+  ButtonType : TUDBtnType);
 begin
   Inherited Create(UpDown);
   FUpDown := UpDown;
@@ -173,8 +175,8 @@ begin
   fCompStyle := csPanel;
   ControlStyle := ControlStyle  - [csDoubleClicks] +
     [csClickEvents, csOpaque,  csReplicatable, csNoFocus];
-  MinBtn := TUpDownButton.Create(Self, btPrev);
-  MaxBtn := TUpDownButton.Create(Self, btNext);
+  MinBtn := TUpDownButton.CreateWithParams(Self, btPrev);
+  MaxBtn := TUpDownButton.CreateWithParams(Self, btNext);
   InheritedChangeBounds := True;
   SetBounds(0,0,17,31);
   InheritedChangeBounds := False;
@@ -227,7 +229,7 @@ begin
     FOnChanging(Self, Result);
 end;
 
-procedure TCustomUpDown.Click(Button: TUDBtnType);
+procedure TCustomUpDown.ClickUpDown(Button: TUDBtnType);
 begin
   if Assigned(FOnClick) then FOnClick(Self, Button);
 end;

lcl/include/image.inc

@@ -41,7 +41,7 @@ begin
   FPicture.Assign(AValue);  //the onchange of the picture gets called and notifies that something changed.
 end;
 
-procedure TImage.SetAutoSize(Value : Boolean);
+procedure TImage.SetAutoSize(const Value : Boolean);
 var
   ModifyWidth,
   ModifyHeight : Boolean;

lcl/stdctrls.pp

@@ -302,6 +302,7 @@ type
     property OnChange;
     property OnClick;
     property OnCloseUp;
+    property OnDrawItem;
     property OnDropDown;
     property OnEnter;
     property OnExit;
@@ -1521,6 +1522,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.56  2002/10/20 21:54:03  lazarus
+  MG: fixes for 1.1
+
   Revision 1.55  2002/10/18 16:08:09  lazarus
   AJ: Partial HintWindow Fix; Added Screen.Font & Font.Name PropEditor; Started to fix ComboBox DropDown size/pos