paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 10:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCommondialog: do not publish Widht/Height properties. Issue #0033480. 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/dialogs.pp
View File

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