paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 19:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCommondialog: do not publish Widht/Height properties. Issue . Patch by AlexeyT.

Browse Source 
git-svn-id: trunk@59032 -
This commit is contained in:
bart 2018-09-16 13:06:31 +00:00
parent daee51d966
commit ca05451b8c
1 changed files with 5 additions and 2 deletions

7
lcl/dialogs.pp
View File

@ -118,13 +118,13 @@ type
procedure DoCanClose(var CanClose: Boolean); virtual;
procedure DoClose; virtual;
function HandleAllocated: boolean;
property Width: integer read GetWidth write SetWidth;
property Height: integer read GetHeight write SetHeight;
published
property OnClose: TNotifyEvent read FOnClose write FOnClose;
property OnCanClose: TCloseQueryEvent read FOnCanClose write FOnCanClose;
property OnShow: TNotifyEvent read FOnShow write FOnShow;
property HelpContext: THelpContext read FHelpContext write FHelpContext default 0;
property Width: integer read GetWidth write SetWidth default 0;
property Height: integer read GetHeight write SetHeight default 0;
property Title: TTranslateString read FTitle write FTitle stored IsTitleStored;
end;
@ -972,6 +972,9 @@ initialization
InterfaceBase.PromptDialogFunction := @DefaultPromptDialog;
InterfaceBase.QuestionDialogFunction := @DefaultQuestionDialog;
RegisterPropertyToSkip(TCommonDialog, 'Width', 'Property streamed in older Lazarus revision','');
RegisterPropertyToSkip(TCommonDialog, 'Height', 'Property streamed in older Lazarus revision','');
finalization
InterfaceBase.InputDialogFunction := nil;
InterfaceBase.QuestionDialogFunction := nil;