| |
|
|
Sato Pinto | Hallo Xpse meckert doppeldefinition von LoadPic, wenn ich die Def LoadPic ausklammere dann wird gemeldet das LoadPic eine Unbekkante Funktion ist! Ohne Xpse funktioniert der code! KompilierenMarkierenSeparierenSource wurde am 15.06.2006 in die Babyklappe auf XProfan.Com abgelegt:
DEF LoadPic(6) !"user32","LoadImageA"
DEF SetMenuItemBitmaps(5) !"USER32","SetMenuItemBitmaps"
DEF GetMenu(1) !"USER32","GetMenu"
DEF GetSystemMetrics(1) !"USER32","GetSystemMetrics"
proc setmenupicture
parameters h&,pic$
SetMenuItemBitmaps(GetMenu(%HWND),h&,0,LoadPic(0,addr(pic$),0,GetSystemMetrics(71),GetSystemMetrics(72),$10),0)
endproc
cls
popup "&Programm"
appendmenu 1000,"&Beenden Alt+F4"
popup "&Optionen"
appendmenu 1001,"&Einstellungen Strg+E"
popup "&?"
appendmenu 1002,"&About"
setmenupicture 1000,"Bitmap1.bmp"
setmenupicture 1001,"Bitmap2.bmp"
setmenupicture 1002,"Bitmap3.bmp"
usermessages 16
whilenot %umessage==16
getmessage
wend
end
Gruss Satos |
|
|
| |
|
|
|
Jörg Sellmeyer | Welche Profanversion hast Du denn? Seit XProfan10 kannst Du besser Create("hPic",...) verwenden. Außerdem ist LoadPic auch nicht einfach so in einer Funktion zu verwenden. Besser ist es eine Variable mit dem Bildhandle anzulegen und dann wieder mit DeleteObject Handle& das Handle zu zerstören. Es gab mal (kurzzeitig) eine Funktion "LoadPic" in Profan. Vielleicht kommt XPSE da ins Schwimmen. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 23.08.2008 ▲ |
|
|
|
|
Sato Pinto | Hallo Jörg
Habe Xprofan11 Ohne XPSE funktioniert es und ich glaube dieses code besipiel ist von iF gepostet worden?
Gruss Sato |
|
|
| |
|
|
|
Jörg Sellmeyer | Dann verpaß Dir doch mal in Deinen Profileinstellungen eine Signatur mit Profanversion und Betriebsystem. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 25.08.2008 ▲ |
|
|
|
|
Sato Pinto | Hallo Jörg
Habe ich schon gemacht, aber er erscheint nicht in den postings. ??
Gruss Sato |
|
|
| |
|
|
|
Jörg Sellmeyer | Hallo Sato, Versuch mal, nicht alles untereinander zu schreiben. Es ist nur eine bestimmte Höhe erlaubt. Vielleicht hast Du die überschritten. Gruß Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 26.08.2008 ▲ |
|
|
|
|
| @Jörg: Du kannst seine Signatur im ACP einsehen wenn Du das Mitglied "öffnest". |
|
|
| |
|
|
|
Jörg Sellmeyer | Seine Signatur habe ich mir ja schon angeschaut, deswegen auch der Tip. Solange es nicht unbedingt nötig ist, will ich nicht an den "privaten" Teilen eines Mitglieds herumfummeln. Vielleicht kriegt ers ja selber hin. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 27.08.2008 ▲ |
|
|
|
|
| Sooo, habs mir jetzt anschauen können - xpse reagiert doch völlig korrekt:
LoadPic ist bereits ein Schlüsselwort des XProfan, xpse meckert:
Error: DOPPELDEFINITION: LOADPIC Procnaehe: SETMENUPICTURE
Klammere ich Deine Zeile KompilierenMarkierenSeparierenaus, dann hat auch xpse keine Probleme mehr damit. |
|
|
| |
|
|
|
Sato Pinto | Hallo iF
Wenn ich DEF LoadPic ausklammere dann erscheint bei mir eine Messagebox mit der Meldung "Funktion unbekannt:: LoadPic" wegen der Zeile SetMenuItemBitmaps(GetMenu(%HWND),h&,0,LoadPic(0,addr(pic$),0,GetSystemMetrics(71),GetSystemMetrics(72),$10),0)
Also kann ich leider XPSE nicht benutzen, was hilft in diesen Fall?
Gruss Sato Xprofan11 Win XP Home |
|
|
| |
|
|
|
| Ist doch korrekt, die Betonung liegt auf "Funktion" - und die Meldung kommt auch nicht vom XPSE sondern von XProfan! Dein XProfan kennt die Funktion LoadPic nicht, es ist ja auch eine Prozedur!
Du kannst halt nicht einfach einen existierenden Prozedur/Funktionsnamen überschreiben, das hat nichts mit XPSE zu tun, ausser das er Dich eben schon vorher warnt.
Nenne Deine Funktion doch einfach myLoadPic ...
Du kannst übrigens auch immer mit {$noerr} jede Warnung des XPSE abschalten, aber da geht noch viel mehr: [...] auf der Seite steht viel - hat man es jedoch gelesen kann man besser arbeiten! |
|
|
| |
|
|
|
Dieter Zornow | LoadPic war doch niemals in Profan integriert, das ist doch eine Procedure in der NVIEWLIB.INC und wenn er die nicht verwendet, dürfte auch kein Meckern kommen.. |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 27.08.2008 ▲ |
|
|
|