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
Top = 0
Width = 433
ActivePage = tabMain
ActivePage = tabContact
Align = alClient
TabIndex = 0
TabIndex = 1
TabOrder = 0
OnChange = tsContactsChange
object tabMain: TTabSheet
@ -272,7 +272,7 @@ object ContactEditForm: TContactEditForm
end
object tabContact: TTabSheet
Caption = 'RSContact'
ClientHeight = 251
ClientHeight = 286
ClientWidth = 425
ImageIndex = 1
object EMailLbl: TLabel

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

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