Français
Bugs et vermeintliche

Erledigt: Probleme avec XProfan 11.2

 

Detlef
Jagolski
allô Roland,

habe une Dll pour Owner Draw Menüs, sous XProfan 11 donnais es aucun Probleme.
avec XProfan 11.2 habe maintenant un Anwendungsfehler.
la hâte Du un Tipp pour mich, comment je cela wieder hinbekomme cela es wieder fonctionne?

Salut
Detlef
KompilierenMarqueSéparation
 $P+
Set(ErrorLevel,0)
 $H WINDOWS.PH
 $H MESSAGES.PH
 $H SHELLAPI.PH
 $H STRUCTS.PH
 $H COMMCTRL.PH
 $I XPSTILDLL32.INC
Declare appexit%
Declare Edit1&
var hMenuFont1&         = Create(FONT,Arial,14,0,0,0,0)
var hMenuFont2&         = Create(FONT,Arial,14,0,0,1,0)
var hMenuFont3&         = Create(FONT,Arial,16,0,1,1,0)

SubClassProc

    If SubClassMessage(%hwnd, ~WM_MEASUREITEM)

        MeasureItem (&sWnd, &sLParam)
        Set(WinProc,1)

    ElseIf SubClassMessage(%hwnd, ~WM_DRAWITEM)

        DrawItem (&sLParam, hImageList1&, hImageList2&)
        Set(WinProc,1)

    ElseIf SubClassMessage(Edit1&, ~WM_CONTEXTMENU)

        ConTextMenu (Edit1&, hConTextMenu&, LoWord(&sLParam), HiWord(&sLParam))
        Set(WinProc, 0)

    ElseIf SubClassMessage(Edit1&, ~WM_MEASUREITEM)

        MeasureItem (Edit1&, &sLParam)
        Set(WinProc, 0)

    ElseIf SubClassMessage(Edit1&, ~WM_DRAWITEM)

        DrawItem (&sLParam, hImageList1&, hImageList2&)
        Set(WinProc, 0)

    ElseIf SubClassMessage(Edit1&, ~WM_COMMAND)

        WMCommand (Edit1&, &sWParam)
        Set(WinProc, 0)

    EndIf

EndProc

Proc CreateMainMenu

    Popup &Datei
    AppendMenu 1,&Neu...	Strg+N
    AppendMenu 2,&Öffnen...	Strg+O
    AppendMenu 3,S&chließen
    Separator
    AppendMenu 5,&Speichern	Strg+S
    AppendMenu 6,Speichern &unter...
    Separator
    AppendMenu 8,Seiten&ansicht
    AppendMenu 9,&Drucken...	Strg+P
    Separator
    AppendMenu 11,&Beenden
    Popup &Bearbeiten
    AppendMenu 12,A&usschneiden	Strg+X
    AppendMenu 13,&Kopieren	Strg+C
    AppendMenu 14,E&infügen	Strg+V
    Separator
    AppendMenu 16,&Suchen...	Strg+F
    SubPopup &Gehe zu
    AppendMenu 17,&Erster
    AppendMenu 18,&Letzter
    AppendMenu 19,&Nähster
    AppendMenu 20,&Vorheriger
    EndSub

EndProc

