Discussion :

[tintin62]

bonjour
j'emploi StringGrid1DrawCell pour formatter mes colonnes en fonction des données
mais comment éviter de faire " begin end else begin end ect" voir exemple ci dessous

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  With Sender As TStringGrid Do With Canvas Do
  Begin 
      If gdFixed in State
      Then Brush.Color := clSkyBlue
      Else If gdSelected In State
      Then Brush.Color := clNavy
      Else Brush.Color := clWhite;
      FillRect(Rect);
 
      If gdSelected In State Then
           SetTextColor(Canvas.Handle,clWhite)
      Else SetTextColor(Canvas.Handle,clBlue);
 
     if (Acol=0) and (arow=1) then begin
        font.Size:=16;
       SetTextColor(Canvas.Handle,clblue);
       end
       else
       if (Acol=1) and (arow>0) then begin
        font.Size:=14;
       SetTextColor(Canvas.Handle,clred);
        end
        else
     if (Acol=2) and (arow>0) then begin
           font.Size:=12;
       SetTextColor(Canvas.Handle,clgreen);
      end
      else
         font.Size:=8;
 
    DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect ,
      DT_CENTER or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE  );
end;

[Paul TOTH]

pas 36 solutions...même si ton indentation pique les yeux

un tableau peut être utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
const
  TextColor:array[Boolean{Fixed}, Boolean{Selected}] of Color = (
  (clNavy, clWhite),
   (clSkyBlue, clSkyBlue)
  );
begin
  TStringGrid(Sender).Canvas.Brush.Color := TextColor[gdFixed in State, gdSelected in State];
end;

[tintin62]

bonjour
donc on ne peux pas faire autrement d'après votre réponse
merci
ps: comment fallait t'il modifier mon source pour que sa pique plus les yeux

[ShaiLeTroll]

Niveau indentation, faut respecter l'ordre logique et l'imbrication des if ... et les mots clés, en minuscule de préférence, laisser le PascalCase pour les identifiants

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
      if gdFixed in State then 
        Brush.Color := clSkyBlue
      else 
        if gdSelected In State then 
          Brush.Color := clNavy
        else 
          Brush.Color := clWhite;
      FillRect(Rect);

et il peut y avoir débat sur les else if indenté ou pas ... pour ressembler à un case of.

la suite est tellement longue à réindenter, on dirait un mélange de TAB et ESPACE mal repris.

Et sinon suffit de factoriser les tests !

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
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
const
  BRUSH_COLORS : array[Boolean{Fixed}, Boolean{Selected}] of Color = (
    (clWhite, clNavy),
    (clSkyBlue, clSkyBlue)
  );
  TEXT_COLORS: array[Boolean{Selected}] of Color = (clBlue, clWhite);
  COL_TEXT_COLORS: array[0..2{ACol}] of TColor = (clBlue, clRed, clGreen);
  COL_TEXT_FONT_SIZES: array[0..2{ACol}] of Integer = (16, 14, 12);
 
begin
  with (Sender As TStringGrid).Canvas do
  begin
    Brush.Color := BRUSH_COLORS[gdFixed in State, gdSelected in State];
    FillRect(Rect);
 
    SetTextColor(Handle, TEXT_COLORS[gdSelected In State]);
 
    if ((ARow = 1) and (ACol = 0)) or ((ARow > 0) and (ACol in [1..2])) then
    begin
      Font.Size := COL_TEXT_FONT_SIZES[ACol];;
      SetTextColor(Handle, COL_TEXT_COLORS[ACol]);
    end
    else
      Font.Size := 8;
 
    DrawText(Handle, PChar((Sender As TStringGrid).Cells[ACol, ARow]), -1, Rect ,
      DT_CENTER or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE  );
  end;
end;

[tintin62]

Bonjour
Merci pour la réponse au code.
Oui votre code reflète bien votre compétence. Moi je bricole, je ne fais que de petites moulinettes, jamais de gros programme.
L'important c'est que ça marche.
Donc encore merci de m'avoir appris des choses.