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

tvplanit: Fix minor edit alignment issue at 120 dpi in contact edit form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5022 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-21 22:28:06 +00:00
parent d3aaec6630
commit 9e7605f4f6
2 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,13 +1,13 @@
object ContactEditForm: TContactEditForm object ContactEditForm: TContactEditForm
Left = 311 Left = 311
Height = 420 Height = 511
Top = 245 Top = 245
Width = 433 Width = 433
HorzScrollBar.Page = 432 HorzScrollBar.Page = 432
VertScrollBar.Page = 320 VertScrollBar.Page = 320
ActiveControl = tsContacts ActiveControl = tsContacts
Caption = 'ContactEdit' Caption = 'ContactEdit'
ClientHeight = 420 ClientHeight = 511
ClientWidth = 433 ClientWidth = 433
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
@ -16,7 +16,7 @@ object ContactEditForm: TContactEditForm
LCLVersion = '1.7' LCLVersion = '1.7'
object tsContacts: TPageControl object tsContacts: TPageControl
Left = 0 Left = 0
Height = 379 Height = 470
Top = 0 Top = 0
Width = 433 Width = 433
ActivePage = tabMain ActivePage = tabMain
@ -26,7 +26,7 @@ object ContactEditForm: TContactEditForm
OnChange = tsContactsChange OnChange = tsContactsChange
object tabMain: TTabSheet object tabMain: TTabSheet
Caption = 'RSMasterData' Caption = 'RSMasterData'
ClientHeight = 351 ClientHeight = 442
ClientWidth = 425 ClientWidth = 425
object LastNameLbl: TLabel object LastNameLbl: TLabel
Left = 9 Left = 9
@ -259,7 +259,7 @@ object ContactEditForm: TContactEditForm
Left = 136 Left = 136
Height = 23 Height = 23
Top = 280 Top = 280
Width = 120 Width = 121
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
OKCaption = 'OK' OKCaption = 'OK'
CancelCaption = 'Cancel' CancelCaption = 'Cancel'
@ -491,7 +491,7 @@ object ContactEditForm: TContactEditForm
object pnlBottom: TPanel object pnlBottom: TPanel
Left = 0 Left = 0
Height = 41 Height = 41
Top = 379 Top = 470
Width = 433 Width = 433
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone

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

@ -481,8 +481,9 @@ begin
end; end;
{ Set form height such that first tab is filled completely by controls } { Set form height such that first tab is filled completely by controls }
ClientHeight := BirthdateEdit.Top + BirthdateEdit.Height + TopField + ClientHeight := BirthDateEdit.Top + editHeight + TopField + // required height of tab sheet
pnlBottom.Height + tsContacts.Height - tabMain.Height; pnlBottom.Height + // height of button panel
tsContacts.Height - tabMain.ClientHeight; // Height of tab + border
{ Page "Contact" } { Page "Contact" }
SetLength(Comboboxes, 5); SetLength(Comboboxes, 5);