AnimatePNG

[EWeiss]

Zitat von jaenicke:

Zitat von EWeiss:

Kann sein ist halt abhängig vom Hintergrund des Desktop.

Ich finde es halt nicht so günstig das so stark transparent zu machen.

Screenshots im Anhang...

Ist ja kein Problem.
Aber dafür gibt es ein Lösung.

Erstelle eine leere *.PGN ohne Transparenz Größe Bsp. 50x50 komplett schwarz
und Speicher diese in den Skin Ordner mit den gleichen Name wie das Dialog Panel.
Und schon ist es gut "DlgPanel.png"

Kannst auch rot oder anders machen.

Bin ja flexibel.
Du darfst aber auch gerne deinen eigenen Skin machen davon abgesehen.

Zitat:

bis auf die Groß-/Kleinschreibungsgeschichte

Ah jo bin kein English Man von daher.. Aber ich habe es wenigstens versucht.

Zitat:

Schon erstaunlich was man aus Gif-Bildern zaubern kann.

Bei "Normalen Menschen" hat man da schon eine gewisse Achtung vor, da Georg aber fast Blind ist, ist das schon irgendwie Hochachtungsvoll.

gruss

[EWeiss]

Das erste Frame wird nun angezeigt mit APNG.
Habe noch ein kleines Problem was die Transparenz angeht die geht natürlich durch die Konvertierungen
HBITMAP > Bitmap Bitmap to GDIPlus Image verloren.

Aber bin guter Hoffnung arbeite daran.

gruss

[EWeiss]

APNG Format funktioniert jetzt soweit.
2 Problem stehen noch an.

1. Transparenz wieder herstellen nach
GDIP_CreateBitmapFromHBITMAP(Bitmap, 0, pBitmap);

2. Etwas an der Schraube drehen was die CPU Belastung angeht. (Mache da noch irgend etwas falsch.)
Normalerweise sollte diese Gegen 0% gehen.

Anschließend muss ich noch ein Tool erstellen mit dem man APNG Dateien erstellen kann (Drag-Drop) sollte reichen.

Mein Problem mit der Transparenz ist das ich hier kein TBitmap verwende dem ich einfach das HBitmap als Handle übergeben könnte.
Hab noch nicht die richtige Lösung für das Problem gefunden.

gruss

[Delphi-Laie]

Ich las jetzt alle Deine Beiträge durch, Emil, aber eine Aussage konnte ich nicht entdecken, deshalb frage ich danach: Ist es angedacht, irgendwann einmal eine Konvertierungsfunktion von gif nach apng (und ggf. sogar zurück) anzubieten?

Gruß Delphi-Laie

[EWeiss]

Zitat von Delphi-Laie:

Ich las jetzt alle Deine Beiträge durch, Emil, aber eine Aussage konnte ich nicht entdecken, deshalb frage ich danach: Ist es angedacht, irgendwann einmal eine Konvertierungsfunktion von gif nach apng (und ggf. sogar zurück) anzubieten?

Gruß Delphi-Laie

Ja.. Das ist der sinn der Sache.
Zurück nicht hin ja. Gif -> Apng

gruss

[EWeiss]

Ich versuche ein HBitmap in ein GDIPlus konformes Format zu bringen

Delphi-Quellcode:

function BitmapToImage(Hdib: HBitmap): Pointer;
var
  lpImg: Pointer;
  bi: tagBITMAPINFO;
  bm: Bitmap;
  BitmapLength: LongWord;
  bmpBits: TBytes;
  DC: HDC;
begin
  Result := nil;

  DC := GetDc(0);

  if Hdib <> 0 then
  begin
    GetObject(Hdib, sizeof(bm), @bm);

    bi.bmiHeader.biSize        := SIZEOF(bi.bmiHeader);
    bi.bmiHeader.biWidth       := bm.bmWidth;
    bi.bmiHeader.biHeight      := -bm.bmHeight;
    bi.bmiHeader.biPlanes      := 1;
    bi.bmiHeader.biBitCount    := 32;
    bi.bmiHeader.biCompression := BI_RGB;

    BitmapLength := bm.bmWidth * bm.bmHeight * 4;
    SetLength(bmpBits, BitmapLength + 1);

    GetDIBits(DC, Hdib, 0, bm.bmHeight, @bmpBits[0], bi, DIB_RGB_COLORS);

    if @bmpBits[0] <> nil then
    begin
      if Gdip_CreateBitmapFromScan0(bm.bmWidth, bm.bmHeight, bm.bmWidth * 4, PixelFormat32bppARGB,
        @bmpBits[0], lpImg) = OK then
          Result := lpImg;
    end;
    ReleaseDC(0, DC);
  end;
end;

Es läuft alles durch nur beim aufruf von
GDIP_DrawImageRectRectI kracht es mal wieder.

Ich sehen keinen Fehler in meinem Code.
Eventuell TBytes ?

gruss

[EWeiss]

Ok. APNG funktioniert nun soweit ohne das ich Tausende Units oder fremd Komponente einbinden musste.
Das Problem von oben.

Musste
bmpBits: TBytes;
in meine Classe TAnimatePNG Privat verschieben danach ging es.

Andererseits ist obige Funktion nicht das wahre vom Ei da ich dort ein unnötiges DC aufrufen muss.
Also dann besser so.
Ok zurück muss doch die obere verwenden diese hier ist wegen der Kompatibilität zu 16Bit.

Delphi-Quellcode:

function TAnimatePng.BitmapToImage(Hdib: HBitmap): Pointer;
type
  TByteArray = array of Byte;
var
  BitmapLength: LongWord;
  bi: tagBITMAP;
  lpImg: Pointer;
begin

  Result := nil;
  bmpBits := nil;

  GetObject(Hdib, sizeof(bi), @bi);

  BitmapLength := bi.bmWidth * bi.bmHeight * (bi.bmBitsPixel div 8);
  SetLength(bmpBits, BitmapLength + 1);
  GetBitmapBits(Hdib, BitmapLength, @bmpBits[0]);

  if @bmpBits[0] <> nil then
  begin
    if Gdip_CreateBitmapFromScan0(bi.bmWidth, bi.bmHeight, bi.bmWidth * 4, PixelFormat32bppARGB,
      @bmpBits[0], lpImg) = OK then
      Result := lpImg;
  end;

  DeleteObject(Hdib);
end;

gruss