or add a right menu ‘set caption as form name’ to property list.
thanks!]]>
*
How to reproduce:
***************** 1 - Create a new form
2 - Insert a label
3 - Modify the label’s width and/or height
4 - Save the form
5 - Close the form
6 - Open .kxf file with a text editor: the width and height of the label will have the correct values
7 - Open .kxf file with Koda: the width and height of the label will have been reset to their original values, instead of having the saved values
Customize Toolbar:
1. Add “NewPage” or “NewButton” to a Toolbar (e.g. Standard Toolbar or User Toolbar n” will not show the Icons
2.
**Problem with showing User Toolbar3**
Szenario__:
a.
User Toolbar 1 is configure well
User Toolbar 2 is not configure
User Toolbar 3 is configure
“Apply” Button
Result: User Toolbar 1 is shown, User Toolbar 3 is not shown!
a1.
User Toolbar 1 is configure well
User Toolbar 2 is not configure
User Toolbar 3 is configure
After “Apply” Button
User Toolbar 2 is setting up
“Apply” Button
Result: All Toolbars will shown
b.
User Toolbar 1 is configure well
User Toolbar 2 is configure well
User Toolbar 3 is configure
“Apply” Button
Result: User Toolbar 3 will not be shown!
======KXF======:
<?xml version="1.0" encoding="windows-1251"?> <object type="TAForm" name="frmDrop"> <properties> <property name="Left" vt="Int16">1084</property> <property name="Top" vt="Int16">754</property> <property name="Width" vt="Int8">104</property> <property name="Height" vt="Int16">130</property> <property name="Caption" vt="String">monVert 3.00</property> <property name="Color" vt="Ident">clBtnFace</property> <property name="Font.Charset" vt="Ident">DEFAULT_CHARSET</property> <property name="Font.Color" vt="Ident">clWindowText</property> <property name="Font.Height" vt="Int8">-11</property> <property name="Font.Name" vt="String">MS Sans Serif</property> <property name="Font.Style" vt="Set"/> <property name="OldCreateOrder" vt="False">False</property> <property name="Visible" vt="True">True</property> <property name="Style" vt="Int32">-1798701056</property> <property name="ExStyle" vt="Int16">392</property> <property name="Version" vt="String">1.04</property> <property name="Description" vt="String">A standard Windows Form.</property> <property name="FormOptOnEvent" vt="False">False</property> <property name="FormOptExpVars" vt="False">False</property> <property name="FormOptPopulate" vt="False">False</property> <property name="FormOptVarsForSet" vt="False">False</property> <property name="FormOptIndentChar" vt="Int8">0</property> <property name="FormOptIndentCount" vt="Int8">1</property> <property name="FormOptIndentInit" vt="Int8">0</property> <property name="FormOptVarScope" vt="Int8">0</property> <property name="Resizing" vt="Set"/> <property name="PixelsPerInch" vt="Int8">96</property> <property name="TextHeight" vt="Int8">13</property> </properties> <components> <object type="TAContextMenu" name="ctxMnu"> <properties> <property name="Left" vt="Int8">0</property> <property name="Top" vt="Int8">0</property> <property name="Width" vt="Int8">28</property> <property name="Height" vt="Int8">28</property> <property name="WrappedName" vt="String">PopupMenu1</property> </properties> <components/> </object> <object type="TPopupMenu" name="PopupMenu1"> <properties/> <components> <object type="TAMenuItem" name="ctxMain"> <properties> <property name="Caption" vt="UTF8String">Otw?rz okno g??wne</property> <property name="OnClick" vt="String">ctxMainClick</property> </properties> <components/> </object> <object type="TAMenuItem" name="ctxExit"> <properties> <property name="Caption" vt="String">Koniec</property> <property name="OnClick" vt="String">ctxExitClick</property> </properties> <components/> </object> </components> </object> </components> </object>
=====AU3=====:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=monvert-gui-drop.kxf
$frmDrop = GUICreate("monVert 3.00", 97, 97, 1084, 754, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
]]> ‘Call to DllRegisterServer failed in "shdocvw.dll"'
As consequence no AU3 code is generated for the control - although it shows on the form - and all attempts to open the definition file afterward fail with the same error message, so the only remaining option is to open KXF file as XML and remove the control manually.
Especially confusing is the fact that Koda wants to call DllRegisterServer at all. Why is it necessary? The DLL is already registered on the system, otherwise the control wouldn’t appear in the Koda’s object browser.
]]>