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

tvplanit: Reverse order of OK and Cancel buttons for Linux

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5083 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-08-13 12:24:22 +00:00
parent cc2ab6faba
commit df1f7bda09
18 changed files with 109 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -121,6 +121,8 @@ object MainForm: TMainForm
DataStore = VpBufDSDataStore1
ControlLink = VpControlLink1
Color = clWindow
Font.Height = -12
ParentFont = False
ParentShowHint = False
Align = alClient
ReadOnly = False

10
components/tvplanit/source/laz_visualplanit.lpk
View File

@ -30,7 +30,7 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S
Contributor(s): "/>
<Version Major="1" Release="4"/>
<Files Count="76">
<Files Count="78">
<Item1>
<Filename Value="vpalarmdlg.lfm"/>
<Type Value="LFM"/>
@ -336,6 +336,14 @@ Contributor(s): "/>
<Filename Value="vpfbds.pas"/>
<UnitName Value="VpFBDS"/>
</Item76>
<Item77>
<Filename Value="vpedfmtlst.lfm"/>
<Type Value="LFM"/>
</Item77>
<Item78>
<Filename Value="vpedfmtlst.pas"/>
<UnitName Value="VpEdFmtLst"/>
</Item78>
</Files>
<i18n>
<EnableI18N Value="True"/>

4
components/tvplanit/source/vpabout.lfm
View File

@ -1,6 +1,6 @@
object frmAbout: TfrmAbout
Left = 282
Height = 488
Height = 313
Top = 205
Width = 582
HorzScrollBar.Page = 470
@ -8,7 +8,7 @@ object frmAbout: TfrmAbout
AutoSize = True
BorderStyle = bsDialog
Caption = 'About Visual PlanIt'
ClientHeight = 488
ClientHeight = 313
ClientWidth = 582
OnActivate = FormActivate
Position = poScreenCenter

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

@ -506,7 +506,6 @@ object ContactEditForm: TContactEditForm
Default = True
OnClick = OKBtnClick
TabOrder = 0
TabStop = False
end
object CancelBtn: TButton
Left = 351
@ -518,7 +517,6 @@ object ContactEditForm: TContactEditForm
Caption = 'Cancel'
OnClick = CancelBtnClick
TabOrder = 1
TabStop = False
end
end
end

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

@ -563,9 +563,14 @@ begin
OKBtn.Width := Max(GetButtonWidth(OKBtn), GetButtonWidth(CancelBtn));
CancelBtn.Width := OKBtn.Width;
{$IFDEF MSWINDOWS} // button order: OK - Cancel
CancelBtn.Left := pnlBottom.ClientWidth - HBorder - CancelBtn.Width;
OKBtn.Left := CancelBtn.Left - Dist - OKBtn.Width;
{$ELSE} // button order: Cancel - OK
OKBtn.Left := pnlBottom.ClientWidth - HBorder - OKBtn.Width;
CancelBtn.Left := OKBtn.Left - Dist - CancelBtn.Width;
OKBtn.TabOrder := 1;
{$ENDIF}
end;
procedure TContactEditForm.DisplayCurrentCountry;

16
components/tvplanit/source/vpedelem.lfm
View File

