stringgrid personalizada

Question

Amigos,bom dia.Utilizo o stringgri em meu sistema para mostrar dados cadastrados no meu banco de dados. Por�m agora me deparei com a necessidade de criar um coluna no meu stringgrid que mostre uma IMA...

Fernando_ramos · Answer

pessoal?algu�m!...

Thiago Vidal · Answer

uma alternativa que talvez possa funcionar para voc�, seria criar um TObjectList, que cont�m TODOS os bitmaps que precisam ser desenhados, a vantagem do ObjectList, � que ele j� libera a mem�ria (Free) de todos os objectos automaticamente quando � destru�do.

segue um exemplo b�sico:

interface

uses ..., Contnrs;

type
  TForm1 = class(TForm)
  ...
  private
    Imagens: TObjectList;
  end;

...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  Imagens := TObjectList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Imagens.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  bmp: TBitmap;
begin
  while not ClientDataSet1.Eof do
  begin
//    Durante a rotina que monta o seu StringGrid, adicione as imagens ao TObjectList
    bmp := TBitmap.Create;
//    bmp.LoadFromFile ou bmp.LoadFromStream
    Imagens.Add(bmp);
    ClientDataSet1.Next;
  end;

end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  bmp: TBitmap;
begin
  // Na coluna que vai desenhar os itens
  if (ACol = 3) then
  begin
    // Pega o bitmap de volta da lista, com o typecast
    bmp := TBitmap(Imagens[ARow-1]);
    StringGrid1.Canvas.StretchDraw(Rect, bmp);
  end;
end;

qualquer d�vida, estou � disposi��o.

Fernando_ramos · Answer

amigo.funcionou legal!mas ja abusando de sua boa vontade, veja se pode me ajudar.no caso a imagem ocupou toda a celula do stringgrid, no caso se eu quizesse apenas centralizar uma imagema na celula, seria possivel?at� por que ele esticou a imagem....fazendo com que ela perdesse a resolu��o!obrigado!...

Edilcimar · Answer

neste caso basta diminuir a largura da coluna do stringgrid onde est� a imagem...

Fernando_ramos · Answer

na verdade..a imagem assume o tamanho da celula....ou seja mesmo eu diminuindo a celula ela fica com o tamanho da celula, e suponhamos q eu nao possa diminuir a celula!! sacaram!!

bom....eu fiz o seguinte ajustei o tamanho da imagem pelo width e height, ficou legal...so que para ficar 100� eu queria alinha a imagem no centro.
pq atualmente ela esta no canto superior esquerdo!

se alguem puder ajudar!

Thiago Vidal · Answer

[quote:0a8cba8991]no caso a imagem ocupou toda a celula do stringgrid, no caso se eu quizesse apenas centralizar uma imagema na celula, seria possivel? [/quote:0a8cba8991]Basta trocar o StretchDraw, pelo Draw, e calcular as coordenadas para centralizar... exemplo:[code:1:0a8cba8991]procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);var  bmp: TBitmap;  x, y: Integer;begin  // Na coluna que vai desenhar os itens  if (ACol = 3) then  begin    // Pega o bitmap de volta da lista, com o typecast    bmp := TBitmap(Imagens&#91;ARow-1&93;);    x := (Rect.Right - Rect.Left + bmp.Width) div 2;    y := (Rect.Bottom - Rect.Top + bmp.Height) div 2;    StringGrid1.Canvas.Draw(x, y, bmp);  end;end;[/code:1:0a8cba8991]desculpe pela demora... espero ter ajudado....

Fernando_ramos · Answer

amigo.com certeza ajudou.por�m , antes com o StretchDraw a imagem aparecia em todos os registros, agora a imagem aparece apenas uma vez!...

Fernando_ramos · Answer

amigo.na verdade a impress�o q da � q aparece sim..para todo registro..por�m todas na mesma posi��o. dando a impress�o de q so aparece uma vez!...

Dpinho · Answer

Estou utilizando a rotina acima, ficou como eu queria com o dbstringgrid, so falta eu ter a condi��o de colocar dois dbtext na celula, alguem sabe como fazer isto...