TPNGObject - Erstellen Sie eine neue leere Bild und ziehen Sie durchscheinend Bilder drauf

Ich Baue eine Anwendung, die "virtuellen windows". Die Ausgabe ist TImage Objekt.

1) Die Anwendung lädt, Fenster-skin-Dateien in TPNGObject's:

2.) Dann Anwendung erstellen Sie eine neue leere TPNGObject, und die Größe des skin-Dateien zu den notwendigen Größen und zeichnen Sie diese auf das leere Bild. Sollte in etwa so Aussehen:

TPNGObject - Erstellen Sie eine neue leere Bild und ziehen Sie durchscheinend Bilder drauf

3) Und die endgültige Ausgabe auf TImage:

TPNGObject - Erstellen Sie eine neue leere Bild und ziehen Sie durchscheinend Bilder drauf

Das problem ist, dass ich weiß, wie das erstellen einer komplett leeren off-screen Bild. Natürlich könnte ich das einfach machen die Haut von Dateien auf TImage jedes mal, aber es ist einfacher und besser zu skalieren skin-Dateien und erstellen Sie die Fenster einmal statt.

Ich bin mit der PNG-Library von Gustavo Daud, version 1.564 (31 Juli, 2006).

Einige mögliche Erklärungen für die schlechte Antwort, dass Sie nicht, zumindest meiner Meinung nach, deutlich genug, was fehlschlägt. Auch, D7, ist eher die alten und es gab durchaus eine Menge von konkurrierenden PNG-Klassen. Und es ist Sonntag! Sein patient. Auch ein BMP wird nicht helfen, weil D7 BMP-support war ziemlich lahm.
Können Sie bitte lassen Sie uns wissen Sie genau, welche PNG-Bibliothek, die Sie verwenden? Es gibt viele da draußen, und wir können nicht helfen, ohne zu wissen, was es ist.
Roberts ist mit pngimage von Gustavo Daud, version mindestens 1.56. Roberts, Ihr Kommentar scheint vernünftig genug, aber öffnen Sie das erzeugte Bild in ein Bild-editor, und alle Kanäle sind leer.
Ich bin untersucht, und ich bin genauso ratlos wie du. Ich bin ausdrücklich Zeichnung auf die Leinwand, aber kein Bild kommt...
Roberts, Sie haben Martijn Saly ' s (Thany) Erweiterungen, insbesondere 'pngfunctions.pas'?
Ich habe nur PNGFunctions.pas.
Bevor die Menschen, die versuchen, Sie zu beantworten Frage aus der hand, es sieht aus, als ob Sie bedeutet etwas anderes Fragen. Der Umfang der Frage geändert hat. Diese Frage sollte weiterhin über die spezifischen PNG-Konstruktor geben schlechte Ergebnisse, und Sie sollten sich Fragen, eine andere Frage, über die Schichtung, transparente Bilder. Als ich dachte, habe ich deutlich gemacht in beide meine Antworten, die alle die primäre Zeichnung getan werden sollte, bitmaps, kopiert und in das PNG -, wie gebraucht. Transparenz kann erreicht werden, in bitmaps, und das einzige mal, sollten Sie sich sorgen machen über das, PNG, wenn Sie die Arbeit mit PNG-Dateien.
Und nochmal meine Letzte Bemerkung: Sie sollten einen Schritt zurück und werfen Sie einen Blick auf das größere Bild, welches Projekt Sie zu tun versuchen. Die PNG-Bibliothek (obwohl möglich) nicht unbedingt gedacht, nur für transparente Zeichnung. Es ist gedacht für die Arbeit mit PNG-Dateien.
Tut mir Leid, aber die Frage ist, in keiner Weise im Zusammenhang mit der ursprünglich gestellten Frage. Meine Antworten sind jetzt sinnlos und bekommst downvotes von hier aus auf. Man sollte Sie nie ändern Ihre Frage wie oben. Hinzufügen von Informationen, ja. Re-Formulierung, ja. Aber das löschen der Inhalt der Frage und schreiben eine andere Frage, ist ein Albtraum für uns.
PS Großem detail zu erklären, was Sie zu Fragen sind, einfach zu ersetzen Ihre Frage mit einer anderen Frage ist die Letzte Sache, die Sie tun möchten.
Es ist dieselbe Frage, die ich nicht erwähnt habe, einige Dinge. Das ist alles
Ich glaube, das Wort "Durchscheinend" wird Ihre Frage viel mehr klar, statt "Fast Durchsichtig". Fast Transparent machte mich verwirrt, aber wenn es die Transluzenz, die du meinst, dann ist das eine ganz andere Ballspiel. Ist es das, was du meinst?
Nochmal sorry, mein Englisch ist schlecht, ich komme aus anderen Land und ja, "Durchscheinend", das ist es, was ich meinte.
Großen Dank für Eure Hilfe, auch google für PNGFunctions.pas - es gibt eine Menge guter Funktionen, die innerhalb Sie ;), lernen im PNG ein bisschen besser jetzt.
Ich selbst kenne kaum PNG und Lerne es, aber ich würde noch empfehlen, nur verwenden Sie PNG wenn Sie beabsichtigen, arbeiten mit PNG-Dateien. Ansonsten werden Bitmaps sind vollständig in der Lage, die gleichen Dinge, die Sie wollen.
Auch Teil der Grund, ich will Ihnen helfen, mit diesem ist, dass ich in der Tat bin ironischerweise etwas ähnliches - Gebäude angepasste Fenster mit Glas-Effekt.
Ja, ich sehe deine Fragen ^^. Da kann man nicht einfach im paint ein PNG über die zweite PNG ich heruntergeladen Quelle aus dem Russischen blog und jetzt kann ich ein PNG von 2 PNG ' s
Aber ich denke, ich werde aufgeben, denn ich weiß nicht, wie man leeres PNG. Ich denke, meine Antwort ist die einzige, die...
Eigentlich hatte ich schon so ein Programm, ich baute es vor einem Monat, aber wegen der Sicherung, ich vergaß, es zu kopieren. Aber jetzt will ich es von Grund auf besser mit Fenster-Erstellung.
Das problem könnte sein, etwas so einfaches wie zu vergessen, um die Breite/Höhe der PNG-Objekt. Ich habe diesen Fehler viele Male (mit bitmaps). Auch von den Klängen der es, du nimmst an einem Projekt Weg, über Ihren Kopf, und es wird viele kleine Stücke zusammen zu arbeiten - und das ist immer Wahnsinn.
> "Wie man leere PNG" - (1) Erstellen Sie eine bitmap, die Größe, pixel-format 24 bit, (2) Erstellen Sie png-Objekt, dann png.Assign(bmp) (3) png.CreateAlpha.
Aber ich brauche nicht ein weißes Bild!!! Leer, leer - es bekommen?
Dann verwenden Sie die CreatePNG Verfahren, die ich erwähnt habe in der Antwort gelöscht. Irgendwie scheinen Sie sich nicht zu haben, bekam es aber..
Das hat nicht funktioniert.
Es ist eine komplett transparente png -, dass ich gezeigt habe, wie einige schreiben sichtbaren text auf es und der rest ist transparent. Ist nicht, was Sie bedeuten, indem Sie eine leere png? Was können Sie nicht tun? Was hat nicht funktioniert?
Oh, tut mir Leid. Ich glaube nicht, dass der code nicht mehr, dass Sie es gelöscht haben. Ich wusste nicht, wie es zu benutzen. Jetzt, nach diesen Tagen habe ich gelernt, wie man mit PNG. Sorry nochmal. Können Sie es wiederherstellen oder senden an [email protected] ??
Wiederhergestellt wird, sehen Sie, wenn Sie ein leeres png.
Haben Sie gesehen, FireMonkey und seine Fähigkeit, die Haut Ihre Anwendung für jedes Betriebssystem (und eigentlich kompilieren es für diejenigen, die als gut).
Nein, Nein, Nein. Das ist nicht das, was ich Tue. Ich bin nicht skinnen meine Anwendung. Ich bin makking skinnable Formen auf TImage

