paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 09:40:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add Variant => TCaption operator

Browse Source 
git-svn-id: trunk@22325 -
This commit is contained in:
paul 2009-10-29 04:35:45 +00:00
parent 20a578cf98
commit 9f073bba5d
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/controls.pp
View File

@ -2372,6 +2372,8 @@ function DbgS(Anchors: TAnchors): string; overload;
function DbgS(a: TAlign): string; overload;
function DbgS(a: TAnchorKind; Side: TAnchorSideReference): string; overload;
operator := (AVariant: Variant): TCaption;
// register (called by the package initialization in design mode)
procedure Register;
@ -2388,6 +2390,11 @@ var
// what child control of this TWinControl has actually the capture.
CaptureControl: TControl=nil;
operator := (AVariant: Variant): TCaption;
begin
Result := String(AVariant);
end;
procedure AdjustBorderSpace(var RemainingClientRect, CurBorderSpace: TRect;
Left, Top, Right, Bottom: integer);
// RemainingClientRect: remaining clientrect without CurBorderSpace