Hallo labertasche,
wenn du Xe3 verwendest, dann kannst du wie folgt auf die Pixels zugreifen:
(Und interessant... ms-help://embarcadero.rs_xe3/libraries/FMX.Types.TBitmapData.html)
Beispiel setzt ein schwarzes Pixel bei 0,0, kein Antialiasing, keine Single Werte, Pixel bleibt Pixel...
Bitmap speichert sich in 'c:\test\', dieser Ordner sollte existieren
HTH!
Peter
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TForm1.Test;
var ABmp : TBitmap;
ABmpData : TBitmapData;
begin
try
ABmp := TBitmap.create(10,10);
ABmp.Clear(TAlphaColorRec.White);
Abmp.Map(TMapAccess.maWrite, ABmpData);
(** Pixel setzen **)
ABmp.SetPixel(0, 0, TAlphaColorRec.Black);
(** speichern **)
ABmp.SaveToFile('c:\Test\Test.png') ; // Format wird automatisch ermittelt...
finally
ABmp.Unmap(ABmpData);
ABmp.Free;
end
end; |