InformationsquelleAutor Little Helper | 2011-12-18

5

Den unten verwendet CreatePNG Verfahren der 'pngfunctions.pas' von Martijn Sally, die aus einer Erweiterung Bibliothek (pngcomponents) zu pngimage.
```
var
  Bmp, Mask: TBitmap;
  PNG: TPNGObject;
begin
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf24bit;
  Bmp.SetSize(64, 64);

  Bmp.Canvas.Brush.Color := clBtnFace;
  Bmp.Canvas.Font.Color := clRed;
  Bmp.Canvas.Font.Size := 24;
  Bmp.Canvas.TextOut(4, 10, 'text');

  Mask := TBitmap.Create;
  Mask.PixelFormat := pf24bit;
  Mask.Canvas.Brush.Color := clBlack;
  Mask.SetSize(64, 64);
  Mask.Canvas.Font.Color := clWhite;
  Mask.Canvas.Font.Size := 24;
  Mask.Canvas.TextOut(4, 10, 'text');

  PNG := TPNGObject.Create;
  CreatePNG(Bmp, Mask, PNG, False);
  PNG.Draw(Canvas, Rect(10, 10, 74, 74));

  // finally, free etc...
```
Hier ist die Ausgabe (schwarze, weiße Rechtecke sind TShapes):
- Vielen Dank, jetzt werde ich nur diesen code testen, nur um sicher zu sein...
- Ich weiß nicht, wie diese, die ich brauche, um zu zeichnen, einige PNG ' s auf dieser neuen, leeren Bild.
- so zeichnen Sie in verschiedene png ' s, dann die Kombination von Ihnen in ein anderes leeres png?
- Ich bin Zeichnung einige PNG ' s über dieses Feld leer, PNG. Keine Hilfe?
- Wer weiß? Offenbar habe ich nicht verstanden, die Frage an alle.. ich geändert habe ist die Frage, so dass Sie können nehmen Sie die Stimme wieder. Tun Sie dies bitte, da die anderen Antworten sind weniger relevant als dieses :).
- Es ist gar nicht so schwer. 1) Erstellen Sie leere PNG 2) Malen paar PNG ' s auf die leere PNG. 🙂 Du machst das ganz gut!
- Gut das du nie erwähnt "Farbe ein paar PNG' s auf die leere PNG", bevor Sie nur erwähnt, "Zeichnung", um die PNG-Leinwand. Spezifische details sind sehr hilfreich für Menschen, die Ihre Fragen beantworten.
- Ich weiß, ich bin ein schlechter Mensch.
- Niemand ist ein schlechter Mensch, nur Mangel an details führt zu einem Mangel an Hilfe.
InformationsquelleAutor Sertac Akyuz
3

