www.sdlsuite.com Forum Index www.sdlsuite.com
Discussion of technical aspects of the SDL Component Suite
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

TRotLab error

 
Post new topic   Reply to topic    www.sdlsuite.com Forum Index -> GuiPack
View previous topic :: View next topic  
Author Message
vez



Joined: 12 Jun 2007
Posts: 19

PostPosted: Wed Nov 10, 2010 11:32 am    Post subject: TRotLab error Reply with quote

The TRotLab control produces the error message "Control TRotLab1 has no parent window" when I am trying to put it on the form.
This bug exists in Rad2010 and RAD2011 (Cb and Delphi).
Pack version 97.
Back to top
View user's profile Send private message
hlohning



Joined: 08 Sep 2006
Posts: 277
Location: Austria

PostPosted: Tue Nov 16, 2010 4:47 pm    Post subject: Reply with quote

I cannot reproduce this bug. However I dimly remember that this could be a problem with the pathes to the DLLs.

So just an idea: could you try to copy the *.BPL files to the Delphi binary directory (where other Delphi DLLs are stored)?

Please let me know whether this helps.

Regards,

Hans
_________________
Hans Lohninger
Software Development Lohninger
http://www.lohninger.com/
Back to top
View user's profile Send private message Visit poster's website
vez



Joined: 12 Jun 2007
Posts: 19

PostPosted: Wed Nov 17, 2010 9:39 am    Post subject: Reply with quote

The BPL file are in two places - in BIN and in the Lib\SDL, I have removed from the BIN but without result, after that copied to the Public...\BPL, the result is the same, error. Very strange - I can see it only in the Builder Personality. I'll try this on different installations of the RAD and later will give the results.
Back to top
View user's profile Send private message
vez



Joined: 12 Jun 2007
Posts: 19

PostPosted: Wed Nov 17, 2010 9:54 am    Post subject: Reply with quote

I have just tested on the second copy of the RAD XE,
the error esxists, and only for the CBuilderXE, will check it. The IDE gave the trace, but I have not source code and can not catch the place.
Back to top
View user's profile Send private message
blacky



Joined: 09 Sep 2006
Posts: 6
Location: New Zealand

PostPosted: Wed Feb 02, 2011 7:25 am    Post subject: Reply with quote

I'm getting the same fault with Delphi XE. Select the TRotLab component and try to place it on a form of a new Delphi XE VCL Forms application project. The exception: EInvalidOperation "Control 'RotLab1' has no parent window." is raised immediately.

I have pasted the Eurekalog stack trace below, it may help.

I have the source but don't know how to use the source to get the appropriate debugging info to you.

Regards
Paul

Code:

EurekaLog 6.0.25 RC 2

Application:
----------------------------------------------------------------------
  1.1 Start Date      : Wed, 2 Feb 2011 19:15:13 +1300
  1.2 Name/Description: bds.exe - (Embarcadero RAD Studio for Windows)
  1.3 Version Number  : 15.0.3953.35171
  1.4 Parameters      :
  1.5 Compilation Date:
  1.6 Up Time         : 27 seconds

Exception:
------------------------------------------------------------------
  2.1 Date          : Wed, 2 Feb 2011 19:15:41 +1300
  2.2 Address       : 5027CA53
  2.3 Module Name   : vcl150.bpl - (Embarcadero Component Package)
  2.4 Module Version: 15.0.3953.35171
  2.5 Type          : EInvalidOperation
  2.6 Message       : Control 'RotLab1' has no parent window.
  2.7 ID            : 448F
  2.8 Count         : 1
  2.9 Status        : New
  2.10 Note         :

