1
{ $Id: carbonwsfilectrl.pp 17582 2008-11-25 15:00:12Z tombo $}
3
*****************************************************************************
4
* CarbonWSFileCtrl.pp *
8
*****************************************************************************
10
*****************************************************************************
12
* This file is part of the Lazarus Component Library (LCL) *
14
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
15
* for details about the copyright. *
17
* This program is distributed in the hope that it will be useful, *
18
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
19
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
21
*****************************************************************************
23
unit CarbonWSFileCtrl;
30
////////////////////////////////////////////////////
32
////////////////////////////////////////////////////
33
// To get as little as posible circles,
34
// uncomment only when needed for registration
35
////////////////////////////////////////////////////
37
////////////////////////////////////////////////////
38
WSFileCtrl, WSLCLClasses;
42
{ TCarbonWSCustomFileListBox }
44
TCarbonWSCustomFileListBox = class(TWSCustomFileListBox)
48
{ TCarbonWSFileListBox }
50
TCarbonWSFileListBox = class(TWSFileListBox)
59
////////////////////////////////////////////////////
61
////////////////////////////////////////////////////
62
// To improve speed, register only classes
63
// which actually implement something
64
////////////////////////////////////////////////////
65
// RegisterWSComponent(TCustomFileListBox, TCarbonWSCustomFileListBox);
66
// RegisterWSComponent(TFileListBox, TCarbonWSFileListBox);
67
////////////////////////////////////////////////////