fixed default value of TArrow.ArrowType

git-svn-id: trunk@5019 -

components/codetools/memcheck.pas

@@ -828,7 +828,7 @@ const
 procedure _start; cdecl; external;
 {$endif unix}
 
-procedure CheckPointer(p : pointer);[saveregisters,public, alias : 'FPC_CHECKPOINTER'];
+procedure CheckPointer(p: pointer);[saveregisters,public,alias:'FPC_CHECKPOINTER'];
 var
   i  : longint;
   pp : pheap_mem_info;
@@ -2566,6 +2566,9 @@ end.
 
 {
   $Log$
+  Revision 1.27  2004/01/06 10:53:31  mattias
+  fixed default value of TArrow.ArrowType
+
   Revision 1.26  2003/12/25 14:17:06  mattias
   fixed many range check warnings
 

ide/compileroptions.pp

@@ -4711,11 +4711,11 @@ begin
     if AButton=OtherUnitsPathEditBtn then begin
       OldPath:=edtOtherUnits.Text;
       Templates:=SetDirSeparators(
-            '$(LazarusDir)/lcl/units'
-          +';$(LazarusDir)/lcl/units/$(LCLWidgetType)'
-          +';$(LazarusDir)/components/units'
+            '$(LazarusDir)/lcl/units/$(TargetCPU)/$(TargetOS)'
+          +';$(LazarusDir)/lcl/units/$(TargetCPU)/$(TargetOS)/$(LCLWidgetType)'
+          +';$(LazarusDir)/components/units/$(TargetCPU)/$(TargetOS)'
           +';$(LazarusDir)/components/custom'
-          +';$(LazarusDir)/packager/units'
+          +';$(LazarusDir)/packager/units/$(TargetCPU)/$(TargetOS)'
           );
     end else
     if AButton=IncludeFilesPathEditBtn then begin

ideintf/propedits.pp

@@ -2028,13 +2028,11 @@ function TPropertyEditor.GetDefaultOrdValue: Longint;
 var
   APropInfo: PPropInfo;
 begin
-  writeln('TPropertyEditor.GetDefaultOrdValue START ',ClassName);
   APropInfo:=FPropList^[0].PropInfo;
   {if HasAncestor then
     Result:=GetOrdValue(Ancestor,APropInfo)
   else}
   Result:=APropInfo^.Default;
-  writeln('TPropertyEditor.GetDefaultOrdValue END ',Result);
 end;
 
 function TPropertyEditor.GetPrivateDirectory:ansistring;

lcl/arrow.pp

@@ -50,7 +50,6 @@ Type
   private
     FArrowType : TArrowType;
     FShadowType : TShadowType;
-    //FArrowChanged: TNotifyEvent;
     function GetShadowType: TShadowType;
     procedure SetShadowType(const AValue: TShadowType);
     function GetArrowType: TArrowType;
@@ -63,12 +62,17 @@ Type
     procedure Loaded; override;
     procedure InitializeWnd; override;
   published
-    Property ArrowType : TArrowType read GetArrowType write SetArrowType;
-    property ShadowType : TShadowType read fShadowType write SetShadowType;
+    Property ArrowType: TArrowType read GetArrowType write SetArrowType default atLeft;
+    property ShadowType: TShadowType read fShadowType write SetShadowType default stEtchedIn;
     property Visible;
     property OnClick;
     property OnMouseMove;
     property OnMouseDown;
+    property OnMouseUp;
+    property OnChangeBounds;
+    property OnResize;
+    property OnContextPopup;
+    property PopupMenu;
   end;
   
 procedure Register;