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

LCL: added THintWindow.ActivateHintData (bug #7488)

Browse Source 
git-svn-id: trunk@10297 -
This commit is contained in:
vincents 2006-12-05 07:24:50 +00:00
parent 17018c7bca
commit 28bfc29f27
3 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/calendar.pp
View File

@ -191,6 +191,9 @@ begin
FDateAsString := AValue;
FDate := NewDate;
except
// TODO: remove test for csLoading after fpc 2.0.4 has been released
// The Date property is not supposed to be stored, but earlier fpc version
// did this anyway.
if not (csLoading in ComponentState) then
raise EInvalidDate.CreateFmt(rsInvalidDate, [AValue])
else

2
lcl/forms.pp
View File

@ -655,6 +655,8 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure ActivateHint(ARect: TRect; const AHint: String); virtual;
procedure ActivateHintData(ARect: TRect; const AHint: String;
AData: pointer); virtual;
function CalcHintRect(MaxWidth: Integer; const AHint: String;
AData: Pointer): TRect; virtual;
procedure ReleaseHandle;

6
lcl/include/hintwindow.inc
View File

@ -90,6 +90,12 @@ begin
end;
procedure THintWindow.ActivateHint(ARect: TRect; const AHint: String);
begin
ActivateHintData(ARect, AHint, nil);
end;
procedure THintWindow.ActivateHintData(ARect: TRect; const AHint: String;
AData: pointer);
var
InvalidateNeeded: Boolean;
begin