User:
-------------------------------------------------------
  3.1 ID        :
  3.2 Name      :
  3.3 Email     :
  3.4 Company   :
  3.5 Privileges: SeIncreaseQuotaPrivilege        - OFF
                  SeSecurityPrivilege             - OFF
                  SeTakeOwnershipPrivilege        - OFF
                  SeLoadDriverPrivilege           - OFF
                  SeSystemProfilePrivilege        - OFF
                  SeSystemtimePrivilege           - OFF
                  SeProfileSingleProcessPrivilege - OFF
                  SeIncreaseBasePriorityPrivilege - OFF
                  SeCreatePagefilePrivilege       - OFF
                  SeBackupPrivilege               - OFF
                  SeRestorePrivilege              - OFF
                  SeShutdownPrivilege             - OFF
                  SeDebugPrivilege                - ON
                  SeSystemEnvironmentPrivilege    - OFF
                  SeChangeNotifyPrivilege         - ON
                  SeRemoteShutdownPrivilege       - OFF
                  SeUndockPrivilege               - OFF
                  SeManageVolumePrivilege         - OFF
                  SeImpersonatePrivilege          - ON
                  SeCreateGlobalPrivilege         - ON
                  SeIncreaseWorkingSetPrivilege   - OFF
                  SeTimeZonePrivilege             - OFF
                  SeCreateSymbolicLinkPrivilege   - OFF

Active Controls:
---------------------------------------------------------------
  4.1 Form Class   : TAppBuilder
  4.2 Form Text    : Map - Embarcadero RAD Studio XE - Main_Map
  4.3 Control Class: TForm1
  4.4 Control Text :

Computer:
-------------------------------------------------------------------------------
  5.1 Name          :
  5.2 Total Memory  : 8092 Mb
  5.3 Free Memory   : 5034 Mb
  5.4 Total Disk    : 232.69 Gb
  5.5 Free Disk     : 65.27 Gb
  5.6 System Up Time: 1 hour, 50 minutes, 41 seconds
  5.7 Processor     : Intel(R) Core(TM)2 Duo CPU     T9600  @ 2.80GHz
  5.8 Display Mode  : 1920 x 1200, 32 bit
  5.9 Display DPI   : 96
  5.10 Video Card   : NVIDIA Quadro FX 2700M (driver 8.17.12.5985 - RAM 512 MB)
  5.11 Printer      : HP Deskjet F2200 series (driver 6.1.7600.16385)

Operating System:
--------------------------------------------
  6.1 Type    : Microsoft Windows 7 (64 bit)
  6.2 Build # : 7600
  6.3 Update  :
  6.4 Language: English
  6.5 Charset : 0

