pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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] Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine Shape = bsTopLine
end end
object Bevel2: TBevel
Left = 4
Height = 2
Top = 88
Width = 529
Anchors = [akTop, akLeft, akRight]
Shape = bsBottomLine
end
object imgCalendar: TImage object imgCalendar: TImage
Left = 8 Left = 8
Height = 32 Height = 32

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

@ -65,7 +65,6 @@ type
DetailsMemo: TMemo; DetailsMemo: TMemo;
ResourceNameLbl: TLabel; ResourceNameLbl: TLabel;
Bevel1: TBevel; Bevel1: TBevel;
Bevel2: TBevel;
imgCalendar: TImage; imgCalendar: TImage;
imgCompleted: TImage; imgCompleted: TImage;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -77,6 +76,7 @@ type
FReturnCode: TVpEditorReturnCode; FReturnCode: TVpEditorReturnCode;
FTask: TVpTask; FTask: TVpTask;
FResource: TVpResource; FResource: TVpResource;
procedure PositionControls;
public public
procedure PopulateSelf; procedure PopulateSelf;
procedure DePopulateSelf; procedure DePopulateSelf;
@ -152,7 +152,32 @@ begin
CompletedOnLbl.Visible := CompleteCB.Checked; CompletedOnLbl.Visible := CompleteCB.Checked;
CreatedOnLbl.Caption := RSCreatedOn + ' ' + FormatDateTime(ShortDateFormat, Task.CreatedOn); 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; 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; end;
{=====} {=====}