@ -1,13 +1,13 @@
object frmEditElement: TfrmEditElement
Left = 1069
Height = 503
Height = 449
Top = 231
Width = 489
HorzScrollBar.Page = 378
VertScrollBar.Page = 444
BorderStyle = bsDialog
Caption = 'Edit Element'
ClientHeight = 503
ClientHeight = 449
ClientWidth = 489
OnCreate = FormCreate
OnShow = FormShow
@ -26,7 +26,7 @@ object frmEditElement: TfrmEditElement
Caption = ' Visual '
ClientHeight = 132
ClientWidth = 461
TabOrder = 0
TabOrder = 3
object rgMeasurement: TRadioGroup
Left = 104
Height = 124
@ -251,7 +251,7 @@ object frmEditElement: TfrmEditElement
Caption = ' Caption '
ClientHeight = 34
ClientWidth = 461
TabOrder = 1
TabOrder = 4
object lblCaptionText: TLabel
AnchorSideLeft.Control = gbCaption
AnchorSideTop.Control = edCaptionText
@ -312,7 +312,7 @@ object frmEditElement: TfrmEditElement
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 465
TabOrder = 2
TabOrder = 0
object lblName: TLabel
AnchorSideTop.Control = edName
AnchorSideTop.Side = asrCenter
@ -349,7 +349,7 @@ object frmEditElement: TfrmEditElement
BevelOuter = bvNone
ClientHeight = 56
ClientWidth = 467
TabOrder = 3
TabOrder = 2
object gbDayOffset: TGroupBox
Left = 0
Height = 56
@ -431,7 +431,7 @@ object frmEditElement: TfrmEditElement
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 465
TabOrder = 4
TabOrder = 5
object btnShape: TButton
AnchorSideLeft.Control = ButtonPanel
Left = 0
@ -483,7 +483,7 @@ object frmEditElement: TfrmEditElement
BevelOuter = bvNone
ClientHeight = 70
ClientWidth = 467
TabOrder = 5
TabOrder = 1
object rgItemType: TRadioGroup
Left = 0
Height = 70

13
components/tvplanit/source/vpedelem.pas
View File

@ -361,6 +361,19 @@ begin
btnOK.Width := w;
btnCancel.Width := w;
btnShape.Width := GetButtonWidth(btnShape);
{$IFDEF MSWINDOWS}
btnOK.AnchorSideRight.Control := btnCancel;
btnOK.TabOrder := 1;
btnCancel.AnchorSideRight.Control := ButtonPanel;
btnCancel.AnchorSideRight.Side := asrBottom;
btnCancel.TabOrder := 2;
{$ELSE}
btnCancel.AnchorSideRight.Control := ButtonPanel;
btnCancel.TabOrder := 1;
btnOK.AnchorSideRight.Control := ButtonPanel;
btnOK.AnchorSideRight.Side := asrBottom;
btnOK.TabOrder := 2;
{$ENDIF}
// Form size
rgItemType.Align := alNone;

1
components/tvplanit/source/vpedfmt.lfm
View File

@ -86,6 +86,7 @@ object frmEditFormat: TfrmEditFormat
'Year'
)
TabOrder = 4
TabStop = True
end
object edDescription: TEdit
Left = 88

9
components/tvplanit/source/vpedfmt.pas
View File

@ -195,8 +195,17 @@ begin
w := Max(GetButtonWidth(btnOK), GetButtonWidth(btnCancel));
btnOK.Width := w;
btnCancel.Width := w;
{$IFDEF MSWINDOWS}
btnCancel.Left := RightOf(rgDayIncrement) - btnCancel.Width;
btnOK.Left := btnCancel.Left - DELTA - btnOK.Width;
btnOK.TabOrder := rgDayIncrement.TabOrder + 1;
btnCancel.TabOrder := btnOK.TabOrder + 1;
{$ELSE}
btnOK.Left := RightOf(rgDayIncrement) - btnOK.Width;
btnCancel.Left := btnOK.Left - DELTA - btnCancel.Width;
btnCancel.TabOrder := rgDayIncrement.TabOrder + 1;
btnOK.TabOrder := btnCancel.TabOrder + 1;
{$ENDIF}
edName.Height := editHeight;
edDescription.Height := editHeight;

2
components/tvplanit/source/vpedfmtlst.lfm
View File

@ -5,6 +5,7 @@ object frmPrnFormat: TfrmPrnFormat
Width = 694
HorzScrollBar.Page = 639
VertScrollBar.Page = 479
ActiveControl = lbFormats
Caption = 'Print Format Designer'
ClientHeight = 471
ClientWidth = 694
@ -113,7 +114,6 @@ object frmPrnFormat: TfrmPrnFormat
EndDate = 37377.6447728357
StartDate = 37370.6447728357
Parent = PrintPreviewPanel
TabStop = True
TabOrder = 0
end
object LblPrintPreview: TLabel

9
components/tvplanit/source/vpedshape.pas
View File

