einfacher Schlagschatten

[stahli]

Ich habe mal im Selbstversuch einen Schatten programmiert (alles im Bitmap.Canvas mit Standardgrafik).
Ich zeichne dazu einfach unterschiedlich durchsichtige Linien neben das betreffende Rect.
Im Grunde ist das schon ok. Nur, mir gefallen die scharfen Übergänge noch nicht so ganz.

Hat jemand einen besseren Ansatz, der auch performant und möglichst übersichtlich ist?

Ich könnte mir vorstellen, ein weißes "Schattenbitmap" rechts und unten mit grauen Verläufen zu füllen und das dann zu bluren (also verwaschen auf den Hintergrund zeichnen - wobei das weiß dann quasi transparent bleiben müsste...)

Jemand eine Idee?

Delphi-Quellcode:

  procedure ShadowAlpha;
  var
    tmpBitmap: TBitmap;
    BlendFunc: TBlendFunction;
    C: TColor;
    I: Integer;
    SD: Integer;
  begin
    tmpBitmap := TBitmap.Create;

    C := clGray;
    SD := 70 div ShadowWith;

    tmpBitmap.Width := 1;
    tmpBitmap.Height := ClientRect.Height;
    tmpBitmap.Canvas.Brush.Color := C;
    tmpBitmap.Canvas.FillRect(Rect(0, 0, tmpBitmap.Width, tmpBitmap.Height));
    for I := 1 to ShadowWith do
    begin
      // Blend a foreground image over the top - constant alpha, not per-pixel
      BlendFunc.BlendOp := AC_SRC_OVER;
      BlendFunc.BlendFlags := 0;
      BlendFunc.SourceConstantAlpha := Max(70 - (I * SD) - (I * 2), 0);
      BlendFunc.AlphaFormat := 0;
      AlphaBlend(aBitmap.Canvas.Handle, ClientRect.Right + I - 1,
        ClientRect.Top + I, tmpBitmap.Width, tmpBitmap.Height,
        tmpBitmap.Canvas.Handle, 0, 0, tmpBitmap.Width, tmpBitmap.Height,
        BlendFunc);
    end;

    tmpBitmap.Height := 1;
    tmpBitmap.Width := ClientRect.Width;
    tmpBitmap.Canvas.Brush.Color := C;
    tmpBitmap.Canvas.FillRect(Rect(0, 0, tmpBitmap.Width, tmpBitmap.Height));
    for I := 1 to ShadowWith do
    begin
      // Blend a foreground image over the top - constant alpha, not per-pixel
      BlendFunc.BlendOp := AC_SRC_OVER;
      BlendFunc.BlendFlags := 0;
      BlendFunc.SourceConstantAlpha := Max(70 - (I * SD) - (I * 2), 0);
      BlendFunc.AlphaFormat := 0;
      AlphaBlend(aBitmap.Canvas.Handle, ClientRect.Left + I,
        ClientRect.Bottom + I, tmpBitmap.Width, tmpBitmap.Height,
        tmpBitmap.Canvas.Handle, 0, 0, tmpBitmap.Width, tmpBitmap.Height,
        BlendFunc);
    end;

    tmpBitmap.Free;
  end;

[Neutral General]

Das mit dem Schattenbitmap sollte gehen. Die Alphablend Funktion unterstützt auch per Pixel Alpha.
Du könntest also deinen Schatten auf das weiße Bitmap zeichen, bluren, den weißen Pixeln einen Alphawert von 0 geben und dann das Schattenbitmap über das Zielbitmap blenden. Brauchst dafür natürlich 32-Bit Bitmaps (zumindest für das Schattenbitmap) und musst dann mit Scanline "malen" oder zumindest musst du mit Scanline die Alphawerte der einzelnen Pixel setzen.

[Union]

Schön übersichtlich wird das nicht wegen der Alphablend-Aufrufe, aber hier sind schöne Beispiele. Ich würde auch keine Schleife verwenden und Linien zeichnen, aber dafür Vcl.Graphutil.GradientFillCanvas verwenden.

