DrawGrid und Transparente Bitmaps ?

[klomann3]

Also die Sache ist die. Ich habe einen Level Editor bzw. das Grundgerüst grad fertiggestellt und nun hab ich mir gedacht, ich mach mal ein Objekt um es anschließend im Editor verwenden zu können.
Aber mir ist aufgefallen das ich kein transparentes Bitmap ins DrawGrid zeichnen kann, sprich ein Objekt wie das im Anhang. Nun frag ich mich ob es nicht doch irgendwie möglich ist ein Bitmap mit einer Transparenz auf ein DrawGrid zu zeichnen. Erläuternde Bilder dazu befinden sich ebenfalls im Anhang.

Ich bin dankbar für jeden kleinen Denkansatz o.Ä.

Gruß,
klomann3

[turboPASCAL]

Meinst Du so etwas ?


Hier wird in Zeile 3 Spalte 3 ein Bitmap gezeichnet.

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Bitmap: TBitmap;
begin
  Bitmap:=TBitmap.Create;
  Bitmap.LoadFromFile('Test.bmp');

  Bitmap.TransparentColor := clFuchsia;
  // oder die Pixelfarbe oben links des Bitmaps
  // Bitmap.TransparentColor := Bitmap.Canvas.Pixels[1, 1];
  Bitmap.Transparent := True;


  if (aRow = 2) and (aCol = 2) then 
    StringGrid1.Canvas.Draw(Rect.Left,Rect.Top, Bitmap);
  
  Bitmap.Free;
end;

[klomann3]

Hmm, irgendwie will das nicht funktionieren. Ich lade ja erst ein TImage und davon dann den bitmap inhalt zu modifizieren geht irgendwie nicht =(.

EDIT: Doch man kann die Werte modifiziern. Trotz all dem wirds nicht transparent ins DrawGrid gezeichnet =(.

Hab jetzt folgende Codes:
Im Form Create wird erstmal ''rectangle'' vorbereitet.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender  : TObject);
var
rectangle: TRect;
begin
  rectangle := rect(0,0,32,32); //32 und 32 stehen für Höhe und Breite des Images
.............
end;

Dann

Delphi-Quellcode:

procedure TForm1.DrawGrid1DrawCell(Sender  : TObject; Acol, Arow  : integer;
  Rect  : TRect; State  : TGridDrawState);
var
  Tile  : TImage;
begin
  Tile := Timage.Create(self);
  Tile.Picture.Bitmap.TransparentColor := Tile.Picture.Bitmap.Canvas.Pixels[1,1];
  Tile.Picture.Bitmap.Transparent := True;
............
Drawgrid1.Canvas.CopyRect(Drawgrid1.CellRect(acol, arow), Tile.Picture.Bitmap.Canvas, rectangle);
end;

Aber trotzdem wirds nicht transparent darein gezeichnet? Mach ich was falsch?

[turboPASCAL]

Hm, ich denke mal das CopyRect keine Transparentz nit macht.

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Tile  : TImage;
  r: trect;
begin
  Tile := Timage.Create(self);
  Tile := image1;

  Tile.Picture.Bitmap.TransparentColor := Tile.Picture.Bitmap.Canvas.Pixels[1,1];
  Tile.Picture.Bitmap.Transparent := True;

  StringGrid1.Canvas.Draw(
    StringGrid1.CellRect(acol, arow).Left,
    StringGrid1.CellRect(acol, arow).Top,
    Tile.Picture.Bitmap);

  {StringGrid1.Canvas.CopyRect(
    StringGrid1.CellRect(acol, arow),
    Tile.Picture.Bitmap.Canvas,
    image1.ClientRect);}
end;

[Khabarakh]

Zitat von klomann3:

Im Form Create wird erstmal ''rectangle'' vorbereitet.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender  : TObject);
var
rectangle: TRect;
begin
  rectangle := rect(0,0,32,32); //32 und 32 stehen für Höhe und Breite des Images
.............
end;

Was denn nun? rectangle als globale oder lokale Variable?

Zitat:

Delphi-Quellcode:

procedure TForm1.DrawGrid1DrawCell(Sender  : TObject; Acol, Arow  : integer;
  Rect  : TRect; State  : TGridDrawState);
var
  Tile  : TImage;
begin
  Tile := Timage.Create(self);
  Tile.Picture.Bitmap.TransparentColor := Tile.Picture.Bitmap.Canvas.Pixels[1,1];
  Tile.Picture.Bitmap.Transparent := True;
............
Drawgrid1.Canvas.CopyRect(Drawgrid1.CellRect(acol, arow), Tile.Picture.Bitmap.Canvas, rectangle);
end;

Nimm doch ein TBitmap statt des Images. Und wenn du schon PNG benutzt, könntest du gleich 32-bit unterstützen, das DrawGrid ersetzt du dann durch das Image der GR32-Lib .

Wenn du das nicht willst: Versuch es mal mit Bitmap.Transparent := true; oder stelle dieses Beispiel aus der OH auf dein DrawGrid um:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  Bitmap : TBitMap;
begin
  Bitmap := TBitmap.Create;
  try
    with Bitmap do begin
      LoadFromFile('C:\Programme\Gemeinsame Dateien\Borland Shared\Images\Splash\256color\factory.bmp');
      Transparent := True;
      TransParentColor := BitMap.canvas.pixels[50,50];
      Form1.Canvas.Draw(0,0,BitMap);
      TransparentMode := tmAuto;
      Form1.Canvas.Draw(50,50,BitMap);
    end;
  finally
    Bitmap.Free;

  end;
end;