Set(TrueColor,1)
WindowStyle $003F
WindowTitle Menü
Window %maxX + 5,114 - 742,528
Cls ~GetSysColor(15)
CreateMainMenu
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
var IconDll$ = XPStilDll32.Dll
var hImageList1& = CreateImageList(Addr(IconDll$))
var hImageList2& = CreateImageListGray(Addr(IconDll$))
SetCheckedImage(116)
SetMenuStandardColors()
SetMenuColors (RGB(230,0,0),RGB(100,0,0),RGB(10,100,20),RGB(255,253,191),RGB(230,0,0),RGB(255,208,251))
SetMenuBitmap (SP32.DLL, MICKI)
var hConTextMenu& = SetConTextMenuEdit(hMenuFont1&,-1,3,0,1,2,5,-1)
var hMenu& = ~GetMenu(%hwnd)
var hSubMenu& = ~GetSubMenu(hMenu&,0)
SetColorXPMenu hMenu&, RGB(187,212,247)
ChangeMenuItem (hSubMenu&,0,45,hMenuFont2&,RGB(230,0,0))
ChangeMenuItem (hSubMenu&,1,7,hMenuFont1&,RGB(230,0,0))
ChangeMenuItem (hSubMenu&,2,-1,hMenuFont2&,RGB(230,0,0))
ChangeMenuItem (hSubMenu&,3,-1,-1,-1)
ChangeMenuItem (hSubMenu&,4,16,hMenuFont3&,RGB(230,0,0))
ChangeMenuItem (hSubMenu&,5,-1,hMenuFont1&,RGB(70,75,210))
ChangeMenuItem (hSubMenu&,6,-1,-1,-1)
ChangeMenuItem (hSubMenu&,7,8,hMenuFont1&,RGB(70,75,210))
ChangeMenuItem (hSubMenu&,8,12,hMenuFont1&,RGB(70,75,210))
ChangeMenuItem (hSubMenu&,9,-1,-1,-1)
ChangeMenuItem (hSubMenu&,10,-1,hMenuFont1&,RGB(70,75,210))
hSubMenu& = ~GetSubMenu(hMenu&,1)
ChangeMenuItem (hSubMenu&,0,0,hMenuFont1&,RGB(70,75,210))
ChangeMenuItem (hSubMenu&,1,1,hMenuFont1&,RGB(70,75,210))
ChangeMenuItem (hSubMenu&,2,2,hMenuFont1&,RGB(70,75,210))
ChangeMenuItem (hSubMenu&,3,-1,-1,-1)
ChangeMenuItem (hSubMenu&,4,11,hMenuFont2&,RGB(0,53,99))
ChangeMenuItem (hSubMenu&,5,-1,hMenuFont1&,-1)
var hSubPopMenu& = ~GetSubMenu(hSubMenu&,5)
ChangeMenuItem (hSubPopMenu&,0,117,hMenuFont1&,-1)
ChangeMenuItem (hSubPopMenu&,1,119,hMenuFont1&,-1)
ChangeMenuItem (hSubPopMenu&,2,113,hMenuFont1&,-1)
ChangeMenuItem (hSubPopMenu&,3,114,hMenuFont1&,-1)
Edit1&=Create(Edit,%hwnd,,112,153,121,21)
Set(SubClassMode,1)
SubClass %hwnd,1
SubClass Edit1&,1
SetWindowPos %hwnd = 207,114 - 742,528;0

WhileNot appexit%

    WaitInput

    If %key = 2

        appexit%=1

    ElseIf Clicked(Edit1&)

    ElseIf Clicked(ChoiceBox1&)

    ElseIf %key = 4

        Fenstergröße

    ElseIf %key = 5

        Hilfe

    EndIf

Wend

SubClass %hwnd,0
SubClass Éditer1&,0

1.257 kB
Hochgeladen:06.04.2009
Downloadcounter70
Download
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
06.04.2009  
 




RGH
Salut,

zunächst bekomme je chez Deinem Code den faute définition im En-tête fehlt: MENUINFO. dans quel Headerdatei ist chez Dir cet définition drin? (ensuite peux je vous chez mir nachtragen.)

Zum anderen: chez WM_DRAWITEM et WM_MEASUREITEM mets Du WinProc sur 1, d.h. es wird alors anschließend qui Windowsprozedur aufgerufen. là XProfan 11.2 eigene Avancé Menüs anbietet, reagiert cet ensuite alors aussi sur cet Messages. je sais eh bien pas, quoi ChangeMenuItem oui c'est ca pouvoir, mais probablement gibst Du den Menu-Entrées den Stil MF_OWNERDRAW. (Ansonsten würden cet Messages oui pas erzeugt volonté.) là Du mais probablement den Datenwert (letzten paramètre chez AppendMenu im piège de MF_OWNERDRAW) anders utilise comme je, muss es ici zwangsläufig knallen, weil mon Routinen pour cet beiden Messages oui pas avec Deinen Inhalten le calcul.

Salut
Roland
 
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
06.04.2009  
 




Detlef
Jagolski
Sorry MenuInfo steht dans structs.ph
KompilierenMarqueSéparation
MENUINFO = cbSize&,fMask&,dwStyle&,cyMax&,hbrBack&,dwContextHelpID&,dwMenuData&;
>

ChangeMenuItem mets MF_OWNERDRAW, Icon, Schrift Type et Schriftfarbe.

Salut

Detlef
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
06.04.2009  
 




Detlef
Jagolski
allô Roland,

habe maintenant Set(WinProc, 1) sur Set(WinProc, 0) gesetzt, et und dir.

Super et merci
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
06.04.2009  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

1.925 Views

Untitledvor 0 min.
Roland Schäffer05.01.2011

Themeninformationen

cet Thema hat 2 participant:

Detlef Jagolski (3x)
RGH (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie