Setting the x / y position of a window

[Christian Lauer]

Hola a todos,
while setting the x / y position of a window I get the error message:
> ----------------------message------------------------------- -
TAPPLICATION:ERROR(179)
Fehler BASE/1004 Message not found: TAPPLICATION:NCLIENTWIDTH
Argumente: ()
>----------------------end of message-------------------------
The piece of code looks like this:
> ----------------------code---------------------------------- -
METHOD FormCreate( oSender, pcStartWith ) CLASS formMain
local cBearbNr := "", cIniFile := "", cStartWith := ""
BSetDebug(DEBUG)
if PCount() > 1
cStartWith := pcStartWith
endif
Self:nTop := 0
Self:nLeft := 0
Self:nHeight := Screen:nHeight
begin sequence
if !BAppInit()
MsgAlert("Init failed", "Cancel")
slDoAsk := FALSE
oSender:Close()
break
endif
if !OpenDatei(TRUE) // open persistant database files
MsgAlert("Could not open files", "Cancel")
slDoAsk := FALSE
oSender:Close()
break
endif
if !BLLogin(Self) // Login dialog
slDoAsk := FALSE
oSender:Close()
break
endif
if Empty(cStartWith)
cIniFile := BSetConfFile()
cBearbNr := ProfileString(cIniFile, "Default", "User", "")
cStartWith := ProfileString(cIniFile,
AllTrim(Upper(cBearbNr)),
"StartWith", "")
endif
do case
case cStartWith == "ADR"
AP100()
case cStartWith == "PRO"
PP100()
otherwise
if MsgYesNo("Applet to start with not valid: " + cStartWith +;
"Start with address applet?")
AP100()
endif
endcase
end
RETURN Nil
>----------------------end of code----------------------------

[jfgimenez]

Christian,
I can see an assignment to ::nTop, ::nLeft and ::nHeight, but I cannot see
any assignment to Application:nClientWidth.
Please, post the module, including the .xfm file, and the error.log file.
--
Regards,
Jose F. Gimenez

[Christian Lauer]

******************************* Fehlerprotokoll *******************************
Date: 01/29/05
Time: 23:30:04
Available memory: 192748
Area: 1
---------------------------- Compiler-Information -----------------------------
Xailer-Version: Xailer 0.99.9 Beta (Enero 2005)
Compiler: xHarbour build 0.99.3 Intl. (SimpLex) PCode Version: 5
C/C++-Compiler: Borland C++ 5.5 (32 bit)
Windows-Plattform: Windows 2000 Professional 5.00.2195 Service Pack 4
---------------- Information über die interne Fehlerbehandlung ----------------
Untersystemaufruf: BASE
Systemcode: 1004
Default-Status: .F.
Description: Message not found
Operation: TAPPLICATION:NCLIENTWIDTH
Arguments:
Files involved:
DOS-Errorcode: 0
Called modules:
TAPPLICATION:ERROR (179)
(b)HBOBJECT (105)
TAPPLICATION:MSGNOTFOUND (0)
TAPPLICATION:NCLIENTWIDTH (169)
FORMMAIN:SETANCHORS (661)
TSTDCONTROL:SETBOUNDS (649)
(b)XWINCONTROL (45)
FORMMAIN:SETBOUNDS (0)
(b)XCONTROL (26)
FORMMAIN:_NTOP (0)
FORMMAIN:FORMCREATE (31)
FORMMAIN:ONCREATE (0)
FORMMAIN:CREATE (226)
FORMMAIN:CREATEFORM (12)
FORMMAIN:NEW (167)
MAIN (15)
--

[jfgimenez]

Christian,
> thanks for your reply, enclosed you find a zip file with the module, the
> xfm file and the error.log.
the .prg and .xfm files are missed
--
Regards,
Jose F. Gimenez

[Christian Lauer]

Jose,
ooops, I apologize, it was the wrong file, here it is ....
Saludos
Christian
--

[jfgimenez]

Christian,
Found! There was a stupid bug, which causes that error when trying to change
the position of the main form or any other form owned by Application.
Although it is possible to set it at design time, and there is no need to do
it at run-time, here you are a fix. Please, decompress and include this file
in your project.
Thanks for your feedback.
--
Regards,
Jose F. Gimenez


Attached files Control.zip (10.3 KB)Â

[Christian Lauer]

Jose
muchas gracias para ayudarme!
Saludos
Christian