Hallo alle samt, verzeiht falls ich in der falschen Rubrik bin, aber TImage ist ja eine Komponente.
Jetzt zum Problem: Ich schreibe ein Programm für BK, das zufällig Einsen auf TImage.Canvas verteilt. Die Prozedur:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure RandomPlatz;
begin
with form1.Image1 do
begin
Canvas.Font.Color := Random(16581375 + 1);
Canvas.Font.Size := Random(6)+12;
Canvas.Font.Name := 'Times New Roman';
Canvas.Brush.Style := bsClear;
Canvas.TextOut(Random(width+15),Random(height+15),'1');
end;
end; |
Das klappt wunderbar, aber beim Speichern, während der Laufzeit, kriege ich folgende Fehlermeldung:
Cannot create file SavePictureDialog1C:\bilder\bild1.
Ich denke, dass es daran liegt, dass SavePictureDialog1 vor C:\ steht, aber ich weiß nicht wie ich es lösen kann. Zum Speichern verwende ich folgendes:
Quelltext
1:
2:
3:
4:
|
If SavePictureDialog1.Execute then
Image1.Picture.Graphic.SaveToFile(SavePictureDialog1.GetNamePath
+ SavePictureDialog1.Filename); |
Vielen Dank im voraus Thomas
