teechartgrafik in groupbox speichern

[Perlsau]

Sorry, ich habe dich nicht angegriffen, das ist dein subjektives Empfinden, entspricht jedoch nicht meiner Intention. Dennoch hattest du geschrieben:

Zitat von bernerbaer:

Eigentlich erwarte ich in einem Beispielcode eines Moderators schon entweder Code der funktioniert, oder der Hinweis, wie der Code zum funktionieren gebracht werden kann. So wie der Code da steht, wird jeder Anfänger verzweifeln, wenn er das Beispiel umsetzen möchte.

Das empfand ich als unverschämt und habe daher mein Empfinden auf lustige und nicht ganz ernstzunehmende Weise (man beachte die Smilys) zum Ausdruck gebracht. Dasselbe gilt auch für den obigen Hinweis mit dem GroupBox.SaveToFile. Das war ganz eindeutig ein Witz, der TE hätte spätestens beim Eintippen erkennen müssen, daß es diesen Befehl nicht gibt und er selbst etwas programmieren muß, um sein Ziel zu erreichen. Einige hatten den Witz sofort verstanden, andere vermutlich nicht.

Meiner Ansicht nach hat hier keiner einen Anspruch auf funktionierenden Code. Es gibt hier nicht einmal einen Anspruch darauf, daß Anfragen beantwortet werden. Wenn du der Meinung bist, du müßtest den gepostesten Code eines Users korrigieren, damit er funktioniert, steht dir das jederzeit frei. Hier zeigst du ganz eindeutig eine Überreaktion

Des weiteren habe ich auf die Tatsache hingewiesen, daß gerade Anfänger durch Code, den sie lediglich in der Erwartung, er funktioniere auf Anhieb, kopieren, nicht wirklich etwas lernen. Das würde nämlich darauf hinauslaufen, daß die User hier einem Anfänger die Programmierarbeit abnehmen und für ihn das Programm schreiben. Diese Thematik wurde nicht nur in diesem Forum bereits bis zum Abwinken durchgekaut und sollte jedem, der hier bereits ein paar Jahre dabei ist, geläufig sein. Wieso du dich dadurch angegriffen fühlst, ist mir zwar ein Rätsel, aber letztendlich deine Sache – ich muß es nicht verstehen.

Es ist aber wohl noch gestattet, sich über gewisse überzogene Ansprüche lustig zu machen. Auch wenn du hier im Grunde nicht wirklich der Boß bist, möchte ich dich darum bitten, mir weiterhin zu gestatten, hin und wieder eine Aussage in witziger Form zu kommentieren und nicht sofort alles auf dich zu beziehen.

Wie gesagt kann ich hier keinen persönlichen Angriff erkennen und sehe daher auch keine Veranlassung, irgend eine erzwungene und damit geheuchelte Entschuldigung auszusprechen. Wieso schreibst du mir nicht einfach via PM, wodurch du dich nun so angegriffen gefühlt hast, sondern schreist* stattdessen hier das Forum zusammen? Dann können wir das nämlich in Ruhe klären und müssen damit nicht die User belästigen.

* Fettschrift wird gewöhnlich als Schreien interpretiert, insbesondere dann, wenn damit ein Vorwurf formuliert wird.

[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