Meine andere Antwort ist eine weitere alternative, die ich vorschlagen. Aber Ihre Frage noch aufwirft, ein Problem: Die PNG-library muss entweder ein bug, welcher verhindert, dass jede Leinwand Zeichnung nicht sichtbar (nach Verwendung von CreateBlank Konstruktor mit COLOR_RGBALPHA als Farb-Typ) oder wir sind alle etwas fehlt.

Wie es aussieht ist die einzige Lösung, die ich sehen kann, ist (wie Sie erwähnen in Ihrem Bearbeiten) verwenden Sie ein Bitmap-tun Sie Ihre Zeichnung statt. Verwenden Sie die transparenten Eigenschaften der bitmap (Transparent: Bool und TransparentColor: TColor) um den transparenten Bereich des Bildes, dann, wenn Sie Sie brauchen ein transparentes PNG, kopieren Sie einfach die bitmap auf das neue PNG-Objekt...
```
BMP.Width:= 100;
BMP.Height:= 100;
BMP.Transparent:= True;
BMP.TransparentColor:= clWhite;
BMP.Canvas.Brush.Style:= bsSolid;
BMP.Canvas.Brush.Color:= clWhite;
BMP.Canvas.FillRect(BMP.Canvas.ClipRect);
BMP.Canvas.Brush.Color:= clBlue;
BMP.Canvas.Ellipse(10, 10, 90, 90);
PNG.Assign(BMP);
```
Und die weiße Fläche sollte das Bild transparent sein. Es gibt andere Möglichkeiten der Bewältigung der transparente Bereich, aber das ist ein anderes Thema.

Bild:

Ist es das, was Sie zu tun versuchen?
- Es funktioniert. Aber Wenn ich etwas zeichne, die nicht vollständig transparent sind, dann werden diese Pixel wird weiß. Es ist also nicht eine aswer. 🙁
- Ich habe keine Ahnung, was du meinst mit Pixel drehen weiß, aber es klingt wie ein Thema für eine andere Frage.
- Ich meine, Sie brauchen, um Beispiele über das, was du meinst. "Pixel weiß" könnte bedeuten, Tausende von verschiedenen Dingen.
- Ich löschte das Projekt, aber ich weiß nicht, wie zu sagen. Sie verwendet TransparentColor = clWhite und ich Male meine fast transparenten Pixel auf das leere Bild. Die Pixel schauen, wie es ist weiß lackiert, die unter Ihnen. Ich kann ziehen Es durch mein selbst und senden Sie das Foto. Wie ich schon sagte, habe ich gelöscht, das Projekt, und ich habe keine Zeit einen neuen zu machen, also werde ich die Farbe von meinem selbst.
- Öffnen Sie das Bild in alle PNG-editor und Sie sehen das problem. i.stack.imgur.com/e0pxY.png Die Grenzen sind nicht deckend und auch nicht vollständig transparent, sondern Sie sehen, dass Sie in weißer Farbe, wenn die mit Ihrem code. 🙁
- Ich möchte leere PNG -, dann ziehen einige Grenzen auf. Diese PNG-ich bin Zeichnung auf bereits geladen mit Hintergrundbild.Canvas. Da bin ich Zeichnung PNG-auf das Bild, die Leinwand, die Transparenz bleibt. Und es sieht cool aus. Ich kann nur einfach zeichnen diese Grenzen auf das Bild, Leinwand, aber statt verschwenden von CPU an, ich möchte eine PNG und malen Sie auf das Bild, wenn nötig.
InformationsquelleAutor Jerry Dodge

