paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 01:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: gtk2: QuestionDlg: when too much text use default dialog, which has scrollable text

Browse Source 
git-svn-id: branches/fixes_1_6@50575 -
This commit is contained in:
mattias 2015-12-02 15:00:21 +00:00
parent e7228468d7
commit e910733af6
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2lclintf.inc
View File

@ -975,6 +975,13 @@ var
begin
Result := mrNone;
ReleaseCapture;
if (Length(DialogMessage)>1000) then
begin
Result:=inherited;
exit;
end;
ADialogResult := mrCancel;
case DialogType of
idDialogWarning: GtkDialogType := GTK_MESSAGE_WARNING;