Autor Beitrag
Gen
Hält's aus hier
Beiträge: 10



BeitragVerfasst: Do 24.02.05 18:57 
Hallo zusammen!

Ich hab mir eine Paintbox gebastelt mit rechtecken .... wie paint halt und will das gemalte Bild als bmp auf meinem PC durch savedialog speichern lassen .... ich hab schon 20 threads durch und ich hab nie kapiert was in den source codes der anderen für dieses problem stand .... will nur nen savedialog für bitmaps erstellen.
ich hoffe jemand kann mir einen code basteln der mit meinen angaben stimmt und ich ausführen kann
das malfeld heißt: imbild
der button dafür: Speichern
muss man dazu noch was wissen?
bin verzweifelt :) danke im voraus!
Keldorn
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 2266
Erhaltene Danke: 4

Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
BeitragVerfasst: Do 24.02.05 19:29 
du kommst besser, wenn du statt in die Paintbox gleich in eine hilfsbitmap zeichnest. beim onpaion zeichnest du nicht immer alles neu, sondern nur die bmp. Die bmp kannst du damit auch gleich speichern.
Ansonsten gugg dir Suche in: Delphi-Forum, Delphi-Library COPYRECT an

Mfg frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)
Gen Threadstarter
Hält's aus hier
Beiträge: 10



BeitragVerfasst: Do 24.02.05 20:11 
das nebenproblem is folgendes: is ein schulprojekt un dich hab von delphi keinen plan. will nur wissen wie so ein savedialog aussieht. ist es möglich mit ne rpaintbox sowas zu erstellen?
retnyg
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 2754

SNES, GB, GBA, CPC, A500, 486/66, P4/3.0HT: NintendOS, AmigaOS, DoS
Delphi 5, Delphi 7
BeitragVerfasst: Do 24.02.05 20:16 
im reiter Dialoge bei der komponentenübersicht findest du so einen savedialog. den musst du nur noch auf die form legen und mit savedialog1.execute ausführen.
Gen Threadstarter
Hält's aus hier
Beiträge: 10



BeitragVerfasst: Do 24.02.05 20:39 
hab ich gemacht. krieg auch nun ein fenster. aber nachdem ein name eingegeben wurde und ich auf speichern drücke, ist die file wieder weg. also eigentlich wird nix gespeichert
retnyg
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 2754

SNES, GB, GBA, CPC, A500, 486/66, P4/3.0HT: NintendOS, AmigaOS, DoS
Delphi 5, Delphi 7
BeitragVerfasst: Do 24.02.05 20:41 
jo. der savedialog ist nur dazu da, dass du dem benutzer die möglichkeit gibst einen dateinamen auszuwählen.
die datei dann auf die festplatte zu schreiben ist dein job.
Gen Threadstarter
Hält's aus hier
Beiträge: 10



BeitragVerfasst: Do 24.02.05 20:53 
danke :)
bin durch ne befehlssammlung drauf gekommen.

hab nu folgendes stehen:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
SaveDialog.Filter := 'BMP Dateien (*.bmp)';
SaveDialog.DefaultExt := '.bmp';
savedialog.execute;
imbild.Picture.savetofile(SaveDialog.FileName+);


sollt ich da noch was ergänzen oder krieg ich durch nen zufall probleme?

edit: hab eins. wenn man abbricht. kannst mir auch gerne wieder nur nenn tipp dazu geben. finds ganz cool selber (durch tipps ;)) drauf zu kommen

Moderiert von user profile iconraziel: Code- durch Delphi-Tags ersetzt.
wulfskin
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1349
Erhaltene Danke: 1

Win XP
D5 Pers (SSL), D2005 Pro, C, C#
BeitragVerfasst: Do 24.02.05 21:01 
Fast ;):
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
with SaveDialog do begin
  Filter := 'BMP Dateien (*.bmp)';
  DefaultExt := '.bmp';
  if Execute then  //Nur wenn das Dialogfeld mit "Speichern" beendet wurde, speichern...
    imbild.Picture.savetofile(SaveDialog.FileName+'.bmp');
end;
Gruß hape!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.
Gen Threadstarter
Hält's aus hier
Beiträge: 10



BeitragVerfasst: Do 24.02.05 21:26 
jo danke! hat funktioniert. ich setz mich jetzt nur noch an opendialog und colordialog.
danke nochmal an alle!!!!
PhilGo
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 315

Win 98, Win Longhorn ;-)

BeitragVerfasst: Fr 25.02.05 14:04 
Also ich mach des immer so:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
...
If Savedialog1.Execute Then
 Begin
 ...
 ...
 ...
 End;


Moderiert von user profile iconraziel: Code- durch Delphi-Tags ersetzt.

_________________
Sie werden dich finden und töten... Söhne der großen Bärin!