paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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
ItemHeight = 0
OnClick = lbFormatsClick
Options = [lboDrawFocusRect]
Sorted = True
TabOrder = 0
end
@ -162,7 +161,6 @@ object frmPrnFormat: TfrmPrnFormat
OnDragDrop = lbElementsDragDrop
OnDragOver = lbElementsDragOver
OnMouseDown = lbElementsMouseDown
Options = [lboDrawFocusRect]
TabOrder = 4
end
object btnEditFormat: TButton

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

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

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

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