diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/corelib/gfx_widget.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_form.pas | 2 | ||||
-rw-r--r-- | src/gui/gui_listbox.pas | 4 |
3 files changed, 10 insertions, 4 deletions
diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas index 644362f8..39a155c3 100644 --- a/src/corelib/gfx_widget.pas +++ b/src/corelib/gfx_widget.pas @@ -77,7 +77,6 @@ type procedure HandleShow; virtual; procedure HandleHide; virtual; procedure MoveAndResize(aleft, atop, awidth, aheight: TfpgCoord); - procedure MoveAndResizeBy(dx, dy, dw, dh: TfpgCoord); procedure RePaint; { property events } property OnPaint: TPaintEvent read FOnPaint write FOnPaint; @@ -93,7 +92,9 @@ type destructor Destroy; override; procedure SetFocus; procedure KillFocus; + procedure MoveAndResizeBy(dx, dy, dw, dh: TfpgCoord); procedure SetPosition(aleft, atop, awidth, aheight: TfpgCoord); + procedure Invalidate; // double check this works as developers expect???? property Parent: TfpgWidget read GetParent write SetParent; property ActiveWidget: TfpgWidget read FActiveWidget write SetActiveWidget; property Visible: boolean read FVisible write SetVisible; @@ -887,6 +888,11 @@ begin MoveAndResize(aleft, atop, awidth, aheight); end; +procedure TfpgWidget.Invalidate; +begin + RePaint; +end; + initialization FocusRootWidget := nil; diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas index d4fb9ace..4e075068 100644 --- a/src/gui/gui_form.pas +++ b/src/gui/gui_form.pas @@ -53,10 +53,10 @@ type procedure Close; property Sizeable: boolean read FSizeable write FSizeable; property WindowPosition: TWindowPosition read FWindowPosition write FWindowPosition; - property WindowTitle: string read FWindowTitle write SetWindowTitle; property ModalResult: integer read FModalResult write FModalResult; published {$Note Refactor this to a TfpgCustomForm and only surface it here } + property WindowTitle: string read FWindowTitle write SetWindowTitle; property OnActivate: TNotifyEvent read FOnActivate write FOnActivate; property OnClose: TNotifyEvent read FOnClose write FOnClose; property OnCreate: TNotifyEvent read FOnCreate write FOnCreate; diff --git a/src/gui/gui_listbox.pas b/src/gui/gui_listbox.pas index d565c7c8..799f8aaf 100644 --- a/src/gui/gui_listbox.pas +++ b/src/gui/gui_listbox.pas @@ -81,10 +81,10 @@ type // component developers. TfpgTextListBox = class(TfpgBaseListBox) protected - FItems: TStrings; + FItems: TStringList; FInternalItems: TStrings; procedure DrawItem(num: integer; rect: TfpgRect; flags: integer); override; - property Items: TStrings read FItems; + property Items: TStringList read FItems; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; |