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

tvplanit: Fix minor details for v1.8.0

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8691 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-18 10:29:45 +00:00
parent c51c729ae6
commit 19b469917e
3 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpconst.pas
View File

@ -47,8 +47,8 @@ uses
Graphics, Forms, StdCtrls; Graphics, Forms, StdCtrls;
const const
BuildTime = {$I %DATE%} + ' ' + {$I %TIME}; //'09/13/2002 09:25 AM'; BuildTime = {$I %DATE%} + ' ' + {$I %TIME%}; //'09/13/2002 09:25 AM';
VpVersionStr = 'v1.7.0'; {Visual PlanIt library version} VpVersionStr = 'v1.8.0'; {Visual PlanIt library version}
VpProductName = 'Visual PlanIt'; VpProductName = 'Visual PlanIt';
BorderStyles: array[TBorderStyle] of LongInt = (0, WS_BORDER); BorderStyles: array[TBorderStyle] of LongInt = (0, WS_BORDER);

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

@ -12,6 +12,7 @@ object FrmSoundDialog: TFrmSoundDialog
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 474 Height = 474
@ -147,7 +148,6 @@ object FrmSoundDialog: TFrmSoundDialog
Alignment = taCenter Alignment = taCenter
AutoSize = False AutoSize = False
Caption = 'Nothing to select from' Caption = 'Nothing to select from'
Color = clDefault
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
@ -196,7 +196,6 @@ object FrmSoundDialog: TFrmSoundDialog
Alignment = taCenter Alignment = taCenter
AutoSize = False AutoSize = False
Caption = 'Nothing to select from' Caption = 'Nothing to select from'
Color = clDefault
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True

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

@ -179,7 +179,7 @@ begin
OkBtn.Caption := RSOkBtn; OkBtn.Caption := RSOkBtn;
CancelBtn.Caption := RSCancelBtn; CancelBtn.Caption := RSCancelBtn;
if BiDiMode = bdLeftToRight then if BiDiMode = bdLeftToRight then
PlayBtn.Caption := RSPlayBtn + ' ' // Workaround for AutoSize bug of TSpeedButton ignoring right Margin PlayBtn.Caption := RSPlayBtn + ' ' // Workaround for AutoSize bug of TSpeedButton ignoring right margin
else else
PlayBtn.Caption := ' ' + RSPlayBtn; PlayBtn.Caption := ' ' + RSPlayBtn;
Label3.Caption := RSNothingToSelectFrom; Label3.Caption := RSNothingToSelectFrom;