Call Stack Information:
--------------------------------------------------------------------------------------------------------
|Address |Module              |Unit                 |Class            |Procedure/Method      |Line     |
--------------------------------------------------------------------------------------------------------
|Running Thread: ID=4932; Priority=0; Class=; [Main]                                                   |
|------------------------------------------------------------------------------------------------------|
|50281F0B|vcl150.bpl          |Controls.pas         |TWinControl      |MainWndProc           |9558[9]  |
|516416FE|exceptiondiag150.bpl|SysInit.pas          |                 |_GetTls               |428[23]  |
|516416C8|exceptiondiag150.bpl|SysInit.pas          |                 |_GetTls               |405[0]   |
|516B48F8|exceptiondiag150.bpl|JclHookExcept.pas    |                 |DoExceptNotify        |267[27]  |
|765211C0|kernel32.dll        |                     |                 |SetLastError          |         |
|516416FE|exceptiondiag150.bpl|SysInit.pas          |                 |_GetTls               |428[23]  |
|516416C8|exceptiondiag150.bpl|SysInit.pas          |                 |_GetTls               |405[0]   |
|516B48F8|exceptiondiag150.bpl|JclHookExcept.pas    |                 |DoExceptNotify        |267[27]  |
|516B495F|exceptiondiag150.bpl|JclHookExcept.pas    |                 |HookedRaiseException  |287[6]   |
|5003B57C|rtl150.bpl          |System.pas           |                 |_RaiseExcept          |14712[0] |
|5027CA53|vcl150.bpl          |Controls.pas         |TControl         |GetDeviceContext      |6208[2]  |
|5027ACA7|vcl150.bpl          |Controls.pas         |TControlCanvas   |CreateHandle          |4918[38] |
|5025E9CE|vcl150.bpl          |Graphics.pas         |TCanvas          |RequiredState         |4192[6]  |
|5025E78D|vcl150.bpl          |Graphics.pas         |TCanvas          |TextExtent            |4089[1]  |
|5025D9E2|vcl150.bpl          |Graphics.pas         |TCustomCanvas    |TextWidth             |3633[1]  |
|5025D9D0|vcl150.bpl          |Graphics.pas         |TCustomCanvas    |TextWidth             |3632[0]  |
|5025B955|vcl150.bpl          |Graphics.pas         |TResourceManager |FreeResource          |1791[20] |
|5025C450|vcl150.bpl          |Graphics.pas         |TGraphicsObject  |Unlock                |2289[4]  |
|5003A438|rtl150.bpl          |System.pas           |                 |FindDynaMethod        |11526[0] |
|5003A480|rtl150.bpl          |System.pas           |                 |_CallDynaInst         |11595[3] |
|5003A47C|rtl150.bpl          |System.pas           |                 |_CallDynaInst         |11592[0] |
|5027BA5D|vcl150.bpl          |Controls.pas         |TControl         |SetBounds             |5492[15] |
|5027BF07|vcl150.bpl          |Controls.pas         |TControl         |SetBoundsRect         |5648[1]  |
|5027BEEC|vcl150.bpl          |Controls.pas         |TControl         |SetBoundsRect         |5647[0]  |
|51B18796|vcldesigner150.bpl  |VCLSurface.pas       |TControlItem     |SetBoundsRect         |879[1]   |
|2107A0C4|designide150.bpl    |ComponentDesigner.pas|TComponentRoot   |DoCreateComponent     |2408[96] |
|21079CE8|designide150.bpl    |ComponentDesigner.pas|TComponentRoot   |DoCreateComponent     |2312[0]  |
|2107F022|designide150.bpl    |ComponentDesigner.pas|TComponentRoot   |CreateCurrentComponent|4384[2]  |
|2109636E|designide150.bpl    |Surface.pas          |TDesignSurface   |CreateItem            |187[1]   |
|2104E6BE|designide150.bpl    |Designer.pas         |TDesigner        |DoDragCreate          |764[1]   |
|2104E698|designide150.bpl    |Designer.pas         |TDesigner        |DoDragCreate          |763[0]   |
|2104EE98|designide150.bpl    |Designer.pas         |TDesigner        |DragEnd               |928[19]  |
|2104EDBC|designide150.bpl    |Designer.pas         |TDesigner        |DragEnd               |909[0]   |
|21051474|designide150.bpl    |Designer.pas         |TDesigner        |MouseUp               |1710[1]  |
|51B1CCA1|vcldesigner150.bpl  |VCLSurface.pas       |                 |MouseEvent            |2908[45] |
|51B1CA60|vcldesigner150.bpl  |VCLSurface.pas       |                 |MouseEvent            |2863[0]  |
|51B1D87B|vcldesigner150.bpl  |VCLSurface.pas       |TVclDesignSurface|IsDesignMsg           |3169[48] |
|5003A4D4|rtl150.bpl          |System.pas           |TObject          |InheritsFrom          |11725[0] |
|5003A336|rtl150.bpl          |System.pas           |                 |_IsClass              |11370[1] |
|5027DCDB|vcl150.bpl          |Controls.pas         |TControl         |WndProc               |6987[4]  |
|5027DC98|vcl150.bpl          |Controls.pas         |TControl         |WndProc               |6983[0]  |
|50282830|vcl150.bpl          |Controls.pas         |TWinControl      |WndProc               |9831[144]|
|502822C8|vcl150.bpl          |Controls.pas         |TWinControl      |WndProc               |9687[0]  |
|5034FB28|vcl150.bpl          |Forms.pas            |TCustomForm      |WndProc               |3961[191]|
|223F532C|delphivclide150.bpl |VCLFormContainer.pas |TControlSizer    |ControlWndProc        |313[33]  |
|766FF006|USER32.dll          |                     |                 |GetAppCompatFlags     |         |
|5003C0F4|rtl150.bpl          |System.pas           |                 |_UStrArrayClr         |17104[0] |
|50281ED0|vcl150.bpl          |Controls.pas         |TWinControl      |MainWndProc           |9552[3]  |
|500AFA64|rtl150.bpl          |Classes.pas          |                 |StdWndProc            |13491[8] |
|766D7DF5|USER32.dll          |                     |                 |DispatchMessageW      |         |
|766D7DEB|USER32.dll          |                     |                 |DispatchMessageW      |         |
|50358AF7|vcl150.bpl          |Forms.pas            |TApplication     |ProcessMessage        |9760[23] |
|50358A04|vcl150.bpl          |Forms.pas            |TApplication     |ProcessMessage        |9737[0]  |
|50358B3A|vcl150.bpl          |Forms.pas            |TApplication     |HandleMessage         |9790[1]  |
|50358B30|vcl150.bpl          |Forms.pas            |TApplication     |HandleMessage         |9789[0]  |
|50358E65|vcl150.bpl          |Forms.pas            |TApplication     |Run                   |9927[26] |
|76523675|kernel32.dll        |                     |                 |BaseThreadInitThunk   |         |
--------------------------------------------------------------------------------------------------------
Back to top
View user's profile Send private message Visit poster's website
vez



