1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
// included by win32int.pp
{******************************************************************************
win32listslh.inc
TWin32ListStringList, TWin32ComboBoxStringList and TWin32CheckListBoxStrings
******************************************************************************
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
{$IFOPT H+}
{$DEFINE H_PLUS}
{$ELSE}
{$H+}
{$ENDIF}
Type
{ TWin32ListStringList }
TWin32ListStringList = Class(TStrings)
private
FWin32List: HWND;
FSorted: Boolean;
FSender: TWinControl;
FlastInsertedIndex: Integer;
protected
//Win32 Flags
FFlagSort: Cardinal;
FFlagGetText: Cardinal;
FFlagGetTextLen: Cardinal;
FFlagGetCount: Cardinal;
FFlagResetContent: Cardinal;
FFlagDeleteString: Cardinal;
FFlagInsertString: Cardinal;
FFlagAddString: Cardinal;
FFlagGetItemData: Cardinal;
FFlagSetItemData: Cardinal;
FFlagGetItemIndex: cardinal;
FFlagSetItemIndex: cardinal;
FFlagGetCaretIndex: cardinal;
FFlagSetCaretIndex: cardinal;
FFlagGetSelected: cardinal;
FFlagsetSelected: cardinal;
FFlagInitStorage: cardinal;
protected
function Get(Index: Integer): String; Override;
function GetCount: Integer; Override;
function GetObject(Index: Integer): TObject; Override;
procedure Put(Index: integer; const S: string); override;
procedure PutObject(Index: Integer; AObject: TObject); Override;
procedure SetCapacity(NewCapacity: Integer); override;
procedure SetUpdateState(Updating: Boolean); override;
procedure InitFlags; virtual;
procedure SetSorted(Val: Boolean); Virtual;
function SaveData(AIndex: Integer): Pointer; virtual;
procedure RestoreData(AIndex: Integer; AData: Pointer); virtual;
public
constructor Create(List : HWND; TheOwner: TWinControl);
function Add(const S: string): Integer; override;
procedure AddStrings(TheStrings: TStrings); override;
procedure Clear; Override;
procedure Delete(Index: Integer); Override;
procedure Insert(Index: Integer; Const S: String); Override;
procedure Sort; Virtual;
Property Sorted: Boolean Read FSorted Write SetSorted;
end;
{ TWin32ComboBoxStringList }
TWin32ComboBoxStringList = class(TWin32ListStringList)
private
FDropDownCount: Integer;
procedure SetDropDownCount(const AValue: integer);
protected
function GetComboHeight: integer;
procedure InitFlags; override;
procedure UpdateComboHeight;
public
procedure AddStrings(TheStrings: TStrings); override;
procedure Assign(Source: TPersistent); override;
procedure Clear; override;
procedure Delete(Index: integer); override;
procedure Insert(Index: integer; const S: string); override;
property ComboHeight: integer read GetComboHeight;
property DropDownCount: integer read FDropDownCount write SetDropDownCount;
end;
PWin32CheckListBoxItemRecord = ^TWin32CheckListBoxItemRecord;
TWin32CheckListBoxItemRecord = record
TheObject: TObject;
State: TCheckBoxState;
Enabled: Boolean;
end;
{ TWin32CheckListBoxStrings }
TWin32CheckListBoxStrings = class(TWin32ListStringList)
private
FDefaultItem: TWin32CheckListBoxItemRecord;
function GetEnabled(Index: Integer): Boolean;
function GetState(Index: Integer): TCheckBoxState;
function GetItemRecord(const Index: Integer; const CreateNew: boolean): PWin32CheckListBoxItemRecord;
procedure SetEnabled(Index: Integer; const AValue: Boolean);
procedure SetItemRecord(const Index: Integer; ItemRecord: PWin32CheckListBoxItemRecord);
procedure SetState(Index: Integer; const AValue: TCheckBoxState);
protected
function GetObject(Index: Integer): TObject; override;
procedure PutObject(Index: Integer; AObject: TObject); override;
function SaveData(AIndex: Integer): Pointer; override;
procedure RestoreData(AIndex: Integer; AData: Pointer); override;
public
constructor Create(List: HWND; TheOwner: TWinControl);
class procedure DeleteItemRecords(const List: HWND);
class procedure DeleteItemRecord(const List: HWND; const Index: integer);
procedure Clear; override;
procedure Delete(Index: Integer); override;
procedure Move(CurIndex, NewIndex: Integer); override;
property Enabled[Index: Integer]: Boolean read GetEnabled write SetEnabled;
property State[Index: Integer]: TCheckBoxState read GetState write SetState;
end;
{$IFDEF H_PLUS}
{$UNDEF H_PLUS}
{$ELSE}
{$H-}
{$ENDIF}
|
