xcodeJock.ch

[unixkd]

Hi Roger

XCodeJock.ch compile with errors in 257

Joseph

[rdonnay]

What kind of errors?
Which line of code?

[unixkd]

I solved it, but now my main toolbar will not display as shown below:

MainTB1.jpg (563.72 KiB) Viewed 12859 times

[rdonnay]

Are you saying this is a codejock problem or is this an eXpress++ toolbar?

What is the problem?

[unixkd]

Hi Roger

It is Express++ toolbar problem

Thanks

Joseph

[rdonnay]

All of my applications have toolbars and nobody else has reported any problem with toolbars.

I need to see some of your code to understand your problem.

[unixkd]

Hi Roger

I finally figured out why the toolbar is not displaying in 257.

The DCADDBUTTON CAPTION no longer support ICON captions. If it is bitmap, it works fine. Run your sample below:

Static FUNCTION T_B()

/* This is an example of how to use DCSTATUSBAR to create
locked status areas around the perimiter of a dialog window */

LOCAL GetList := {}, GetOptions, oMenuBar, oFileMenu, oToolBottom, ;
oDlg, oDrawingArea, oStatBottom, bReSize, oMsgBox, oProgress, ;
oMsgStatic, lTesting := .f., oInsStatic, oNumStatic, ;
oCapsStatic, oStatTop, oToolTop, oStatTop2, oToolTop2, ;
lHideStatus2 := .f., lHideStatus3 := .f., lHideStatus4 := .f., ;
lHideStatus5 := .f., oStatLeft1, oStatLeft2, oStatRight1, ;
oToolLeft1, oToolleft2, oToolRight1, oProgressStatic, ;
oStatRight2, oToolRight2, lHideStatus6 := .f., lHideStatus7 := .f.



// Top Statusbar #1 with Toolbar
DCSTATUSBAR oStatTop HEIGHT 20 ALIGN DCGUI_ALIGN_TOP SPACING 0

@ 0,0 DCTOOLBAR oToolTop SIZE 400,20 BUTTONSIZE 100,20 ;
TYPE XBPSTATIC_TYPE_RAISEDBOX PARENT oStatTop PIXEL

DCADDBUTTON CAPTION ICON_DRIVE ;
ACTION {||lHideStatus2 := !lHideStatus2, ;
DC_GetRefresh(GetList), ;
DC_StatusBarRePaint(oDlg)} ;
PARENT oToolTop PIXEL

DCADDBUTTON CAPTION ICON_DATE ;
ACTION {||lHideStatus3 := !lHideStatus3, ;
DC_GetRefresh(GetList), ;
DC_StatusBarRePaint(oDlg)} ;
PARENT oToolTop PIXEL

DCADDBUTTON CAPTION 'Left ToolBar #1' ;
ACTION {||lHideStatus4 := !lHideStatus4, ;
DC_GetRefresh(GetList), ;
DC_StatusBarRePaint(oDlg)} ;
PARENT oToolTop PIXEL

DCADDBUTTON CAPTION 'Left ToolBar #2' ;
ACTION {||lHideStatus5 := !lHideStatus5, ;
DC_GetRefresh(GetList), ;
DC_StatusBarRePaint(oDlg)} ;
PARENT oToolTop PIXEL

DCADDBUTTON CAPTION 'Right ToolBar #1' ;
ACTION {||lHideStatus6 := !lHideStatus6, ;
DC_GetRefresh(GetList), ;
DC_StatusBarRePaint(oDlg)} ;
PARENT oToolTop PIXEL

DCADDBUTTON CAPTION 'Right ToolBar #2' ;
ACTION {||lHideStatus7 := !lHideStatus7, ;
DC_GetRefresh(GetList), ;
DC_StatusBarRePaint(oDlg)} ;
PARENT oToolTop PIXEL

// Top Statusbar #2 (Hideable) with toolbar
DCSTATUSBAR oStatTop2 HEIGHT 20 ALIGN DCGUI_ALIGN_TOP ;
HIDE {||lHideStatus2}

@ 0,0 DCTOOLBAR oToolTop2 SIZE 400,20 BUTTONSIZE 50,20 ;
TYPE XBPSTATIC_TYPE_RAISEDBOX PARENT oStatTop2 PIXEL

DCADDBUTTON CAPTION 'Button4' ;
ACTION {||DC_ReadGuiEvent(DCGUI_EXIT_OK,GetList)} ;
PARENT oToolTop2 PIXEL

DCADDBUTTON CAPTION 'Button5' ;
ACTION {||DC_ReadGuiEvent(DCGUI_EXIT_OK,GetList)} ;
PARENT oToolTop2 PIXEL