@ -411,8 +411,17 @@ begin
cbBrushColor.Width := cbBrushColor.Width + btnOK.Width + DELTA + btnCancel.Width - gbBrush.Width;
cbBrushStyle.Width := cbBrushColor.Width;
end;
{$IFDEF MSWINDOWS}
btnCancel.Left := RightOf(gbBrush) - btnCancel.Width;
btnOK.Left := btnCancel.Left - DELTA - btnOK.Width;
btnOK.TabOrder := gbBrush.TabOrder + 1;
btnCancel.TabOrder := btnOK.TabOrder + 1;
{$ELSE}
btnOK.Left := RightOf(gbBrush) - btnOK.Width;
btnCancel.Left := btnOK.Left - DELTA - btnCancel.Width;
btnCancel.TabOrder := gbBrush.TabOrder + 1;
btnOK.TabOrder := btnCancel.TabOrder + 1;
{$ENDIF}
{ Buttons - vert }
btnOK.Height := hb;

6
components/tvplanit/source/vpevnteditdlg.lfm
View File

@ -22,7 +22,7 @@ object DlgEventEdit: TDlgEventEdit
BevelOuter = bvNone
ClientHeight = 36
ClientWidth = 697
TabOrder = 0
TabOrder = 1
object ResourceNameLbl: TLabel
Left = 8
Height = 16
@ -47,7 +47,6 @@ object DlgEventEdit: TDlgEventEdit
Default = True
OnClick = OKBtnClick
TabOrder = 0
TabStop = False
end
object CancelBtn: TButton
Left = 608
@ -59,7 +58,6 @@ object DlgEventEdit: TDlgEventEdit
Caption = '&Cancel'
OnClick = CancelBtnClick
TabOrder = 1
TabStop = False
end
end
object Panel1: TPanel
@ -72,7 +70,7 @@ object DlgEventEdit: TDlgEventEdit
BorderWidth = 8
ClientHeight = 397
ClientWidth = 697
TabOrder = 1
TabOrder = 0
object AppointmentGroupBox: TGroupBox
Left = 8
Height = 215

9
components/tvplanit/source/vpevnteditdlg.pas
View File

@ -782,8 +782,17 @@ begin
OKBtn.Width := Max(GetButtonWidth(OKBtn), GetButtonWidth(CancelBtn));
CancelBtn.Width := OKBtn.Width;
{$IFDEF MSWINDOWS}
CancelBtn.Left := ButtonPanel.ClientWidth - ResourcenameLbl.Left - CancelBtn.Width;
OKBtn.Left := CancelBtn.Left - DELTA - OKBtn.Width;
OKBtn.TabOrder := 0;
CancelBtn.TabOrder := 1;
{$ELSE}
OKBtn.Left := ButtonPanel.ClientWidth - ResourcenameLbl.Left - OKBtn.Width;
CancelBtn.Left := OKBtn.Left - DELTA - CancelBtn.Width;
CancelBtn.TabOrder := 0;
OKBtn.TabOrder := 1;
{$ENDIF}
ResourceNameLbl.Font.Size := ScaleY(ResourceNameLbl.Font.Size, DesignTimeDPI);
ResourceNameLbl.Top := (ButtonPanel.ClientHeight - Panel1.BorderWidth - ResourceNameLbl.Height) div 2;
OKBtn.Top := (ButtonPanel.ClientHeight - Panel1.BorderWidth - OKBtn.Height) div 2;

9
components/tvplanit/source/vpflxdsed1.pas
View File

@ -360,8 +360,17 @@ begin
lblFieldMappings.Left := FieldMappingsLB.Left;
btnDeleteMapping.Left := ClientWidth - DatasetFieldLB.Left - btnDeleteMapping.Width;
btnClearMappings.Left := btnDeleteMapping.Left;
{$IFDEF MSWINDOWS}
BtnCancel.Left := w - DatasetFieldLB.Width - BtnCancel.Width;
BtnOK.Left := BtnCancel.Left - DELTA - BtnOK.Width;
BtnOK.TabOrder := 0;
BtnCancel.TabOrder := 1;
{$ELSE}
BtnOK.Left := w - DatasetFieldLB.Width - BtnOK.Width;
BtnCancel.Left := BtnOK.Left - DELTA - BtnCancel.Width;
BtnCancel.TabOrder := 0;
BtnOK.TabOrder := 1;
{$ENDIF}
end;
lblVPFieldsAvail.Left := RightOf(VPFieldLB) - GetLabelWidth(lblVPFieldsAvail);
end;

