paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 12:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed default value of TArrow.ArrowType

Browse Source 
git-svn-id: trunk@5019 -
This commit is contained in:
mattias 2004-01-06 10:53:31 +00:00
parent 032b0987de
commit 0c0420327d
4 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/memcheck.pas
View File

@ -828,7 +828,7 @@ const
procedure _start; cdecl; external; procedure _start; cdecl; external;
{$endif unix} {$endif unix}
procedure CheckPointer(p : pointer);[saveregisters,public, alias : 'FPC_CHECKPOINTER']; procedure CheckPointer(p: pointer);[saveregisters,public,alias:'FPC_CHECKPOINTER'];
var var
i : longint; i : longint;
pp : pheap_mem_info; pp : pheap_mem_info;
@ -2566,6 +2566,9 @@ end.
{ {
$Log$ $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 Revision 1.26 2003/12/25 14:17:06 mattias
fixed many range check warnings fixed many range check warnings

8
ide/compileroptions.pp
View File

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

2
ideintf/propedits.pp
View File

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

10
lcl/arrow.pp
View File

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