1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| var
contour, masque, resultat: TBGRABitmap;
i: integer;
begin
TBGRABitmap.AddFreeTypeFontFolder(GetCurrentDir);
for i := 1 to 12 do
begin
contour := TBGRABitmap.Create(60, 60, BGRAPixelTransparent);
contour.FontName := 'Chess Mark';
contour.FontHeight := 60;
contour.TextOut(0, 0, DATA[i, 1], BGRABlack);
masque := TBGRABitmap.Create(60, 60, BGRAWhite);
contour.ParallelFloodFill(0, 0, masque, BGRABlack, fmSet, 254);
resultat := TBGRABitmap.Create(60, 60, BGRAPixelTransparent);
resultat.FillMask(0, 0, masque, BGRAWhite, dmSet);
resultat.PutImage(0, 0, contour, dmDrawWithTransparency);
contour.SaveToFile(DATA[i, 2] + '.1.png');
masque.SaveToFile(DATA[i, 2] + '.2.png');
resultat.SaveToFile(DATA[i, 2] + '.3.png');
contour.Free;
masque.Free;
resultat.Free;
end;
end. |
Partager