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

tvplanit: Avoid dependence on new WordWrap property of TPanel in VpWavDlg.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5004 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-19 08:43:40 +00:00
parent 4803397b14
commit eb245fb18d
3 changed files with 34 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -560,7 +560,6 @@ object MainForm: TMainForm
AllowRearrange = True
BackgroundColor = clActiveCaption
BackgroundMethod = bmNormal
BorderStyle = bsSingle
ButtonHeight = 20
DrawingStyle = dsCoolTab
FolderCollection = <

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

@ -139,9 +139,22 @@ object FrmSoundDialog: TFrmSoundDialog
Width = 170
BevelOuter = bvNone
BorderStyle = bsSingle
Caption = 'Nothing to select from'
ClientHeight = 86
ClientWidth = 166
TabOrder = 3
Wordwrap = True
object Label3: TLabel
Left = 0
Height = 86
Top = 0
Width = 166
Align = alClient
Alignment = taCenter
AutoSize = False
Caption = 'Nothing to select from'
Layout = tlCenter
ParentColor = False
WordWrap = True
end
end
end
object Splitter1: TSplitter
@ -175,8 +188,22 @@ object FrmSoundDialog: TFrmSoundDialog
Width = 170
BevelOuter = bvNone
BorderStyle = bsSingle
Caption = 'Nothing to select from'
ClientHeight = 86
ClientWidth = 166
TabOrder = 3
object Label4: TLabel
Left = 0
Height = 86
Top = 0
Width = 166
Align = alClient
Alignment = taCenter
AutoSize = False
Caption = 'Nothing to select from'
Layout = tlCenter
ParentColor = False
WordWrap = True
end
end
end
end

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

@ -48,12 +48,14 @@ type
{ TFrmSoundDialog }
TFrmSoundDialog = class(TForm)
Label3: TLabel;
PageControl1: TPageControl;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
RightPanel: TPanel;
Label4: TLabel;
ShellListView: TShellListView;
ShellTreeView: TShellTreeView;
Splitter1: TSplitter;
@ -160,8 +162,8 @@ begin
CBDefault.Caption := RSDefaultSound;
OkBtn.Caption := RSOkBtn;
CancelBtn.Caption := RSCancelBtn;
Panel3.Caption := RSNothingToSelectFrom;
Panel4.Caption := RSNothingToSelectFrom;
Label3.Caption := RSNothingToSelectFrom;
Label4.Caption := RSNothingToSelectFrom;
if DingPath = '' then begin
CBDefault.Checked := true;
ShellTreeView.Path := MediaFolder;