Pascal Project Manager & Editor

[ringli]

Der gezeigte Code scheint nicht das Problem zu sein. Zumindest nicht in einer VCL-Testanwendung. Könnte es sein das das Malen in eine Bitmap das Problem auslöst?

[Harry Stahl]

Zitat von ringli:

Der gezeigte Code scheint nicht das Problem zu sein. Zumindest nicht in einer VCL-Testanwendung. Könnte es sein das das Malen in eine Bitmap das Problem auslöst?

Ja, das malen ist das Problem.

Mal vereinfach gezeigt, im OndrawItemEvent der Listbox:

Delphi-Quellcode:

  TI.picture.LoadFromStream(msOut);

  bm := TBitmap.Create;
  bm.SetSize(32,32);

  bm.PixelFormat := pf24bit;
  bm.Transparent := True;
  bm.TransparentMode := TTransparentMode.tmfixed;
  bm.TransparentColor := clWhite;
  bm.Canvas.Draw(0,0, TI.Picture.Graphic);

  lb.Canvas.StretchDraw(System.classes.rect (rect.Left+2, rect.top+3, rect.Left+2 + round (24*ScaleFactor), rect.top+3 + round (24*ScaleFactor)), bm);

- bm auf 32 bit zu setzen bringt nichts
- bm.transparentmode auf auto zu setzen bringt auch nichts, da dann zB. vollbunte Icons transparent werden...

[ringli]

Kannst du nicht mit einer TVirtualImagelist bzw. einer einfachen TImageList arbeiten statt in eine Bitmap zu malen?

[Harry Stahl]

Zitat von ringli:

Kannst du nicht mit einer TVirtualImagelist bzw. einer einfachen TImageList arbeiten statt in eine Bitmap zu malen?

Wie stellst Du Dir das vor (incl. Stretchen des 32 Pixel auf 24 pixel)?

[Harry Stahl]

Na ja, also vorläufige Zwischenlösung habe ich es so gemacht, dass im Nichtwindows Style (also möglicherweise dunkler oder anderer farbiger Hintergrund der liste) ich die bitmap in eine 32 bit bitmap umwandle, von auußen nach innen wandere und solange alle weißen Pixel auf unsichtbar schalte, bis eine andere Farbe als weiß auftritt.

Das Ergebnis zeichne ich dann mit der Alpha-Blendfunktion.

Ist noch nicht perfekt, sieht aber schon mal eine Ecke besser aus, siehe anlg. Screenshot.

[ringli]

Zitat von Harry Stahl:

Wie stellst Du Dir das vor (incl. Stretchen des 32 Pixel auf 24 pixel)?

Ich musste grade für mich feststellen das eine Listbox gar keine ImageList unterstützt. Also meine Idee verwerfen...

Aber du scheinst ja schon eine funktionierende Lösung gefunden zu haben.

[Harry Stahl]

Ja, die Anzeige auf dunklem Hintergrund sieht jetzt etwas besser aus, muss ich aber noch nachtragen bei der Ansicht IDE-Manager, Favoriten und zuletzt.

Habe aber schon mal die aktualisierte Version 5.01 hochgeladen, da habe ich die Hauptseite noch mal etwas geändert, da sind die grundsätzlichen Projekt-Details nun auch direkt erreichbar, ohne dass man auf "Details" klicken müsste (siehe anliegenden Screenshot)

Unter dem Details-button kann man nun auch direkt auf anklickbare Labels klicken, um zur richten Ansicht zu kommen, spart man einen Klick. Außerdem konnte ich so die Tabs-Register der Detail-Ansicht weglassen, die doch sehr viel Unruhe in das Gesamtbild brachten.

[Harry Stahl]

Eine aktualisierte Version (5.1) ist nun verfügbar, welche auch Delphi 12 unterstützt.

https://www.hastasoft.de/PPME.htm

Ferner gibt es nun das WelcomPage PlugIn als selbständigen Download, wer also nur das PlugIn nutzen will, findet es als separaten Download am Ende der oben genannten Page.

Hier gibt es auch ein kurzes Video dazu: https://youtu.be/3PZ16v4zn3c?si=HP66-99aQSw2nmNu