diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-02-22 23:38:08 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-02-22 23:38:08 +0200 |
| commit | b5ca28f24256a01909c3f2cc0e62a7ada695b384 (patch) | |
| tree | 6d029661be58c6f6b56e67f192ac90045d3f7918 | |
| parent | 3055ece98db7f8e38d0a88508a1698f4a7813470 (diff) | |
| download | fpGUI-b5ca28f24256a01909c3f2cc0e62a7ada695b384.tar.xz | |
Removed compiler warning about friend class not being
related to TfpgWidget.
| -rw-r--r-- | uidesigner/vfdwidgetclass.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/uidesigner/vfdwidgetclass.pas b/uidesigner/vfdwidgetclass.pas index 0fe62171..fe4a2e99 100644 --- a/uidesigner/vfdwidgetclass.pas +++ b/uidesigner/vfdwidgetclass.pas @@ -96,7 +96,7 @@ uses type // used to get to SetDesigning() in Form Designer - TComponentFriendClass = class(TComponent); + TWidgetFriendClass = class(TfpgWidget); { TVFDWidgetClass } @@ -122,7 +122,7 @@ end; function TVFDWidgetClass.CreateWidget(AOwner: TComponent): TfpgWidget; begin Result := WidgetClass.Create(AOwner); - TComponentFriendClass(Result).SetDesigning(True); + TWidgetFriendClass(Result).SetDesigning(True); end; function TVFDWidgetClass.CreatePopupMenu(AWidget: TfpgWidget): TfpgPopupMenu; |