Redimensionner 2 TstringGridRésolu

Question

Bonjour,

Voila j'utilise 2 TStringGrid, un pour les titres (grTitres) et un pour les données (grDatas).

j'ai une fonction :

procedure Tfrm_alertes.ajusteGrilles(grilleFixe, grilleMobile : TdataGrid) ;
// ajuste horizontalement la grilleMobile sur la grilleFixe
var
  i : integer ;
  total : integer ;
Begin
  total := 0 ;
  for i:=0 to (grilleFixe.colCount-1) do begin
    grilleMobile.colWidths[i] := grilleFixe.colWidths[i] ;
    total := total + grilleFixe.colWidths[i] ;
  end;
  scrlBx_grilles.HorzScrollBar.Range := total + 20 ;
End;

Mes 2 grilles a la propriété GridLineWith à 0
Ma grille grDatas a la propriété DefaultDrawing à False

Je redessine moi même ma grille des données :

procedure Tfrm1.grDatasDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  taille, hauteur : integer;
Begin
  with grDatas.Canvas do
    Canvas.Pen.Width := 0;
    Canvas.Pen.Color := clSilver ;
    Canvas.Brush.Style := bsSolid ;
    // dessin de la grille
    Rectangle(Rect.Left, Rect.Top, Rect.Right+1, Rect.Bottom+1) ;
    brush.style := bsClear ;
    // affichage des données
    TextOut(Rect.Left+dtGrd_alertes.canvas.font.size, Rect.Top+2, grDatas.Cells[ACol,ARow]);
End ;

Petit hic 

Mes deux grilles sont légèrement décalés à l'écran (dû à GridLineWith = false).

Merci pour votre aide

delphi5user · Accepted Answer

En fait ça venait du paramètre border style = bsSingle pour la grille grDatas.

Désolé pour le dérangement.

Redimensionner 2 TstringGrid

1 réponse

Votre réponse

Discussions similaires