Comment obtenir dans un drawgrid des cellules de taille variable selon la ligne

Question

J'ai besoin de developper un petit outil pour repr&#233;senter la distribution des m&#233;dicaments...je songe a mettre une image dans chaque p&#233;riode de prise m&#233;dicamenteuse, symbolisant  une g&#233;lule, une injection....
Comment obtenir des cellules de taille diff&#233;rente selon la ligne, dans un drawgrid.?? pour que ca ait a peu pres cette allure ?

08/02/06,
09/02/06,
0/02/06,
----

Matin,
Soir,
Matin,
Soir,
Matin,
Soir

Quelqu'un a t'il la solution?
Merci. Ca m'aiderait beaucoup pour mon d&#233;veloppement...je s&#232;che
Merci de vos conseils

Ledoc

yannba · Answer

As tu essay&#233; :
 
StringGrid1.RowHeights[3]:=10;

3 &#233;tant la 3&#176; ligne et 10 &#233;tant la hauteur ...

yannba · Answer

Un peu trop vite dans ton cas :

StringGrid1.RowHeights[2]:=10;

Effectivement l'item commence &#224; 0 !

ledoc93 · Answer

Slt  Yannba
G mal du m'exprimer...il ne s'agit pas de modifier le parametre de hauteur de la cellule mais sa largeur
Ledoc

yannba · Answer

Et avec ca ?
StringGrid1.ColWidths[2]:=10;

ledoc93 · Answer

Re Yannba,

Ce que tu me proposes est de modifier une colonne donn&#233;e..et non pas une ligne....sinon ca serait trop facile...:-)

It's more fun to compete... lol

Ca fait plaisir de savoir que tu te casses la tete aussi sur mon probleme

Ledoc

yannba · Answer

Si c'est toujours d'actualit&#233;, la soluce, serait de fusionner deux cellules. Je teste dans la journ&#233;e ...

ledoc93 · Answer

ben si tu trouves, ca serait vraimet geant...g cherch&#233; sans trouver...
Merci en tout cas de m'aider
Ledoc

yannba · Answer

