Moin,
ich möchte das (die) bitmap(s) einer imagelist exportieren.
benötigt wird das für einen richtigen property-editor für meinen DFMEditor.
zunächst der Aufbau der binary-data:
4 bytes => Größe des "richtigen" Bitmaps
4 bytes => Anzahl der images
X bytes => das richtige Bitmap (beginnt mit 'BM')
rest der Daten => das maskenbitmap (beginnt auch mit 'BM')
laut
OH gibt es die methoden GetImageBitmap und GetMaskBitmap, welche eigentlich genau das machen, was ich benötige. Aber, ich habs bishe noch nicht hinbekommen, an das bitmap ranzukommen, ohne es als Datei zu speichern.
Delphi-Quellcode:
bmp:=TBitmap.create;
bmp.handle:=imagelist1.GetImageBitmap;
bmp.saveToFile(...);
bmp.free;
wenn ich statt dem SaveToFile z.B. Image1.Picture.bitmap.assign(bmp) verwende, passiert nichts...kein Fehler, kein bild...selbiges beim versuch, bmp in einen stream zu speichern.
es geht mir besonders um das maskenbitmap, da man da wohl nicht so ohne weiteres rankommt. man kann zwar mittels Getbitmap durch alle bitmaps iterieren, jedoch ohne an das maskenbitmap zu kommen, oder habe ich etwas übersehen?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var bmp,tmp_bmp:TBitmap;
vc,h,w,r,c,i:integer;
begin
bmp:=TBitmap.create;
tmp_bmp:=TBitmap.create;
w:=imagelist1.Width*4;
vc:=((imagelist1.Count div 4)+1);
h:=vc*imagelist1.height;
bmp.Width:=w;
bmp.Height:=h;
for r:=0 to vc-1 do
begin
for c:=0 to 3 do
begin
tmp_bmp.Canvas.FillRect(tmp_bmp.Canvas.ClipRect);//temp-bitmap löschen
i:=r*4+c;//index berechnen
imagelist1.GetBitmap(i,tmp_bmp);
//wie an das maskenbitmap rankommen?
bmp.Canvas.Draw(c*imagelist1.width,r*imagelist1.height,tmp_bmp);//temp-bitmap an entsprechende position des zielbitmaps kopieren
end;
end;
bmp.SaveToFile('C:\test.bmp');
tmp_bmp.free;
bmp.free;
end;
Gruß Frank