Transparent zeichnen

[Popov]

Das habe ich mir zuerst auch gedacht und getestet, ist es aber nicht. Außerdem habe ich beide Bitmaps in der Farbtiefe angeglichen.

Sonderbarer weise funktioniert das:

Delphi-Quellcode:

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := 200;
    Bitmap.Height := 200;
    Bitmap.Canvas.Ellipse(Bitmap.Canvas.ClipRect);

    Bitmap.Transparent := True;
    Bitmap.TransparentColor := Bitmap.Canvas.Pixels[0, 0];
    Self.Canvas.Draw(0, 0, Bitmap);
  finally
    Bitmap.Free;
  end;
end;

[Bummi]

"Dr***s" With

Delphi-Quellcode:

  with Image1.Picture do
  begin
    Bitmap.Width := 200;
    Bitmap.Height := 200;
    Bitmap.Canvas.FillRect(Bitmap.Canvas.ClipRect);
    Bitmap.Canvas.Ellipse(Bitmap.Canvas.ClipRect);

    Bitmap.Transparent := True; // welches Bitmap könnte da jetzt erwischt worden sein

[Popov]

Ich weiß von deiner Abneigung gegen With, aber das zweite Beispiel hat nichts mit dem ersten zu tun. Das sind zwei unabhängige Beispiele. In der Praxis benutze ich auch nie die Variablenbezeichnung Bitmap. Die Bezeichnung hat sich hier nur zufällig so ergeben.

Wenn du jedoch etwas anderes meinst, dann habe ich es nicht erkannt.

[EWeiss]

Welches Pixel willst du aufnehmen wenn Transparent := True?
Sollte das nicht vorher aufgenommen werden ? Bevor du Transparent = true setzt

Delphi-Quellcode:

Bitmap.TransparentColor := Bitmap.Canvas.Pixels[0, 0];
Bitmap.Transparent := True;

gruss

[Popov]

Soweit ich weiß ist es egal.

Auch habe ich meinen Fehler inzwischen gefunden. Die Regel ist nun mal einfach: wenn es funktionieren soll und es funktioniert nicht, dann ist da ein Fehler drin.

Allerdings ist der Fehler in meinem Code kompliziert zu beschreiben. Hier spielte eine untergeordnete Funktion eine Rolle, die ich sonderbererweise schon lange nutze und die trotz des Fehlers immer funktioniert hat, in dem Fall aber nicht. Ich hab den Fehler also an der falschen Stelle gesucht.

[EWeiss]

Zitat:

Soweit ich weiß ist es egal.

Jo hast du recht
Auch wenn es in meinen Augen etwas unlogisch ist.

Hauptsache es läuft jetzt.

gruss

[Popov]

Programmieren ist schon eine feine Sache und eigentlich weiß ich auch immer was in meinem Programm passiert, aber nicht immer. So habe ich gestern an einem Programm etwas verändert. Das Programm ist einfach und enthält in einer Listbox lediglich die Dateinamen eines Ordners. Klickt man ein Item an, sucht das Programm eine weitere Datei in einem anderen Ordner. Hört sich einfach, ist es auch. Da ist nichts kompliziertes an dem Code.

Gestern überlegte ich mir, dass das Programm zwar seinen Job macht, aber wenn der Nutzer einen Fehler macht und eine der Dateien falsch benennt, dann wird sie nicht gefunden. Also habe ich etwas Logik mit eingebaut. Falls Datei fehlt, dann soll nach einer ähnlich klingenden Datei gesucht werden. Hört sich kompliziert an, ist aber nur etwas Pos Suche im Dateinamen. Nichts besonderes.

Nur plötzlich hat die Listbox nichts mehr angezeigt. Sie Liste war da, nur wurde der Text nicht angezeigt. Da war aber kein Fehler drin. Trotzdem, auf der Suche nach dem Grund fand ich in Form Create die Zeile SetStretchBltMode(Image.Canvas.Handle, HALFTONE). Die Zeile habe ich vor Tagen zu Testzwecken eingebaut aber vergessen sie wieder zu löschen. Also habe ich sie auskommentiert. Und siehe da, die Dateinamen in der Listbox werden wieder angezeigt.

Wie gesagt, eigentlich weiß ich immer was in meinen Programmen passiert, manchmal aber auch nicht. Wieso SetStretchBltMode die ListBox Anzeige abschaltet, weil ich mit Pos in einer Datei nach einem Teilbegriff suche, also das weiß ich auch nicht

Das hat zwar nichts mit dem oberen Problem zu tun, aber ich bin trotz dem etwas verwirrt.