Voici un bout d'essai ... Dis moi ce que tu en penses ! unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} function MergedCells(AStringGrid:TStringGrid;CurrentCol,CurrentRow,Col1,Row1,Col2,Row2:Integer;CurrentState: TGridDrawState):Boolean; var i,j:Integer; x1,y1,x2,y2:Integer; ARect:TRect; begin //Initialisations diverses ARect:=Bounds(0,0,0,0); x1:=Col1; y1:=Row1; x2:=Col2; y2:=Row2; result:=False; //On vérifie aue la zone fusionnée est valide if x1<0 then x1:=0; if x2>AStringGrid.ColCount-1 then x2:=AStringGrid.ColCount-1; if y1<0 then y1:=0; if y2>AStringGrid.RowCount-1 then x2:=AStringGrid.RowCount-1; if (x1>x2) or (y1>y2) then begin result:=False; Exit; end; //Si la cellule courante est la dernière de la zone de fusion, on dessine dans la fusion le texte de la cellule en haut à gauche if ((CurrentCol=Col2) and (CurrentRow=Row2)) then begin ARect.Left:=AStringGrid.CellRect(Col1,Row1).Left; ARect.Top:=AStringGrid.CellRect(Col1,Row1).Top; ARect.Right:=AStringGrid.CellRect(Col2,Row2).Right; ARect.bottom:=AStringGrid.CellRect(Col2,Row2).Bottom; AStringGrid.Canvas.TextRect(ARect, ARect.Left+2, ARect.Top+2, AStringGrid.Cells[Col1,Row1]); result:=True; end; //Si la cellule courante est dans la zone de fusion, on dit qu'on la dessiné (même si ce n'est pas vrai :) ) if ((CurrentCol>=Col1) and (CurrentRow>=Row1) and (CurrentCol<=Col2) and (CurrentRow<=Row2)) then result:=True; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin //On dessine la ou les cellules //d'abord on teste et on s'occupe des fusions de cellule if not MergedCells(StringGrid1,ACol,ARow,1,1,2,1,State)then // 08/02/06 if not MergedCells(StringGrid1,ACol,ARow,1,3,2,3,State)then // Vide //puis si on a pas une cellule fusionnée on la dessine normalement StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, StringGrid1.Cells[ACol,ARow]); end; procedure TForm1.FormCreate(Sender: TObject); begin Stringgrid1.Cells[1,1]:='08/02/06'; Stringgrid1.Cells[1,2]:='Matin'; Stringgrid1.Cells[2,2]:='Soir'; end; end.

ledoc93 · Answer

Salt Yannba,
Je test ca des ce soir des que j'ai un break aux urgences. Suis de garde ce soir
Merci pour tout..
Je te tiens au courant...
Si tu veux on correspond en email..moi c [mailto:ledoc93@msn.com ledoc93@msn.com]
Ledoc

ledoc93 · Answer

Salut,
C'est un bon debut...
G test&#233;...ca marche pour la 1ere cellule. Mais comment faire pour reproduire la fusion de 5 cellules en 5 cellules??
Ca fusionne toute la ligne..ou sinon g une cellule separatrice
Et comment centrer le texte dans les cellules fusionnees??

08/02/06,
09/02/06,
10/02/06,
----

Ma,
Mi,
16h,
Soir,
Nuit,
Ma,
Mi,
16h,
Soir,
Nuit,
Ma,
Mi,
16h,
Soir,
Nuit

qq chose comme ca...
Je sens que ca doit etre complexe lol
Ledoc

yannba · Answer

1 - C'est un bon debut...
Tout vient &#224; point &#224; qui sait attendre

2 - G test&#233;...ca marche pour la 1ere cellule. Mais comment faire pour reproduire la fusion de 5 cellules en 5 cellules??
Moi pas comprendre ou du moins modifie :

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  //On dessine la ou les cellules
    //d'abord on teste et on s'occupe des fusions de cellule
    if not MergedCells(StringGrid1,ACol,ARow,1,1,5,1,State)then  // 08/02/06
    //puis si on a pas une cellule fusionn&#233;e on la dessine normalement
    StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, StringGrid1.Cells[ACol,ARow]);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Stringgrid1.Cells[1,1]:='08/02/06';
  Stringgrid1.Cells[1,2]:='Matin';
  Stringgrid1.Cells[2,2]:='Midi';
  Stringgrid1.Cells[3,2]:='16h';
  Stringgrid1.Cells[4,2]:='Soir';
  Stringgrid1.Cells[5,2]:='Nuit';
end;
Remplace 

3 - Et comment centrer le texte dans les cellules fusionnees ??
Avec AlignCenter mais ca marche pas, je cherche ...

ledoc93 · Answer

Salut Yannba

En effet ca marche bien pour la 1ere serie de 5 cellules (hormis le pb de centrage)...C'est apres que ca coince...
J'ai essay&#233; ta procedure en introduisant une variable i de maniere a faire une fusion toutes les 5 cellules..ca coince...

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i : integer;
begin
  //On dessine la ou les cellules
    //d'abord on teste et on s'occupe des fusions de cellule
  i:=5 ;
  while i<stringgrid1.ColCount do
  begin
    if not MergedCells(StringGrid1,ACol,ARow,1,1,i,1,State)then  // 08/02/06
    //puis si on a pas une cellule fusionn&#233;e on la dessine normalement
    StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, StringGrid1.Cells[ACol,ARow]);
    i:=i+5;
  end;
end;

le but est de reproduire le schema toutes les 5 cellules


08/02/06,
09/02/06,
10/02/06,
----

Ma,
Mi,
16h,
Soir,
Nuit,
Ma,
Mi,
16h,
Soir,
Nuit,
Ma,
Mi,
16h,
Soir,
Nuit

Merci
Ledoc

Comment obtenir dans un drawgrid des cellules de taille variable selon la ligne

12 réponses

Votre réponse

Discussions similaires