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

tvplanit: Fix compilation under Laz 1.6.x

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5880 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-19 23:28:06 +00:00
parent fdcc9c7e3c
commit 1936a80692
3 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,7 +140,6 @@ object frmPrnFormat: TfrmPrnFormat
Columns = 1 Columns = 1
ItemHeight = 0 ItemHeight = 0
OnClick = lbFormatsClick OnClick = lbFormatsClick
Options = [lboDrawFocusRect]
Sorted = True Sorted = True
TabOrder = 0 TabOrder = 0
end end
@ -162,7 +161,6 @@ object frmPrnFormat: TfrmPrnFormat
OnDragDrop = lbElementsDragDrop OnDragDrop = lbElementsDragDrop
OnDragOver = lbElementsDragOver OnDragOver = lbElementsDragOver
OnMouseDown = lbElementsMouseDown OnMouseDown = lbElementsMouseDown
Options = [lboDrawFocusRect]
TabOrder = 4 TabOrder = 4
end end
object btnEditFormat: TButton object btnEditFormat: TButton

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

@ -12,7 +12,7 @@ object FrmSoundDialog: TFrmSoundDialog
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.9.0.0' LCLVersion = '1.6.4.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 474 Height = 474
@ -146,7 +146,6 @@ object FrmSoundDialog: TFrmSoundDialog
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Color = clDefault Color = clDefault
HideSelection = False HideSelection = False
Mask = '*.wav'
ReadOnly = True ReadOnly = True
TabOrder = 1 TabOrder = 1
ObjectTypes = [otNonFolders] ObjectTypes = [otNonFolders]

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

@ -36,7 +36,7 @@ interface
uses uses
{$IFDEF LCL} {$IFDEF LCL}
LCLProc, LCLType, LCLIntf, LResources, LCLProc, LCLType, LCLIntf, LResources, LCLVersion,
{$ELSE} {$ELSE}
Windows, Messages, Windows, Messages,
{$ENDIF} {$ENDIF}
@ -131,6 +131,11 @@ begin
Panel4.Align := alLeft; Panel4.Align := alLeft;
ShellTreeView.Align := alClient; ShellTreeView.Align := alClient;
Label4.Align := alClient; Label4.Align := alClient;
{$IFDEF LCL}
{$IF lcl_fullversion >= 1080000}
ShellTreeView.Mask := '*.wav';
{$ENDIF}
{$ENDIF}
end; end;
procedure TFrmSoundDialog.FormShow(Sender: TObject); procedure TFrmSoundDialog.FormShow(Sender: TObject);