paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 17:39:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: Remove FormResize handler. Issue #33815, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@58192 -
This commit is contained in:
juha 2018-06-08 21:43:22 +00:00
parent 7cb84ed69d
commit 228a45c5a8
2 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/jcf2/Ui/fJcfErrorDisplay.lfm
View File

@ -8,7 +8,6 @@ object ExceptionDialog: TExceptionDialog
ClientHeight = 180
ClientWidth = 420
OnCreate = FormCreate
OnResize = FormResize
LCLVersion = '1.9.0.0'
object mExceptionMessage: TMemo
Left = 6

14
components/jcf2/Ui/fJcfErrorDisplay.pas
View File

@ -43,7 +43,6 @@ type
TExceptionDialog = class(TForm)
BtnPanel: TButtonPanel;
mExceptionMessage: TMemo;
procedure FormResize(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
@ -150,17 +149,4 @@ begin
SetObjectFontToSystemFont(Self);
end;
procedure TExceptionDialog.FormResize(Sender: TObject);
const
PAD = 4;
begin
BtnPanel.Top := ClientHeight - (BtnPanel.Height + PAD);
BtnPanel.Left := (ClientWidth - BtnPanel.Width) div 2;
mExceptionMessage.Left := PAD;
mExceptionMessage.Top := PAD;
mExceptionMessage.Width := ClientWidth - (PAD * 2);
mExceptionMessage.Height := ClientHeight - (BtnPanel.Height + (PAD * 3));
end;
end.