paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tvplanit: Improved vertical alignment of controls in TVpTaskEditDialog

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

8
components/tvplanit/source/vptaskeditdlg.lfm
View File

@ -109,14 +109,6 @@ object TaskEditForm: TTaskEditForm
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object Bevel2: TBevel
Left = 4
Height = 2
Top = 88
Width = 529
Anchors = [akTop, akLeft, akRight]
Shape = bsBottomLine
end
object imgCalendar: TImage
Left = 8
Height = 32

27
components/tvplanit/source/vptaskeditdlg.pas
View File

@ -65,7 +65,6 @@ type
DetailsMemo: TMemo;
ResourceNameLbl: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
imgCalendar: TImage;
imgCompleted: TImage;
procedure FormCreate(Sender: TObject);
@ -77,6 +76,7 @@ type
FReturnCode: TVpEditorReturnCode;
FTask: TVpTask;
FResource: TVpResource;
procedure PositionControls;
public
procedure PopulateSelf;
procedure DePopulateSelf;
@ -152,7 +152,32 @@ begin
CompletedOnLbl.Visible := CompleteCB.Checked;
CreatedOnLbl.Caption := RSCreatedOn + ' ' + FormatDateTime(ShortDateFormat, Task.CreatedOn);
PositionControls;
end;
procedure TTaskEditForm.PositionControls;
var
VBevelDist: Integer; // Distance bevel-to-control
VDist: Integer; // Vertical distance between controls
begin
VBevelDist := round(8 * Screen.PixelsPerInch / DesignTimeDPI);
VDist := round(8 * Screen.PixelsPerInch / DesignTimeDPI);
DueDateEdit.Left := DueDateLbl.Left + GetLabelWidth(DueDateLbl) + 8;
Bevel1.Top := BottomOf(DescriptionEdit) + VBevelDist;
ImgCalendar.Top := Bevel1.Top + 2 + VBevelDist;
ImgCompleted.Top := ImgCalendar.Top;
DueDateEdit.Top := ImgCalendar.Top + (ImgCalendar.Height - DueDateEdit.Height) div 2;
DueDateLbl.Top := DueDateEdit.Top + (DueDateEdit.Height - DueDateLbl.Height) div 2;
CompleteCB.Top := ImgCompleted.Top + (ImgCompleted.Height - CompleteCB.Height) div 2;
CreatedOnLbl.Top := BottomOf(DueDateEdit) + VDist;
CompletedOnLbl.Top := CreatedOnLbl.Top;
DetailsMemo.Top := BottomOf(CreatedOnLbl) + VBevelDist;
DetailsMemo.Height := tabTask.ClientHeight - DetailsMemo.Top - DescriptionEdit.Top;
end;
{=====}