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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
unit persodbgrid;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Graphics, StdCtrls, Grids, Db, DBGrids, LCLType ;
type TPersoDBGrid = class(TCustomDBGrid)
private
FSelection : TStringList; // pour l'instant je n'utilise pas la TBookmarkList 'officielle'
FCouleurSelection : TColor; // couleur d'une ligne sélectionnée
FCouleurSelectionHighLighted : TColor; // couleur d'une ligne/cellule selectionnée et focalisée
procedure SetCouleurSelection(const AValue: TColor);
procedure SetHCouleurSelection(const AValue: TColor);
public
property BorderColor;
property Canvas;
property DefaultTextStyle;
property EditorBorderStyle;
property EditorMode;
property ExtendedColSizing;
property FastEditing;
property FocusColor;
property FocusRectVisible;
property GridLineColor;
property GridLineStyle;
property SelectedColor;
property SelectedRows;
//------------------- mon truc a moi --------------------------------------------------------
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property ListSelection: TStringList read FSelection;
//----------------------------------------------------------------------------
published
property Align;
property AlternateColor;
// ------------------------------------------------------------------------------
property CouleurSelection : TColor read FCouleurSelection write SetCouleurSelection;
property CouleurSelectionHightLighted : TColor read
FCouleurSelectionHighLighted write SetHCouleurSelection;
//---------------------------------------------------------------------------------
property Anchors;
property AutoAdvance default aaRightDown;
property AutoEdit;
property AutoFillColumns;
//property BiDiMode;
property BorderSpacing;
property BorderStyle;
property Color;
property Columns; // stored false;
property Constraints;
property DataSource;
property DefaultDrawing;
property DefaultRowHeight;
property DragCursor;
//property DragKind;
property DragMode;
property Enabled;
property FixedColor;
property FixedHotColor;
property Flat;
property Font;
property HeaderHotZones;
property HeaderPushZones;
//property ImeMode;
//property ImeName;
property Options;
property OptionsExtra;
//property ParentBiDiMode;
property ParentColor default false;
property ParentFont;
//property ParentShowHint;
property PopupMenu;
property ReadOnly;
property Scrollbars default ssBoth;
property ShowHint;
property TabOrder;
property TabStop;
property TitleFont;
property TitleStyle;
property UseXORFeatures;
property Visible;
property OnCellClick;
property OnColEnter;
property OnColExit;
property OnColumnMoved;
property OnColumnSized;
// property OnDrawColumnCell; // je l'enleve pour faire le comportement du composant
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEditButtonClick;
//property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnFieldEditMask;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnPrepareCanvas;
property OnSelectEditor;
//property OnStartDock;
property OnStartDrag;
property OnTitleClick;
property OnUserCheckboxBitmap;
property OnUTF8KeyPress;
protected
{ Déclarations protégées }
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure PersoDrawColumnCell(Sender : TObject;const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
procedure BasculeSelection;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Data Controls',[TPersoDBGrid]);
end;
constructor TPersoDBGrid.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FSelection:=TStringList.Create;
OnDrawColumnCell:=@Persodrawcolumncell; //<- c'est ici que je change le comportement
end;
destructor TPersoDBGrid.Destroy;
begin
FSelection.Free;
inherited Destroy;
end;
procedure TPersoDBGrid.SetCouleurSelection(const AValue: TColor);
begin
if FCouleurSelection=AValue then exit;
FCouleurSelection:=AValue;
Invalidate;
end;
procedure TPersoDBGrid.SetHCouleurSelection(const AValue: TColor);
begin
if FCouleurSelectionHighLighted=AValue then exit;
FCouleurSelectionHighLighted:=AValue;
Invalidate;
end;
procedure TPersoDBGrid.BasculeSelection;
var
i: integer;
begin
BeginUpdate; // ? nécessaire ?
try
i:= FSelection.IndexOf(self.Datasource.Dataset.Bookmark);
if i >= 0 then FSelection.Delete(i)
else FSelection.Add(self.Datasource.Dataset.Bookmark);
finally
EndUpdate;
end;
end;
procedure TPersoDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin
case key of
// .... pour simplifier j'ai oté certaines choses, peut être trop ?
VK_SPACE : BasculeSelection;
end; // Fin du Case
inherited KeyDown(Key,Shift);
end;
procedure TPersoDBGrid.PersoDrawColumnCell(Sender : TObject;const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
var i : LongInt;
begin
i:= FSelection.IndexOf(self.Datasource.Dataset.Bookmark);
if (i>=0) then
begin
if (gdSelected in State)
then Self.Canvas.Brush.Color:= FCouleurSelectionHighLighted
else Self.Canvas.Brush.Color:= FCouleurSelection;
Canvas.FillRect(Rect);
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end; |
Un DBGrid Perso : comment déclarer un Drawdatacell ?
et que je butte
) . Maintenant je voudrais également permettre de rajouter cette possibilté onDrawdatacell tout en gardant le comportement décrit plus haut . COMMENT FAIRE ?
Répondre avec citation
Partager