Ich erstelle in einer Schleife ein BMP auf dessen canvas eine Zahl geschrieben wird. Das BMP wird gespeichert und verwendet. Aber er übernimmt die Nummerierung nicht, auf jedem BMP steht eine 1
Delphi-Quellcode:
for n:=0
to High(Locations)
do begin
Beach:=Locations[n];
bmp:=TBitmap.Create;
bmp.Width:=10;
bmp.Height:=12;
bmp.PixelFormat := pf24bit;
bmp.Canvas.Font.Size := 10;
bmp.Canvas.Font.Style := [fsbold];
bmp.Canvas.TextOut(2,-1,beach.
Name);
// könnte hier auch inttostr(n) machen, geht aber auch nicht
bmp.SaveToFile('
temp1.bmp');
Image:=Google.Maps.MarkerImage(
URL+'
temp1.bmp', Google.Maps.Size(10,12), Google.Maps.Point(0,0),Google.Maps.Point(5,6));
bmp.Free;
end;
Das ist nur ein ausschnitt aus der kompletten prozedur...
Was mache ich falsch? Warum wird immer nur die 1 gespeichert? Die schleife wird aber mehrmals durchlaufen.