DCADDBUTTON CAPTION 'Button6' ;
ACTION {||DC_ReadGuiEvent(DCGUI_EXIT_OK,GetList)} ;
PARENT oToolTop2 PIXEL

// Bottom Statusbar (Hideable) with message, scrollbar, buttons, key status
DCSTATUSBAR oStatBottom HEIGHT 28 ALIGN DCGUI_ALIGN_BOTTOM ;
HIDE {||lHideStatus3}

@ 3,0 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX ;
SIZE 300,20 ;
PARENT oStatBottom PIXEL OBJECT oMsgStatic

@ 2,2 DCMESSAGEBOX TYPE XBPSTATIC_TYPE_TEXT ;
SIZE 300,20 MOTION ;
COLOR GRA_CLR_BLUE, GRA_CLR_BACKGROUND ;
OBJECT oMsgBox PARENT oMsgStatic PIXEL

@ 3,0 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX ;
OBJECT oProgressStatic ;
SIZE 100,20 PARENT oStatBottom PIXEL

@ 2,3 DCPROGRESS oProgress ;
COLOR GRA_CLR_DARKRED, GRA_CLR_BACKGROUND ;
TYPE XBPSTATIC_TYPE_TEXT ;
SIZE 96,16 PARENT oProgressStatic PIXEL

@ 3,0 DCTOOLBAR oToolBottom SIZE 126,20 BUTTONSIZE 40,20 ;
TYPE XBPSTATIC_TYPE_RECESSEDBOX PARENT oStatBottom PIXEL

DCADDBUTTON CAPTION '&Exit' ;
ACTION {||DC_ReadGuiEvent(DCGUI_EXIT_OK,GetList)} ;
PARENT oToolBottom PIXEL

DCADDBUTTON TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 3,22 ;
PARENT oToolBottom PIXEL

DCADDBUTTON CAPTION '&Cancel' ;
ACTION {||lTesting := .f.} ;
WHEN {||lTesting} ;
PARENT oToolBottom PIXEL

DCADDBUTTON TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 3,22 ;
PARENT oToolBottom PIXEL


@ 3,0 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX ;
SIZE 30,20 PARENT oStatBottom PIXEL OBJECT oCapsStatic

@ 1,1 DCSAY '' PARENT oCapsStatic ID 'CAPSLOCK' ;
SAYSIZE 28,18 SAYCENTER PIXEL

@ 3,0 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX ;
SIZE 30,20 PARENT oStatBottom PIXEL OBJECT oNumStatic

@ 1,1 DCSAY '' PARENT oNumStatic ID 'NUMLOCK' ;
SAYSIZE 28,18 SAYCENTER PIXEL

@ 3,0 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX ;
SIZE 30,20 PARENT oStatBottom PIXEL OBJECT oInsStatic

@ 1,1 DCSAY '' PARENT oInsStatic ID 'INSERT' ;
SAYSIZE 28,18 SAYCENTER PIXEL

// Left Statusbar #1 (Hideable) with toolbar
DCSTATUSBAR oStatLeft1 WIDTH 45 ALIGN DCGUI_ALIGN_LEFT ;
HIDE {||lHideStatus4} TYPE XBPSTATIC_TYPE_TEXT

@ 0,0 DCTOOLBAR oToolLeft1 SIZE 45,1000 BUTTONSIZE 45,20 ;
TYPE XBPSTATIC_TYPE_RAISEDBOX PARENT oStatLeft1 PIXEL

DCADDBUTTON CAPTION '1-Test1' PARENT oToolLeft1 PIXEL
DCADDBUTTON CAPTION '1-Test2' PARENT oToolLeft1 PIXEL
DCADDBUTTON CAPTION '1-Test3' PARENT oToolLeft1 PIXEL
DCADDBUTTON CAPTION '1-Test4' PARENT oToolLeft1 PIXEL

// Left Statusbar #2 (Hideable) with toolbar
DCSTATUSBAR oStatLeft2 WIDTH 45 ALIGN DCGUI_ALIGN_LEFT ;
HIDE {||lHideStatus5} TYPE XBPSTATIC_TYPE_TEXT

@ 0,0 DCTOOLBAR oToolLeft2 SIZE 45,1000 BUTTONSIZE 45,20 ;
TYPE XBPSTATIC_TYPE_RAISEDBOX PARENT oStatLeft2 PIXEL

DCADDBUTTON CAPTION '2-Test1' PARENT oToolLeft2 PIXEL
DCADDBUTTON CAPTION '2-Test2' PARENT oToolLeft2 PIXEL
DCADDBUTTON CAPTION '2-Test3' PARENT oToolLeft2 PIXEL
DCADDBUTTON CAPTION '2-Test4' PARENT oToolLeft2 PIXEL