Joined: 12 Jun 2007
Posts: 19

PostPosted: Fri Feb 04, 2011 12:40 pm    Post subject: Reply with quote

hlohning wrote:
I cannot reproduce this bug. However I dimly remember that this could be a problem with the pathes to the DLLs.

So just an idea: could you try to copy the *.BPL files to the Delphi binary directory (where other Delphi DLLs are stored)?

Please let me know whether this helps.

Regards,

Hans

No this did not help, the error is the same.
Back to top
View user's profile Send private message
vez



Joined: 12 Jun 2007
Posts: 19

PostPosted: Fri Feb 04, 2011 12:42 pm    Post subject: Reply with quote

blacky wrote:
I'm getting the same fault with Delphi XE. Select the TRotLab component and try to place it on a form of a new Delphi XE VCL Forms application project. The exception: EInvalidOperation "Control 'RotLab1' has no parent window." is raised immediately.

I have pasted the Eurekalog stack trace below, it may help.

I have the source but don't know how to use the source to get the appropriate debugging info to you.

Regards
Paul
[/code]

If you have the source code, you can debug this error, in this case you have to open RAD studio by the second copy of the RAD studio ...
Back to top
View user's profile Send private message
blacky



Joined: 09 Sep 2006
Posts: 6
Location: New Zealand

PostPosted: Sat Feb 05, 2011 2:18 am    Post subject: Reply with quote

The error occurs on this line:
Code:
  Canvas.Brush.Style := bsClear;

in the procedure TRotLab.DoDrawText.

I "solved" the fault by adding
Code:
  if ( not Assigned(Parent) ) then
    exit;

to the start of DoDrawText.

Regards
Paul
Back to top
View user's profile Send private message Visit poster's website
vez



Joined: 12 Jun 2007
Posts: 19

PostPosted: Sat Feb 05, 2011 8:59 am    Post subject: Reply with quote

blacky wrote:
The error occurs on this line:
Code:
  Canvas.Brush.Style := bsClear;

in the procedure TRotLab.DoDrawText.

I "solved" the fault by adding
Code:
  if ( not Assigned(Parent) ) then
    exit;

to the start of DoDrawText.

Regards
Paul


Sounds good, but now we have to wait official update...
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    www.sdlsuite.com Forum Index -> GuiPack All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group