dbgrid multiselect & couleurs

Question

bjr;
je reste toujours sur la dbgrid mysterieuse de delphi!!!
peut on colorier en vert juste les lignes selectionnées!
sinon ! peut on acceder a la valeur (selectionnée/non) d'une ligne dans l'evenement ondrawcolumncell ???
merci

cs_cantador · Answer

bonjour,

PROCEDURE TForm1.DBGrid1DrawColumnCell(Sender: TObject; CONST Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
i: integer;
begin
if (gdFocused in State) or (gdSelected in State) then
   begin
  For i:=0 to Columns.Count do
    if Column.Field  = Query1.Fields[i] then
      begin
      Canvas.Font.Style:= ?
      Canvas.Brush.Color := ?
      Canvas.Font.Color   := ?
      end;
   end;
end;

cantador

impossibleok · Answer

re:
Query1 ???
je veus juste colorier quand je selectionne en maintenant la touche ctrl !!!

merci.

cs_cantador · Answer

il manque :
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
dans le drawcell

mais ça ne répond pas à ta question puisque ça permet de colorier les colonnes mais pas les lignes..
G
tu veux pas utiliser un StringGrid ???

cantador

cs_cantador · Answer

Voilà ça marche :

PROCEDURE TForm1.DBGrid1DrawColumnCell(Sender: TObject; CONST Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
VAR
  i, CumulLongueur: integer;
BEGIN
  IF gdSelected IN State THEN
    TDBGrid(Sender).Canvas.Brush.Color :=  clNavy


   ELSE 
  BEGIN
    IF TDBGrid(Sender).DataSource.DataSet.FieldByName('PhoneExt').Value > 100 THEN
      TDBGrid(Sender).Canvas.Brush.Color : = clLime
    ELSE
      TDBGrid(Sender).Canvas.Brush.Color := clWhite;
  END;
  TDBGrid(Sender).DefaultDrawColumnCell(rect, datacol, column, state);
END;

test effectué sur le champ "PhoneExt" de la table "employee" de la base DBDEMOS de Borland

cantador

impossibleok · Answer

re:
bin! tout court , il me faut juste une ligne de code qui traduit le fait qu'une ligne a ete selectionné.
genre(si dbgrid.ligne est selectionnée).

merci.

cs_cantador · Answer

Ohhh !!! ben tu l'as avec : TGridDrawState

TGridDrawState représente l'information utile lors de la restitution de la cellule d'une grille.
Unité
Grids ou QGrids
Syntaxe Delphi :
type TGridDrawState = set of (gdSelected, gdFocused, gdFixed);
Syntaxe C++ :
enum Grids__3 { gdSelected, gdFocused, gdFixed };
typedef Set<Grids_3, gdSelected, gdFixed> TGridDrawState;
Description


TGridDrawState représente l'information d'état de la cellule d'une grille qui est en cours de restitution. Il s'agit d'un ensemble comprenant 0 ou plus de :


Valeur Signification



gdSelected La cellule est actuellement sélectionnée.
gdFocused La cellule détient la focalisation d'entrée.
gdFixed La cellule est dans une région fixe de la grille.




tu as déjà la première mouture du code...

cantador

impossibleok · Answer

re:
tout ce code me semble un peu surchargé!
pourtant mon interogation etait bien claire et nette.
une ligne de code traduisant: "si ligne de dbgrid est selectionnée" !!!

merci.

cs_cantador · Answer

Tu as la réponse !
mercredi 3 décembre 2008 à 15:53:22 | Re : dbgrid multiselect & couleurs

il suffit de lire et ce que je t'ai fourni ce n'est pas du code.

mais l'aide de delphi... (F1)

cantador

impossibleok · Answer

re:
franchement je suis dans l'incapacité de déduire quoi que ses soit sur cet aide.
ssssssssssssssssssoooooooooooooooooosssssssssssssssssss

cs_cantador · Answer

C'est Noël !!!

if (gdFocused in State) or (gdSelected in State)

cantador

Dbgrid multiselect & couleurs

10 réponses

Votre réponse

Discussions similaires