salut tous le monde: j'ai un probleme de sauvegarde de couleur d'une ligne ou plusieures d'un DBGrid .
lorsque je colore une ligne d'un DBGrid (ligne de DBGrid=Enregistrement d'une table paradox) par click sur un boutton :
(voici le code)
lors de la prochaine ouverture de la table ou exécution de l'application , je perds la couleur de la ligne ou des lignes colorées
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 procedure TForm1.BitBtn5Click(Sender: TObject); begin dbgrid1.selectedRows.currentRowSelected := true ; end; procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var j: integer; begin j := Table1.RecNo; if (TDBGrid(Sender).DataSource.DataSet.FieldByName('Numéro_Cmds').Value=j) AND (dbgrid1.selectedRows.currentRowSelected = true) then begin TDBGrid(Sender).Canvas.Brush.Color := clRed; TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state); end; end;
comment sauvegarder l'etat des ligne (cad colorées) merci bien pour votre aide
Partager