Ich entschuldige mich für die Menschen, dass ich verwirrt Ihre Köpfe.

Es stellt sich heraus CreateBlank funktioniert wie gewollt. Das problem war, dass ich die Zeichnung, die auf PNG-PNG-Leinwand (PNG.Canvas.Draw). Canvas nicht wirklich unterstützen Transparenz. Zeichnen Sie eine durchscheinende PNG auf einem anderen PNG benötigen Sie eine Prozedur/Funktion verschmilzt, dass jene beiden Schichten zusammen. Mit etwas googlen landete ich mit dieser Prozedur:

procedure MergePNGLayer(Layer1, Layer2: TPNGObject; Const aLeft, aTop: Integer);
var
  x, y: Integer;
  SL1,  SL2,  SLBlended: pRGBLine;
  aSL1, aSL2, aSLBlended: PByteArray;
  blendCoeff: single;
  blendedPNG, Lay2buff: TPNGObject;
begin
  blendedPNG := TPNGObject.Create;
  blendedPNG.Assign(Layer1);
  Lay2buff:=TPNGObject.Create;
  Lay2buff.Assign(Layer2);
  SetPNGCanvasSize(Layer2, Layer1.Width, Layer1.Height, aLeft, aTop);
  for y := 0 to Layer1.Height - 1 do
  begin
    SL1 := Layer1.Scanline[y];
    SL2 := Layer2.Scanline[y];
    aSL1 := Layer1.AlphaScanline[y];
    aSL2 := Layer2.AlphaScanline[y];
    SLBlended := blendedPNG.Scanline[y];
    aSLBlended := blendedPNG.AlphaScanline[y];
    for x := 0 to Layer1.Width - 1 do
    begin
      blendCoeff:=aSL1[x] * 100/255/100;
      aSLBlended[x] := round(aSL2[x] + (aSL1[x]-aSL2[x]) * blendCoeff);
      SLBlended[x].rgbtRed   := round(SL2[x].rgbtRed + (SL1[x].rgbtRed-SL2[x].rgbtRed) * blendCoeff);
      SLBlended[x].rgbtGreen := round(SL2[x].rgbtGreen + (SL1[x].rgbtGreen-SL2[x].rgbtGreen) * blendCoeff);
      SLBlended[x].rgbtBlue  := round(SL2[x].rgbtBlue + (SL1[x].rgbtBlue-SL2[x].rgbtBlue) * blendCoeff);
    end;
  end;
  Layer1.Assign(blendedPNG);
  Layer2.Assign(Lay2buff);
  blendedPNG.Free;
  Lay2buff.Free;
end;

Verwendung:

var
  PNG1, PNG2: TPNGObject;
begin
  PNG1 := TPNGObject.CreateBlank(COLOR_RGBALPHA, 16, 500, 500);
  PNG2 := TPNGObject.Create;
  PNG2.LoadFromFile('...*.png');
  MergePNGLayer(PNG1, PNG2, 0, 0);
  // PNG1 is the output

Wieder, ich bin wirklich Leid für Benutzer, die helfen wollten, aber konnte nicht wegen der nicht mich zu verstehen.

InformationsquelleAutor Little Helper

0

Ich habe keine Antwort auf diese Frage, aber ich habe herausgefunden, wie man dasselbe Ergebnis mit jedem PNG-editor. Erstellt habe ich leere 1000x1000 PNG-Bild und speicherte es in meinem Verzeichnis der Anwendung. Dann öffne ich dieses Bild in meinem Programm und ändern Sie die Größe Bild zu benötigten Größen (kleiner natürlich) und das ist der trick.
- Ich vermute, die arbeiten können, aber das scheint wie eine billige alternative. Es muss eine bessere Lösung für dieses problem, Sie nicht hinzufügen, diese CreateBlank Konstruktor für nichts.
- Ja, Sie nicht hinzufügen, CreateBlank für nichts. Aber ich spended 5 Stunden gestern auf, dass. Ich dachte mir, dass CreateBlank verändert einfach alle pixel die Transparenz zu hundert, und wenn Sie etwas zu malen, werden Sie nicht sehen, weil seine 100% transparent. (Im nicht sicher, über diese Theorie)
InformationsquelleAutor Little Helper

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.