teechartgrafik in groupbox speichern

[bernerbaer]

So nicht mit mir Bye Bye Delphipraxis

[Perlsau]

Zitat von bernerbaer:

So nicht mit mir Bye Bye Delphipraxis

Tja, PM geht nicht, hast du gecancelt. Und jezt wegen Überempfindlichkeit gleich abmelden??? Ich erfahre ja nicht einmal, wodurch du dich so angegriffen fühlst

[Hartfrid Krause]

an bernaber
danke so klapptshttp://www.delphipraxis.net/images/smilies/icon_biggrin.gif

[Hartfrid Krause]

Das Speichern der bitmap im selben Unterverzeichnis wie das Gesamtprojekt klappt mit:

procedure Tform31.Button1Click(Sender: TObject);
var Bitmap: TBitmap;
Rect: TRect;
begin
Rect.Left:= 0;
Rect.Top:= 0;
Rect.bottom:= groupbox1.Height;
Rect.Right:= groupbox1.Width;
Bitmap := TBitmap.Create;
Bitmap.SetSize(Groupbox1.Width, Groupbox1.Height);
Bitmap.Canvas.CopyRect(Rect,TNewGroupBox(groupbox1 ).Canvas, Rect);
Bitmap.SaveToFile('123name.bmp');
Bitmap.Free;
end;

Wie manipuliere ich die Einstellung, dass ich zunächst einen freien Namen wähle und dann den Speicherort?
In der vorliegenden Version wird beim Speichern einer 2. Grafik natürlich die Datei 123name.bmp überschrieben.

[Perlsau]

Dafür gibt es TSavePictureDialog.

[Hartfrid Krause]

Ja, das weiß ich ,
aber bei :

procedure Tform31.SpeedButton2Click(Sender: TObject);
var Bitmap: TBitmap;
Rect: TRect; //speichert nicht obwohl name und ort frei gewählt wird
begin
savepicturedialog1.Execute;
Rect.Left:= 0;
Rect.Top:= 0;
Rect.bottom:= groupbox1.Height;
Rect.Right:= groupbox1.Width;
Bitmap := TBitmap.Create;
Bitmap.SetSize(Groupbox1.Width, Groupbox1.Height);
Bitmap.Canvas.CopyRect(Rect,TNewGroupBox(groupbox1 ).Canvas, Rect);
// Bitmap.SaveToFile('name123.bmp');
Bitmap.Free;
savepicturedialog1.Free;
end;

kann ich zwar Namen und Ort definieren (und bmp als appendix),
aber dort wird nicht gespeichert , warum auch immer??
Da muss noch etwas falsch sein

[Perlsau]

Mein lieber Hartfried, so ein bißchen was muß man hin & wieder auch selber programmieren. Schau dir doch einmal die Beispiele zu TSavePictureDialog an. Dann wirst du vielleicht bemerken, daß ein solcher Dialog auch abgebrochen werden kann, weshalb man selbigen gewöhnlich so verwendet:

Delphi-Quellcode:

If SavePictureDialog1.Execute Then
Begin
  ...
End;

Denn dabei, du wirst es vielleicht inzwischen bemerkt haben, handelt es sich um eine Function, die als Result einen Boolean zurückliefert. Wenn der Anwender den Dialog abbricht, wird False zurückgeliefert. Enthält das Property FileName einen gültigen Wert oder ist die Stringlist Files gefüllt, wird True zurückgegeben.

Nun mußt du aber auch das Property FileName in deinem Programm verwenden, denn wenn du einfach nur die Zeile mit dem SaveToFile auskommentierst, hast du dafür ja noch keinen Ersatz. Statt 'name123.bmp' nimmst du nun SavePictureDialog1.FileName, und schon funktioniert's mit dem Speichern. Steht übrigens alles in der Online-Hilfe, die ich hier noch einmal mit eigenen Worten ausführlichst wiedergebe.

Und, Hartfried, setze doch bitte deine Codezeilen, die du hier postest, in Delphi-Tags. Am einfachsten erreichst du das, indem du deine Code-Zeilen im Foren-Editor mit der Maus markierst und dann auf den Delphi-Helm klickst.

[Hartfrid Krause]

Ja so klappts, danke.
PS:Meine online-hilfe funktioniert nicht, deshalb schwimme ich so sehr

[Sir Rufo]

Zitat von Hartfrid Krause:

Ja so klappts, danke.
PS:Meine online-hilfe funktioniert nicht, deshalb schwimme ich so sehr

Nun ja, das Internet scheint ja noch zu funktionieren, dann geht also http://docwiki.embarcadero.com/RADSt.../de/Hauptseite