// Right Statusbar #1 (Hideable) with toolbar
DCSTATUSBAR oStatRight1 WIDTH 30 ALIGN DCGUI_ALIGN_RIGHT ;
HIDE {||lHideStatus6} TYPE XBPSTATIC_TYPE_TEXT

@ 0,0 DCTOOLBAR oToolRight1 SIZE 30,1000 BUTTONSIZE 30,25 ;
TYPE XBPSTATIC_TYPE_RAISEDBOX PARENT oStatRight1 PIXEL

DCADDBUTTON CAPTION BITMAP_EXECUTE_M PARENT oToolRight1 PIXEL
DCADDBUTTON CAPTION BITMAP_UNDO_M PARENT oToolRight1 PIXEL
DCADDBUTTON CAPTION BITMAP_REDO_M PARENT oToolRight1 PIXEL
DCADDBUTTON CAPTION BITMAP_BOLD_M PARENT oToolRight1 PIXEL
DCADDBUTTON CAPTION BITMAP_ITALIC_M PARENT oToolRight1 PIXEL
DCADDBUTTON CAPTION BITMAP_UNDERLINE_M PARENT oToolRight1 PIXEL
DCADDBUTTON CAPTION BITMAP_CODEWRITE_M PARENT oToolRight1 PIXEL
DCADDBUTTON CAPTION BITMAP_CONFIG_M PARENT oToolRight1 PIXEL
DCADDBUTTON CAPTION BITMAP_DESIGN_M PARENT oToolRight1 PIXEL
DCADDBUTTON CAPTION BITMAP_COMMENT_M PARENT oToolRight1 PIXEL

// Right Statusbar #2 (Hideable) with toolbar
DCSTATUSBAR oStatRight2 WIDTH 30 ALIGN DCGUI_ALIGN_RIGHT ;
HIDE {||lHideStatus7} TYPE XBPSTATIC_TYPE_TEXT

@ 0,0 DCTOOLBAR oToolRight2 SIZE 30,1000 BUTTONSIZE 30,25 ;
TYPE XBPSTATIC_TYPE_RAISEDBOX PARENT oStatRight2 PIXEL

DCADDBUTTON CAPTION BITMAP_BROWSER_M PARENT oToolRight2 PIXEL
DCADDBUTTON CAPTION BITMAP_CHECKBOX_M PARENT oToolRight2 PIXEL
DCADDBUTTON CAPTION BITMAP_LISTBOX_M PARENT oToolRight2 PIXEL
DCADDBUTTON CAPTION BITMAP_DIALOG_M PARENT oToolRight2 PIXEL
DCADDBUTTON CAPTION BITMAP_EDIT_M PARENT oToolRight2 PIXEL
DCADDBUTTON CAPTION BITMAP_SPINBUTTON_M PARENT oToolRight2 PIXEL
DCADDBUTTON CAPTION BITMAP_MLE_M PARENT oToolRight2 PIXEL
DCADDBUTTON CAPTION BITMAP_GET_M PARENT oToolRight2 PIXEL


DCHOTKEY xbeK_INS ACTION {||ReadInsert(!ReadInsert())}

DCGETOPTIONS WINDOWWIDTH 610 ;
WINDOWHEIGHT 400

DCREAD GUI OPTIONS GetOptions ;
PARENT @oDlg ;
TITLE 'Status Bar Example' ;
EVAL {|o|SetTimerEvent(100,{||_UpdateStats(GetList)}) }

SetTimerEvent(0)

RETURN nil

* ------------------

STATIC FUNCTION _UpdateStats( GetList )

LOCAL oCapsLock := DC_GetObject(GetList,'CAPSLOCK')
LOCAL oNumLock := DC_GetObject(GetList,'NUMLOCK')
LOCAL oInsert := DC_GetObject(GetList,'INSERT')
LOCAL lCaps := .t. //AppKeystate( VK_CAPITAL, .T. )
LOCAL lNum := .t. //AppKeystate( VK_NUMLOCK, .T. )

RETURN nil

[Auge_Ohr]

hi,

i guess DCTOOLBAR is FROM XbpToolBar() ?
while you talk about Codejock ... did you use SkinFramework ?

if Yes, it is a Problem of Alaska´s XbpToolBar() implementation and Skinframework

[rdonnay]

I believe that I have fixed that problem in build 258.

Give this DCLIPX.DLL a try.

http://donnay-software.com:8080/donnay/dclipx.zip

[unixkd]

Hi Roger

Thanks, the 258 dclipx fix the problem

Joseph