pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix height of contact editor form being calculated too large.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4859 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-28 20:08:51 +00:00
parent 3282ed81e8
commit 92ef54e789
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpcontacteditdlg.lfm
View File

@ -19,9 +19,9 @@ object ContactEditForm: TContactEditForm
Height = 314 Height = 314
Top = 0 Top = 0
Width = 433 Width = 433
ActivePage = tabMain ActivePage = tabContact
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 1
TabOrder = 0 TabOrder = 0
OnChange = tsContactsChange OnChange = tsContactsChange
object tabMain: TTabSheet object tabMain: TTabSheet
@ -272,7 +272,7 @@ object ContactEditForm: TContactEditForm
end end
object tabContact: TTabSheet object tabContact: TTabSheet
Caption = 'RSContact' Caption = 'RSContact'
ClientHeight = 251 ClientHeight = 286
ClientWidth = 425 ClientWidth = 425
ImageIndex = 1 ImageIndex = 1
object EMailLbl: TLabel object EMailLbl: TLabel

5
components/tvplanit/source/vpcontacteditdlg.pas
View File

@ -490,11 +490,14 @@ begin
inc(FieldTop, FieldVertSep); inc(FieldTop, FieldVertSep);
end; end;
ClientHeight := cboxCategory.Top + cboxCategory.Height + TopField +
pnlBottom.Height + tsContacts.Height - tabMain.Height;
{
if FieldTop + FormHeightOffset > MinFormHeight then if FieldTop + FormHeightOffset > MinFormHeight then
Height := FieldTop + FormHeightOffset Height := FieldTop + FormHeightOffset
else else
Height := MinFormHeight; Height := MinFormHeight;
}
EMailLbl.Left := EMailEdit.Left - GetLabelWidth(EMailLbl) - 8; EMailLbl.Left := EMailEdit.Left - GetLabelWidth(EMailLbl) - 8;
Custom1Edit.Left := CustomLbl4.Left + GetLabelWidth(CustomLbl4) + 8; Custom1Edit.Left := CustomLbl4.Left + GetLabelWidth(CustomLbl4) + 8;