9
components/tvplanit/source/vpreseditdlg.pas
View File

@ -240,8 +240,17 @@ begin
OKBtn.Width := Max(GetButtonWidth(OKBtn), GetButtonWidth(CancelBtn));
CancelBtn.Width := OKBtn.Width;
{$IFDEF MSWINDOWS}
CancelBtn.Left := pnlBottom.ClientWidth - lblDescription.Left - CancelBtn.Width;
OKBtn.Left := CancelBtn.Left - OKBtn.Width - HDelta; // - (ClientWidth - tabResource.ClientWidth);
OKBtn.TabOrder := 0;
CancelBtn.TabOrder := 1;
{$ELSE}
OKBtn.Left := pnlBottom.ClientWidth - lblDescription.Left - OKBtn.Width;
CancelBtn.Left := OKBtn.Left - CancelBtn.Width - HDelta; // - (ClientWidth - tabResource.ClientWidth);
CancelBtn.TabOrder := 0;
OKBtn.TabOrder := 1;
{$ENDIF}
end;
procedure TResEditForm.OKBtnClick(Sender: TObject);

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

@ -209,8 +209,17 @@ begin
OKBtn.Width := Max(GetButtonWidth(OKBtn), GetButtonWidth(CancelBtn));
CancelBtn.Width := OKBtn.Width;
{$IFDEF MSWINDOWS}
CancelBtn.Left := ButtonPanel.ClientWidth - ResourcenameLbl.Left - CancelBtn.Width;
OKBtn.Left := CancelBtn.Left - HDist - OKBtn.Width;
OKBtn.TabOrder := 0;
CancelBtn.TabOrder := 1;
{$ELSE}
OKBtn.Left := ButtonPanel.ClientWidth - ResourcenameLbl.Left - OKBtn.Width;
CancelBtn.Left := OKBtn.Left - HDist - CancelBtn.Width;
CancelBtn.TabOrder := 0;
OKBtn.TabOrder := 1;
{$ENDIF}
Bevel1.Top := DescriptionEdit.Top + editHeight + VBevelDist; //BottomOf(DescriptionEdit) + VBevelDist;

4
components/tvplanit/source/vpwavdlg.lfm
View File

@ -35,7 +35,7 @@ object FrmSoundDialog: TFrmSoundDialog
BevelOuter = bvNone
ClientHeight = 446
ClientWidth = 519
TabOrder = 1
TabOrder = 2
object Panel1: TPanel
Left = 0
Height = 27
@ -178,7 +178,7 @@ object FrmSoundDialog: TFrmSoundDialog
ClientHeight = 434
ClientWidth = 196
Constraints.MinWidth = 200
TabOrder = 2
TabOrder = 0
object ShellTreeView: TShellTreeView
Left = 4
Height = 306

10
components/tvplanit/source/vpwavdlg.pas
View File

@ -185,9 +185,17 @@ begin
OKBtn.Width := Max(GetButtonWidth(OKBtn), GetButtonWidth(CancelBtn));
CancelBtn.Width := OKBtn.Width;
{$IFDEF MSWINDOWS}
CancelBtn.Left := ButtonPanel.ClientWidth - HBORDER - CancelBtn.Width;
OKBtn.Left := CancelBtn.Left - DIST - OKBtn.Width;
OKBtn.TabOrder := 0;
CancelBtn.TabOrder := 1;
{$ELSE}
OKBtn.Left := ButtonPanel.ClientWidth - HBORDER - OKBtn.Width;
CancelBtn.Left := OKBtn.Left - DIST - CancelBtn.Width;
CancelBtn.TabOrder := 0;
OKBtn.TabOrder := 1;
{$ENDIF}
if DingPath = '' then begin
CBDefault.Checked := true;
if (MediaFolder <> '') and DirectoryExists(MediaFolder) then