paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 01:59:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed SetColor

Browse Source 
git-svn-id: trunk@3743 -
This commit is contained in:
mattias 2002-12-27 17:46:04 +00:00
parent 279a4f077c
commit c9dfc381a4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/forms.pp
View File

@ -368,7 +368,7 @@ type
property AutoSize; property AutoSize;
property BorderStyle; property BorderStyle;
property Caption; property Caption;
property Color default clBtnFace; property Color;
property ClientHeight; property ClientHeight;
property ClientWidth; property ClientWidth;
property Constraints; property Constraints;
@ -423,7 +423,6 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure ActivateHint(ARect: TRect; const AHint: String); virtual; procedure ActivateHint(ARect: TRect; const AHint: String); virtual;
function CalcHintRect(MaxWidth: Integer; const AHint: String; AData: Pointer): TRect; virtual; function CalcHintRect(MaxWidth: Integer; const AHint: String; AData: Pointer): TRect; virtual;
property Color;
property AutoHide : Boolean read FAutoHide write SetAutoHide; property AutoHide : Boolean read FAutoHide write SetAutoHide;
property HideInterval : Integer read FHideInterval write SetHideInterval; property HideInterval : Integer read FHideInterval write SetHideInterval;
end; end;