funktioniert XbpIcon():Savefile() ? [erledigt]

Grafische Primitive, XbaseParts und Darstellungsfragen allgemein.

Moderator: Moderatoren

Antworten
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 11515
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg

funktioniert XbpIcon():Savefile() ? [erledigt]

Beitrag von AUGE_OHR » Mi, 15. Aug 2018 2:51

wenn man XbpIcon() (\SOURCE\SYS\xbparts.prg) so modifiziert

Code: Alles auswählen

   EXPORTED:
      VAR Handle
dann kann man eine Imagelist und "GetIcon" verwenden

Code: Alles auswählen

   nHICON := @comctl32:ImageList_GetIcon( hImageToolbar, ;
                                          nIndex-1 , ;
                                          ILD_NORMAL )
   // assign to modifyed XbpIcon()
   oIcon:Handle := nHICON
   oIcon:GetIconInfo()
   @User32:DestroyIcon( nHICON )
nun wollte ich die (sichtbaren) Images als Icon abspeichern

Code: Alles auswählen

   oIcon:saveFile(cFilename)
und das passiert ... nichts :shock:

wenn ich es nun so mache

Code: Alles auswählen

   oBMP := oIcon:GetBitmap()
   oBMP:saveFile(cFilename,XBPBMP_FORMAT_WIN3X)
bekomme ich ein Bitmap ... hm :-k

deshalb meine Frage ob XbpIcon():Savefile() überhaupt funktioniert ... :?:
es gibt ja auch kein o:Make() was ein o:Savefile() erst notwendig machen würde.
Zuletzt geändert von AUGE_OHR am Mi, 15. Aug 2018 4:39, insgesamt 1-mal geändert.
gruss by OHR
Jimmy

Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 11515
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg

Re: funktioniert XbpIcon():Savefile() ?

Beitrag von AUGE_OHR » Mi, 15. Aug 2018 4:39

AUGE_OHR hat geschrieben:
Mi, 15. Aug 2018 2:51
deshalb meine Frage ob XbpIcon():Savefile() überhaupt funktioniert ... :?:
es wurde für die v2.x behoben siehe PDR 6681

was wohl der Fehler ist, den man selbst beheben kann (\SOURCE\SYS\xbparts.prg ), zeigt dieser SnapShot
XbpIcon_SaveFile.jpg
XbpIcon_SaveFile.jpg (77.13 KiB) 270 mal betrachtet
das ::Handle ist <> 0 ... aber was soll das .OR. :?:
das komische ist :
ich habe dort noch KEINE Icons also dürfte File(cFile) == .T. nicht eintreten [-X
egal wenn ich den .OR. Teil auskommentieren funktioniert es =D>
gruss by OHR
Jimmy

Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 11515
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg

Re: funktioniert XbpIcon():Savefile() ?

Beitrag von AUGE_OHR » Mi, 15. Aug 2018 8:38

Nachtrag
AUGE_OHR hat geschrieben:
Mi, 15. Aug 2018 4:39
das komische ist :
ich habe dort noch KEINE Icons also dürfte File(cFile) == .T. nicht eintreten [-X
auch ein BUG der wohl in der v2.x behoben wurde PDR 6791.

p.s. es scheint zu funktionieren wenn man den vollen Path angibt.
gruss by OHR
Jimmy

Antworten