[stahli]

Danke schon mal.
Ich werde erst mal noch einen anderen Ansatz versuchen:

Ich muss ja auch prüfen, ob Controls als Block aneinander sitzen.
Dann darf der Schatten nicht neben jedem Control gezeichnet werden, da es sonst unlogische Überneidungen gibt (rechts im Bild neben dem roten Kasten).

Also versuche ich folgendes:

- alle nicht hochgehobenen Controls zeichnen
- alle Regionen der hochgehobenen Controls (i.F. "hC") vom Zeichnen ausnehmen <- ist vermutlich gar nicht nötig
- alle hC nach .Left und .Top sortieren
- alle rechten Kanten (bzw. Teile) der hC ermitteln, die NICHT von anderen hC berührt werden
- alle angrenzenden gesammelten Kanten-Teile vereinen
- rechte Schatten an allen Kanten malen, dazu beide Enden auf den letzten Pixeln abschwächen
- ... das Gleiche für die unteren Kanten
- gesperrte Regionen freigeben
- alle hC zeichnen

Damit sollten die rot gerahmten Controls im Bild als Block erscheinen (auch wenn sie nicht genau bündig wären) und auf "Type 14" könnte kein Schatten mehr fallen.

Mal sehen, ob das so klappt...




PS: Man sollte beim Schreiben nicht die ESC-Taste erwischen. Dann ist der geschriebene Text offenbar unwiederbringlich weg...

[stahli]

So, nach der o.g. Verfahrensweise passt das Ergebnis jetzt für mich.
So kann ich auf Blur verzichten, auch wenn das vielleicht noch etwas hübscher wäre.
Aber den Schatten brauche ich nur beim Verschieben von Controls. Da muss man es nicht ganz so genau nehmen.

Im Bild habe ich mal ein paar Controls aus dem Drag-Block ausgenommen um auch mal Lücken zu testen.
Soweit funktioniert das sehr gut. Es ist hier allerdings nicht auf teilweise Überschneidungen bzw. Anstossungen ausgelegt.
Bei Bedarf müsste man das noch optimieren.

Falls es jemanden hilft, anbei meine Quellen dazu.
Das kann man natürlich nicht 1:1 übernehmen (da es sich um eigene Controls handelt), aber evtl. als Anregung.

[himitsu]

Ist der Schatten nicht ein Pixel zu tief? (unter den erhobenen Feldern ist noch ein weißer Streifen)

[stahli]

1) Schlagschatten

Habe das Ganze mal noch etwas dynamischer gemacht: https://youtu.be/Nm1ILE2JiNs
Dazu braucht man einem Control (hier Zelle) nur einen Schattenwert (Byte) zuweisen.


2) Monitorkalibrierung

Ich hatte ja Null Ahnung.
Dann hatte ich von der Monitorkalibrierung unter Windows erfahren und bei mir alles verstellt.
Jedenfalls sah es vorher besser aus. Auch Rücksetzung des Farbprofils und der Monitorwerte auf Werkeinstellungen bringen nicht wirklich viel.

Habe mir jetzt mal ein Kalibrierungsgerät bestellt (wusste gar nicht, dass es so etwas für den Hausgebrauch gibt).
https://www.youtube.com/watch?v=Y8H_23W7o_s
Mal sehen, was es bringt...

[Harry Stahl]

Zitat von stahli:

Habe mir jetzt mal ein Kalibrierungsgerät bestellt (wusste gar nicht, dass es so etwas für den Hausgebrauch gibt).
https://www.youtube.com/watch?v=Y8H_23W7o_s
Mal sehen, was es bringt...

Habe mir mal das Video angesehen und direkt auch so ein Teil bestellt. Mal gespannt...

[stahli]

Das Spyder-Thema habe ich mal ausgelagert: http://www.delphipraxis.net/185381-m...or-spyder.html

[stahli]

Die Schattenlösung habe ich nochmal umgebaut.
Wer will, hier geht es weiter: http://www.delphipraxis.net/185374-r...ml#post1304439