TBitmap als Icon speichern

[Horst]

ich speicher mit:
[font  size=2 face="Courier New"][font color="#000000"]if SavePictureDialog1.Execute then
Image1.Picture.savetofile(savepicturedialog1.FileName);

ich kann zwar *ico beim speichern unter auswählen, das bild wird aber trotzdem als bitmap gespeichert. was mache ich falsch? gruss horst

[Thomas Stutz]

Hi,

Du musst das TBitmap zuerst in ein Icon konvertieren und dann speichern.
Wie's geht, steht unter http://www.swissdelphicenter.ch/de/tipsindex.php

[Horst]

danke, das konvertieren ist soweit klar, nur wie kann ich das zusammen mit  dem TMenu erledigen, wenn ich im SavePictureDialog1 das *.ico als dateiendung auswähle...?

gruss hors

[Rainer]

Du könntest z.B. den FilterIndex abfragen und dann die entsprechende Speicherroutine für ICO, JPG, usw. aufrufen.

Was meinst du mit TMenu???

[Horst]

hallo rainer
wie frage ich den filterindex ab? ich hab das noch nie gemacht...
ja ich meinte das TMenu...
gruss horst

[Horst]

hat sich erledigt, habs rausgekriegt...