Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: PNG verschmelzen

    Delphi
    by creehawk, 11. Jun 2023
  Moin Moin!
  zuerst mal sagenhaften vielfältigen Dank. :thumb:
  
  Ich hatte bis gestern abend auch schon ein paar Dinge enträtseln können, bin dann aber am Alphaformat=afDefined hängengeblieben.
  Die Zeile mit
  
  
  ImageCollection.Draw(bm.Canvas, Rect(0, 2 * wic.height div 3,wic.Width div 3, wic.height), 'Star');
• Forum: Multimedia

  AW: PNG verschmelzen

    Delphi
    by creehawk, 10. Jun 2023
  @ Renate Schaaf
  
  Nachdem ich rausgefunden hatte das die ImageCollection mit TWICImage arbeitet habe ich das so gemacht:
  
  procedure TForm1.TestBtnClick(Sender: TObject);
  var
  Png1: TWicImage;
  Png2: TPngImage;
  begin
  Png1 := TWicImage.Create;
• Forum: Multimedia

  AW: PNG verschmelzen

    Delphi
    by creehawk, 10. Jun 2023
  Moin Moin!
  
  
  unit Unit1;
  interface
  uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons, Vcl.Imaging.pngimage,
  Vcl.BaseImageCollection, Vcl.ImageCollection;
  type
• Forum: Multimedia

  PNG verschmelzen

    Delphi
    by creehawk, 9. Jun 2023
  Moin Moin.
  
  Ich habe 1396 teiltransparente PNG Grafiken in der Grösse 128x128.
  Verschiedentlich möchte ich per Programm unten links einen teiltransparenten Stern 'einbauen', 36x36 gross.
  Beide Grafiken in ein TImage einlesen, erst die Grafik, dann den Stern, beides aus einer ImageCollection.
  
  
  Form1.Image1.Picture.Graphic :=...