From c39a0c5aad87b83a2e235e8cf8fea9d399725a88 Mon Sep 17 00:00:00 2001 From: paul Date: Thu, 4 Feb 2010 04:27:12 +0000 Subject: [PATCH] lcl: GetConstraints is a function git-svn-id: trunk@23628 - --- lcl/widgetset/wscontrols.pp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lcl/widgetset/wscontrols.pp b/lcl/widgetset/wscontrols.pp index edee815957..6862859b3e 100644 --- a/lcl/widgetset/wscontrols.pp +++ b/lcl/widgetset/wscontrols.pp @@ -72,7 +72,7 @@ type TWSControl = class(TWSLCLComponent) published class procedure AddControl(const AControl: TControl); virtual; - class procedure GetConstraints(const AControl: TControl; const AConstraints: TObject); virtual; + class function GetConstraints(const AControl: TControl; const AConstraints: TObject): Boolean; virtual; end; TWSControlClass = class of TWSControl; @@ -155,9 +155,9 @@ class procedure TWSControl.AddControl(const AControl: TControl); begin end; -class procedure TWSControl.GetConstraints(const AControl: TControl; const AConstraints: TObject); +class function TWSControl.GetConstraints(const AControl: TControl; const AConstraints: TObject): Boolean; begin - WidgetSet.GetControlConstraints(AConstraints); + Result := WidgetSet.GetControlConstraints(AConstraints); end; { TWSWinControl }