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

tvplanit: Improvements of event and contact editor at high-dpi, but still issues.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4951 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-14 09:40:54 +00:00
parent 2c44f1f616
commit 9b7ab94f81
4 changed files with 70 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -374,9 +374,6 @@ const
// FormHeightOffset = 103;
// MinFormHeight = 250;
TopField = 8;
DIST = 4; // distance between label and edit/combo
HBORDER = 8; // distance between container border and label
VDIST = 2; // vertical distance between edits
type
TLabelArray = array of TLabel;
@ -395,8 +392,16 @@ var
delta: Integer;
corr: Integer; // difference between form's client width and tabsheet width
editHeight: Integer; // Height of an edit control
vDist: Integer; // Vertical distance between edits
hBorder: Integer; // Distance between container border and label
dist: Integer; // distance between label and edit/combo
begin
dist := round(4 * Screen.PixelsPerInch / DesignTimeDPI);
vdist := round(2 * Screen.PixelsPerInch / DesignTimeDPI);
hBorder := round(8 * Screen.PixelsPerInch / DesignTimeDPI);
editHeight := LastNameEdit.Height * Screen.PixelsPerInch div DesignTimeDPI;
{ Note: The resizing algorithm is dependent upon the labels having their
FocusControl property set to the corresponding edit field or combobox. }
@ -466,8 +471,6 @@ begin
cboxState.Width := widestField;
{ Vertically arrange the fields. }
editHeight := LastNameEdit.Height;
delta := (Labels[0].FocusControl.Height - labels[0].Height) div 2;
FieldTop := TopField;
for i := Low(Labels) to High(Labels) do
@ -661,6 +664,11 @@ procedure TContactEditForm.FormShow(Sender: TObject);
begin
if tsContacts.ActivePage = tabMain then
LastNameEdit.SetFocus;
(*
{$IFDEF LCL}
ScaleDPI(Self, DesigntimeDPI);
{$ENDIF}
*)
end;