| |
|
|
Detlef Jagolski | Profan2Cpp - Version 1.5
New proposition ---> input: D:Own DateienProfanSchneidplan_NeuSchneidplan.prf spending: D:Own DateienProfanSchneidplan_NeuSchneidplan_cpp
bind Include-Files one... ok. read Header-Files... ok. Überprüfe Syntax... ok. supplant Header-Definitionen... ok. Erstelle directories... ok. Übersetze... ok. Erstelle PrfMain.cpp... ok. copy Header... ok. copy Bibliotheken... ok. Generiere Makefile... ok.
proposition successful Translated! Why successful, if the code not runs???? [2681 Lines in 2078 ms] CrogrammeDev-C++ing++.exe -c PrfMain.cpp -o .objPrfMain.o -ICrogrammeDev-C++include -ICrogrammeDev-C++includeg++ -fexceptions -s -mwindows -w -fvtable-thunks -fno-elide-constructors -LCrogrammeDev-C++lib -BCrogrammeDev-C++in CrogrammeDev-C++ing++.exe -c Schneidplan.cpp -o .objSchneidplan.o -ICrogrammeDev-C++include -ICrogrammeDev-C++includeg++ -fexceptions -s -mwindows -w -fvtable-thunks -fno-elide-constructors -LCrogrammeDev-C++lib -BCrogrammeDev-C++in Schneidplan.cpp: In function `struct p_variant proc_changemenuitem(int, ...): Schneidplan.cpp:1283: `menu undeclared (ridge use this function) Schneidplan.cpp:1283: (Each undeclared identifier is reported only once Schneidplan.cpp:1283: for each function it appears in.) Schneidplan.cpp:1283: parse error before `] Schneidplan.cpp:1283: parse error before `] Schneidplan.cpp:1283: parse error before `) Schneidplan.cpp:1284: parse error before `] Schneidplan.cpp:1284: parse error before `) Schneidplan.cpp:1285: parse error before `] Schneidplan.cpp:1285: parse error before `) Schneidplan.cpp:1286: parse error before `] Schneidplan.cpp:1286: parse error before `) Schneidplan.cpp:1287: parse error before `] Schneidplan.cpp:1287: parse error before `) CrogrammeDev-C++inmake.exe: *** [.objSchneidplan.o] Error 1 Finished.
what, How and where must I Change, the the code runs???
Greeting Detlef |
|
|
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 12/17/05 ▲ |
|
|
|
|
| you should The place, which wrong konvertiert becomes, find and here post - I faith differently would it very difficult to find out what on Your code very wrong Translated becomes.
I faith with one bisl Mithilfe becomes one quick check can whether it ex View source or on the Konverter lying. |
|
|
| |
|
|
|
Detlef Jagolski | here once C++ and XProfan code CompileMarkSeparationp_variant proc_changemenuitem(int n, ...)
{
BuildStack();
long lHmenu = LongParam(1);
long lPmenu = LongParam(2);
long lIndex = LongParam(3);
long lFont = LongParam(4);
_LM(pMenuiteminfo, 1) = SizeOf(_O((pMenuiteminfo)));
_LM(pMenuiteminfo, 2) = 0x20L | 0x10L | 2;
_LM(pMenuiteminfo, 10) = _P(pMenutext);
_LM(pMenuiteminfo, 11) = SizeOf(pMenutext);
External(_S("user32.dll"), _S("GetMenuItemInfoA"), 4, _L(lHmenu), _L(lPmenu), _L(0x400L), _L(_P(pMenuiteminfo)));
strcpy(_SM(pAMenudata[menu % ], 33), p_string(_P(pMenutext), 0L), _SIZE(pAMenudata[menu % ], 33));
_LM(pAMenudata[menu % ], 34) = lIndex;
_LM(pAMenudata[menu % ], 35) = External(_S("user32.dll"), _S("GetSubMenu"), 2, _L(lHmenu), _L(lPmenu));
_LM(pAMenudata[menu % ], 36) = lFont;
_LM(pAMenudata[menu % ], 3) = _LM(pMenuiteminfo, 3);
if (_LM(pMenuiteminfo, 3) == 0x800L)
{
_LM(pMenuiteminfo, 3) = 0x100L;
_LM(pMenuiteminfo, 2) = 0x20L | 0x10L;
_LM(pMenuiteminfo, 9) = _P(pAMenudata[_L(nMenu)]);
External(_S("user32.dll"), _S("SetMenuItemInfoA"), 4, _L(lHmenu), _L(lPmenu), _L(0x400L), _L(_P(pMenuiteminfo)));
}
else
{
_LM(pMenuiteminfo, 3) = 0x100L;
_LM(pMenuiteminfo, 2) = 0x20L | 0x10L;
_LM(pMenuiteminfo, 9) = _P(pAMenudata[_L(nMenu)]);
_LM(pMenuiteminfo, 10) = _P(pMenutext);
External(_S("user32.dll"), _S("SetMenuItemInfoA"), 4, _L(lHmenu), _L(lPmenu), _L(0x400L), _L(_P(pMenuiteminfo)));
}
nMenu++;
return _V(0Lspan>;
}
CompileMarkSeparation
Proc ChangeMenuItem
Parameters hMenu&, pMenu&, Index&, Font&
with MenuItemInfo#
.cbSize& = SizeOf(MenuItemInfo#)
.fMask& = ~MIIM_DATA | ~MIIM_TYPE | ~MIIM_ID
.dwTypeData& = MenuText#
.cch& = SizeOf(MenuText#)
endwith
~GetMenuItemInfo(hMenu&,pMenu&,~MF_BYPOSITION,MenuItemInfo#)
with MenuData#[Menu%]
.MenuText$ = String $(MenuText#,0)
.IconIndex& = Index&
.MenuPopUp& = ~GetSubMenu(hMenu&,pMenu&)
.MenuFont& = Font&
.fType& = MenuItemInfo#.fType&
endwith
If MenuItemInfo#.fType& = ~MFT_SEPARATOR
with MenuItemInfo#
.fType& = ~MFT_OWNERDRAW
.fMask& = ~MIIM_DATA | ~MIIM_TYPE
.dwItemData& = MenuData#[Menu%]
endwith
~SetMenuItemInfo(hMenu&,pMenu&,~MF_BYPOSITION,MenuItemInfo#)
Else
with MenuItemInfo#
.fType& = ~MFT_OWNERDRAW
.fMask& = ~MIIM_DATA | ~MIIM_TYPE
.dwItemData& = MenuData#[Menu%]
.dwTypeData& = MenuText#
endwith
~SetMenuItemInfo(hMenu&,pMenu&,~MF_BYPOSITION,MenuItemInfo#)
EndIf
Inc Menu%
ENDPROC
Greeting
Detlef |
|
|
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 12/17/05 ▲ |
|
|
|
|
Michael Dell | Hallole,
to[quote:4cb2d33e67]Schneidplan.cpp: In function `struct p_variant proc_changemenuitem(int, ...): Schneidplan.cpp:1283: `menu undeclared (ridge use this function)[/quote:4cb2d33e67] To judge should the error here lying:
but not:[quote:4cb2d33e67]Strcpy(_sm(Pamenudata[Menu % ], 33), ....[/quote:4cb2d33e67]that here:[quote:4cb2d33e67]Strcpy(_sm(Pamenudata[Menu% ], 33), ....[/quote:4cb2d33e67] the space power from Menu% a new undeclarierte Variable, mean I. |
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 12/18/05 ▲ |
|
|
|
|
Sebastian König | Hello Detlef,
sorry - I have whom Posting here straight first seen. it sees so from, as käme Profan2Cpp with the row
With Menudata#[Menu%] not clear... I have already a idea, Why the lying could and will be time look over. probably login I then today evening again.
MfG
Sebastian |
|
|
| Windows XP, XProfan/Profan² 4.5 bis 11 Profan2Cpp-Homepage: [...] Alte Profan²-Seite: [...] | 12/19/05 ▲ |
|
|
|
|
Sebastian König | so, i think, I could the trouble find and to fix - by me becomes the code-cut offed now correctly Translated.
i'd you to that testing gladly a new Profan2Cpp.exe send (it was a Änderung at a function to that Übersetzen of variables-names necessary). on which address can I you The Email whom Send?
MfG
Sebastian
P.s.: alas, using You The Trial or The Full Version of Profan2Cpp? |
|
|
| Windows XP, XProfan/Profan² 4.5 bis 11 Profan2Cpp-Homepage: [...] Alte Profan²-Seite: [...] | 12/19/05 ▲ |
|
|
|
|
| Hello Sebastian,
Please on detlefjagolski@aol.com
what about me have since of/ one week a Full Version.
thanks and Greeting
Detlef |
|
|
| |
|
|