Custum Control Error

[Christian Weilguny]

Hi,

I have a problem using a custom control for FF 3.10.

The control, I said it before in some postings, consists of four standard controls, a TreeView, a ListView, a TextBox and a Button.

This control works very fine, I have no problems with calling the compiled code, I have no problem with compiling the code.
But I have problems with using the control in the FF-Editor.
First all was fine, and suddenly I was not able to delete the control in design-mode, I was not able to remove the form containing the control. Each time I tried it there comes an error (FF3.exe has caused an error ...). This error comes also sometimes by closing the project.
The only way to kill the control or kill the form containing the control is to delete it from the .frm - file or delete the form from the project-file.

I post the .ctl - file of this control, may be there is the error located.

Code Select Expand

#FireFly_Custom_Control#

[Control]
controlname     = WsBrowser
description     = WsBrowser (Datenbrowser)
author          = Christian Weilguny
copyright       = WeSoft (c) 2012
version         = 1.00
dll_filename    = WsBrowser.dll
dll_required    = 1
source_filename = WsBrowser.inc
toolbox_bitmap  = Ws_Browser.bmp
toolbox_cursor  = Ws_Browser.cur
toolbox_tooltip = WsBrowser (Datenbrowser)
delimiter       = |
uniqueid        = {EA7B90DF-F579-4454-B323-EC0B2D79F12F}
use_loadlibrary = 0
use_initialize_action = 0
initialize_action_designer =
initialize_action_code =
create_action   = WsBrowser.dll|WsBrowser|WsBrowser|BYVAL LONG //CTRL_PARENT//|BYVAL LONG //CTRL_ID//|BYVAL LONG //CTRL_LEFT//|BYVAL LONG //CTRL_TOP//|BYVAL LONG //CTRL_WIDTH//|BYVAL LONG //CTRL_HEIGHT//|BYVAL LONG //CTRL_STYLE//|BYVAL LONG //CTRL_EXSTYLE//
       

[Property]
name        = name|(Name)
curvalue    = WsBrowser
itemtype    = Edit|1

[Property]
name        = windowstyles|(WindowStyles)
curvalue    =
itemtype    = Styles
       
[Property]
name        = controlindex|ControlIndex
curvalue    = 0
itemtype    = Edit|1

[Property]
name        = height|Height
curvalue    =
itemtype    = Edit|1

[Property]
name        = left|Left
curvalue    =
itemtype    = Edit|1

[Property]
name        = locked|Locked
curvalue    = False
itemtype    = Combo
cmbitems    = False|True
equates     = False|True

[Property]
name        = resizerules|ResizeRules
curvalue    =
itemtype    = ResizeRules

[Property]
name        = tag|Tag
curvalue    =
itemtype    = Edit|1

[Property]
name        = tag2|Tag2
curvalue    =
itemtype    = Edit|1

[Property]
name        = Tree visible|Tree visible
curvalue    = 1
itemtype    = Edit|1
prop_action = WsBrowser.dll|SetTreeVisible|SetTreeVisible|BYVAL LONG //CTRL_HWND//|BYVAL LONG //PROP_VALUE//

[Property]
name        = TreeWidth|TreeWidth
curvalue    = 120
itemtype    = Edit|1
prop_action = WsBrowser.dll|SetTreeDivider|SetTreeDivider|BYVAL LONG //CTRL_HWND//|BYVAL LONG //PROP_VALUE//

[Property]
name        = ButtonWidth|ButtonWidth
curvalue    = 100
itemtype    = Edit|1
prop_action = WsBrowser.dll|SetButtonWidth|SetButtonWidth|BYVAL LONG //CTRL_HWND//|BYVAL LONG //PROP_VALUE//

[Property]
name        = ButtonHeight|ButtonHeight
curvalue    = 25
itemtype    = Edit|1
prop_action = WsBrowser.dll|SetButtonHeight|SetButtonHeight|BYVAL LONG //CTRL_HWND//|BYVAL LONG //PROP_VALUE//

[Property]
name        = Class|Class
curvalue    =
itemtype    = Edit|1
prop_action = WsBrowser.dll|SetClass|SetClass|BYVAL LONG //CTRL_HWND//|BYVAL STRING //PROP_VALUE//

[Property]
name          = readonly|ReadOnly
curvalue      = 0 - False
itemtype      = Combo
cmbitems      = 0 - False|1 - True
equates       = 0|1
prop_action   = USER32.DLL|SendMessage|SendMessageA|BYVAL LONG //CTRL_HWND//|BYVAL LONG 3083|BYVAL LONG //PROP_VALUE//|BYVAL LONG 1
prop_describe = Set whether the edit control accepts input.

[Property]
name        = top|Top
curvalue    =
itemtype    = Edit|1
       
[Property]
name        = width|Width
curvalue    =
itemtype    = Edit|1

[Message]
name        = NFI_TREE_CHANGED
declare     = (wParam As Long, lParam As Long) As Long
call        = Fly_nResult = //MESSAGE// (wParam,  lParam)

[Message]
name        = NFI_LIST_CHANGED
declare     = (wParam As Long, lParam As Long) As Long
call        = Fly_nResult = //MESSAGE// (wParam,  lParam)


Thanks, if someone can help me

Christian

[Paul Squires]

You could try commenting out each Property (restarting FF each time) and then seeing if the problem occurs. At least that might narrow the problem down to a specific property. If that doesn't help then you can put together a simple project and email me the files and dll and I will certainly try to track down the error for you.