| |
| |
|
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]
C rogrammeDev-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 |
|
| |
| |
| |
|
(277)
Deutsch
English
Français
Español
Italia