Discussion :

[Invité]

Bonjour,

j'ai un peu de mal avec le png. J'ai 2 TImages sur ma Form (imACTIF et imINACTIF) et le code suivant dans ma dbGrid

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
procedure TfELV.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  aImage: TBitmap;
begin
  if Column.FieldName = 'imACTIFcalc' then
    with DBGrid1.Canvas do begin
      FillRect(Rect);
     try
        aImage :=  TBitmap.Create;
        if DBGrid1.DataSource.DataSet.FieldByName('xxACTIF').AsBoolean = False
          then aImage.Assign(imINACTIF.Picture.Bitmap)
          else aImage.Assign(imACTIF.Picture.Bitmap);
        Draw(Rect.Left, Rect.Top, aImage);
      finally
        aImage.Free;
      end;
    end;
end;

Il fonctionne correctement transparence inclue si les 2 TImages ont pour Picture un TBitmap. Mais si les TImages ont pour Picture un TPngImage, aucune erreur n'apparaît mais pas d'images non plus ... Ce n'est pas dramatique sauf que j'utilise en général du png...
Merci.

[Invité]

Oups... J'ai vraiment perdu la main :

Code :

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

1
2
3
if DBGrid1.DataSource.DataSet.FieldByName('xxACTIF').AsBoolean = False
          then aImage.Assign(imINACTIF.Picture.Graphic)
          else aImage.Assign(imACTIF.Picture.Graphic);

Désolé pour le dérangement.