diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-01 21:52:46 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-01 21:52:46 +0000 |
| commit | 214510635fcf4c37bef52ee7be7ab1be280e9d55 (patch) | |
| tree | 1fce7a4bd704fe6817819d28d4352c94f8334747 /src | |
| parent | dc4c89ecd2e6c733b73f3d185d9ab421663e2bb0 (diff) | |
| download | fpGUI-214510635fcf4c37bef52ee7be7ab1be280e9d55.tar.xz | |
* Fixed old Color property to TextColor.
* Created new TfpgComponent class with TagPointer property.
TagPointer is like TComponent.Tag but just a pointer instead
of Integer.
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/gfxbase.pas | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas index 1f173fa0..20ca5301 100644 --- a/src/corelib/gfxbase.pas +++ b/src/corelib/gfxbase.pas @@ -303,9 +303,15 @@ type end; - { TfpgWindowBase } + TfpgComponent = class(TComponent) + private + FTagPointer: Pointer; + public + property TagPointer: Pointer read FTagPointer write FTagPointer; + end; + - TfpgWindowBase = class(TComponent) + TfpgWindowBase = class(TfpgComponent) private FParent: TfpgWindowBase; procedure SetMouseCursor(const AValue: TMouseCursor); |