Custom control

[Giuseppe Bogetti]

Hi,
I'm experimenting with the building of a custom controls which emulates
Outlook bar and I've been successfull in building the group buttons.
Now I face the need to add "action" buttons on every group.
What I would like to achieve is the auto sizing of every action based on the
appearence settings ?
Is there a function in Xailer that can autosize a BmpBtn based on its
imagelist (image alignment) and text settings (text alignment & multiline) ?
I attach the project with the source for the control.
Any help, comment, criticism would be greatly appreciated.
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy
--

[jfgimenez]

Giuseppe,
(sorry for the delay)
> I'm experimenting with the building of a custom controls which emulates
> Outlook bar and I've been successfull in building the group buttons.
Congratulations!
> Now I face the need to add "action" buttons on every group.
> What I would like to achieve is the auto sizing of every action based on
> the
> appearence settings ?
>
> Is there a function in Xailer that can autosize a BmpBtn based on its
> imagelist (image alignment) and text settings (text alignment & multiline)
> ?
No, sorry; you'll need to calculate it yourself.
> I attach the project with the source for the control.
>
> Any help, comment, criticism would be greatly appreciated.
I'd tried to do it painting all the control, avoiding to use buttons on it.
I.e. the TOptionList control is created as an unique control, although it
can show many labels, checkboxes and radio buttons on it. That's because it
should be treated in a special way by the IDE (just if you want to integrate
the control in the IDE in the future), and it's not easy at all.
However, it's only my own opinion. There are always many ways to do the same
thing, and if you won't integrate it in the IDE, your approach is a very
good way.
--
Regards,
Jose F. Gimenez

[jfgimenez]

Giuseppe,
(sorry for the delay)
> I'm experimenting with the building of a custom controls which emulates
> Outlook bar and I've been successfull in building the group buttons.
Congratulations!
> Now I face the need to add "action" buttons on every group.
> What I would like to achieve is the auto sizing of every action based on
> the
> appearence settings ?
>
> Is there a function in Xailer that can autosize a BmpBtn based on its
> imagelist (image alignment) and text settings (text alignment & multiline)
> ?
No, sorry; you'll need to calculate it yourself.
> I attach the project with the source for the control.
>
> Any help, comment, criticism would be greatly appreciated.
I'd tried to do it painting all the control, avoiding to use buttons on it.
I.e. the TOptionList control is created as an unique control, although it
can show many labels, checkboxes and radio buttons on it. That's because it
should be treated in a special way by the IDE (just if you want to integrate
the control in the IDE in the future), and it's not easy at all.
However, it's only my own opinion. There are always many ways to do the same
thing, and if you won't integrate it in the IDE, your approach is a very
good way.
--
Regards,
Jose F. Gimenez

[Giuseppe Bogetti]

Il Mon, 6 Feb 2006 10:12:35 +0100, Jose F. Gimenez ha scritto:
Jose,
> Congratulations!
thanks
> I'd tried to do it painting all the control, avoiding to use buttons on it.
> I.e. the TOptionList control is created as an unique control, although it
> can show many labels, checkboxes and radio buttons on it. That's because it
> should be treated in a special way by the IDE (just if you want to integrate
> the control in the IDE in the future), and it's not easy at all.
No, I want all the control I build integrated into the IDE.
> However, it's only my own opinion.
You opinion counts a lot
What do you think of this next attempt ?
BTW I wanted to say that you have built a wonderful gui framework !!!!!
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy
--

[Giuseppe Bogetti]

Il Mon, 6 Feb 2006 10:12:35 +0100, Jose F. Gimenez ha scritto:
Jose,
> Congratulations!
thanks
> I'd tried to do it painting all the control, avoiding to use buttons on it.
> I.e. the TOptionList control is created as an unique control, although it
> can show many labels, checkboxes and radio buttons on it. That's because it
> should be treated in a special way by the IDE (just if you want to integrate
> the control in the IDE in the future), and it's not easy at all.
No, I want all the control I build integrated into the IDE.
> However, it's only my own opinion.
You opinion counts a lot
What do you think of this next attempt ?
BTW I wanted to say that you have built a wonderful gui framework !!!!!
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy
--

[Giuseppe Bogetti]

Il Mon, 6 Feb 2006 10:12:35 +0100, Jose F. Gimenez ha scritto:
Jose,
forgot to mention that I found a strange behaviour in the new sample control.
If you run it in the IDE it will LogDebug(...) all WM_MOUSEMOVE messages for the control.
I've also set an OnMouseMove at the form level.
The two methods report different X and Y position
What am I doing wrong ?
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy

[Giuseppe Bogetti]

Il Mon, 6 Feb 2006 10:12:35 +0100, Jose F. Gimenez ha scritto:
Jose,
forgot to mention that I found a strange behaviour in the new sample control.
If you run it in the IDE it will LogDebug(...) all WM_MOUSEMOVE messages for the control.
I've also set an OnMouseMove at the form level.
The two methods report different X and Y position
What am I doing wrong ?
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy

[jfgimenez]

Giuseppe,
> No, I want all the control I build integrated into the IDE.
Ok, when you get ready, contact me and I'll tell you the way to do it.
> What do you think of this next attempt ?
Wow! Very impresive!
It's a great work. The only thing I'd sugest you is to write the painting
routine directly in C. Moreover, the whole WMPaint() method can be written
in C:
XA_FUNC_STATIC( TGRADIENTLABEL_WMPAINT )
{
PHB_ITEM Self = hb_stackSelfItem();
HWND hWnd = GetHandleOf( Self );
CONTROLPAINT cp;
if ( XA_ControlBeginPaint( Self, hWnd, &cp, (HDC) hb_parnl( 1 ) ) )
{
// Use cp.hDC to paint
...
}
hb_retnl( XA_ControlEndPaint( Self, hWnd, &cp ) );
}
> BTW I wanted to say that you have built a wonderful gui framework !!!!!
Thanks
--
Regards,
Jose F. Gimenez

[jfgimenez]

Giuseppe,
> No, I want all the control I build integrated into the IDE.
Ok, when you get ready, contact me and I'll tell you the way to do it.
> What do you think of this next attempt ?
Wow! Very impresive!
It's a great work. The only thing I'd sugest you is to write the painting
routine directly in C. Moreover, the whole WMPaint() method can be written
in C:
XA_FUNC_STATIC( TGRADIENTLABEL_WMPAINT )
{
PHB_ITEM Self = hb_stackSelfItem();
HWND hWnd = GetHandleOf( Self );
CONTROLPAINT cp;
if ( XA_ControlBeginPaint( Self, hWnd, &cp, (HDC) hb_parnl( 1 ) ) )
{
// Use cp.hDC to paint
...
}
hb_retnl( XA_ControlEndPaint( Self, hWnd, &cp ) );
}
> BTW I wanted to say that you have built a wonderful gui framework !!!!!
Thanks
--
Regards,
Jose F. Gimenez

[jfgimenez]

Giuseppe,
> forgot to mention that I found a strange behaviour in the new sample
> control.
>
> If you run it in the IDE it will LogDebug(...) all WM_MOUSEMOVE messages
> for the control.
> I've also set an OnMouseMove at the form level.
>
> The two methods report different X and Y position
>
> What am I doing wrong ?
There is a missing parameter (nKeyFlags) in the event method declaration.
The correct one is:
METHOD ShowCoords( oSender, nKeyFlags, nX, nY ) CLASS TTestForm
--
Regards,
Jose F. Gimenez

[jfgimenez]

Giuseppe,
> forgot to mention that I found a strange behaviour in the new sample
> control.
>
> If you run it in the IDE it will LogDebug(...) all WM_MOUSEMOVE messages
> for the control.
> I've also set an OnMouseMove at the form level.
>
> The two methods report different X and Y position
>
> What am I doing wrong ?
There is a missing parameter (nKeyFlags) in the event method declaration.
The correct one is:
METHOD ShowCoords( oSender, nKeyFlags, nX, nY ) CLASS TTestForm
--
Regards,
Jose F. Gimenez

[Giuseppe Bogetti]

Il Mon, 6 Feb 2006 10:12:35 +0100, Jose F. Gimenez ha scritto:
Jose,
How can I detect if IDE is running ?
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy

[Giuseppe Bogetti]

Il Mon, 6 Feb 2006 10:12:35 +0100, Jose F. Gimenez ha scritto:
Jose,
How can I detect if IDE is running ?
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy

[Giuseppe Bogetti]

Il Fri, 10 Feb 2006 11:34:53 +0100, Jose F. Gimenez ha scritto:
Jose,
> Giuseppe,
>
>> No, I want all the control I build integrated into the IDE.
>
> Ok, when you get ready, contact me and I'll tell you the way to do it.
>
>
>> What do you think of this next attempt ?
>
> Wow! Very impresive!
>
> It's a great work. The only thing I'd sugest you is to write the painting
> routine directly in C. Moreover, the whole WMPaint() method can be written
> in C:
>
> XA_FUNC_STATIC( TGRADIENTLABEL_WMPAINT )
> {
> PHB_ITEM Self = hb_stackSelfItem();
> HWND hWnd = GetHandleOf( Self );
> CONTROLPAINT cp;
>
> if ( XA_ControlBeginPaint( Self, hWnd, &cp, (HDC) hb_parnl( 1 ) ) )
> {
> // Use cp.hDC to paint
> ...
> }
> hb_retnl( XA_ControlEndPaint( Self, hWnd, &cp ) );
> }
Thanks for you kind words
I'll try the C way. One question about using C and Xailer object.
I've read Xailer.h which defines XA_ObjGet.. and arrays puzzles me.
Let's say I want to convert a ::aRect array to RECT structure.
PHB_ITEM Self = hb_stackSelfItem();
PHB_ITEM aRect;
RECT sRect;
aRect := XA_ObjGetItem( self, "property_name" )
sRect->left = hb_arrayGetNL( aRect, 1 );
sRect->top = hb_arrayGetNL( aRect, 2 );
sRect->right = hb_arrayGetNL( aRect, 3 );
sRect->bottom = hb_arrayGetNL( aRect, 4 );
...........
use sRect structure
...........
Is this the right way ?
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy

[Giuseppe Bogetti]

Il Fri, 10 Feb 2006 11:34:53 +0100, Jose F. Gimenez ha scritto:
Jose,
> Giuseppe,
>
>> No, I want all the control I build integrated into the IDE.
>
> Ok, when you get ready, contact me and I'll tell you the way to do it.
>
>
>> What do you think of this next attempt ?
>
> Wow! Very impresive!
>
> It's a great work. The only thing I'd sugest you is to write the painting
> routine directly in C. Moreover, the whole WMPaint() method can be written
> in C:
>
> XA_FUNC_STATIC( TGRADIENTLABEL_WMPAINT )
> {
> PHB_ITEM Self = hb_stackSelfItem();
> HWND hWnd = GetHandleOf( Self );
> CONTROLPAINT cp;
>
> if ( XA_ControlBeginPaint( Self, hWnd, &cp, (HDC) hb_parnl( 1 ) ) )
> {
> // Use cp.hDC to paint
> ...
> }
> hb_retnl( XA_ControlEndPaint( Self, hWnd, &cp ) );
> }
Thanks for you kind words
I'll try the C way. One question about using C and Xailer object.
I've read Xailer.h which defines XA_ObjGet.. and arrays puzzles me.
Let's say I want to convert a ::aRect array to RECT structure.
PHB_ITEM Self = hb_stackSelfItem();
PHB_ITEM aRect;
RECT sRect;
aRect := XA_ObjGetItem( self, "property_name" )
sRect->left = hb_arrayGetNL( aRect, 1 );
sRect->top = hb_arrayGetNL( aRect, 2 );
sRect->right = hb_arrayGetNL( aRect, 3 );
sRect->bottom = hb_arrayGetNL( aRect, 4 );
...........
use sRect structure
...........
Is this the right way ?
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy

[jfgimenez]

Giuseppe,
> How can I detect if IDE is running ?
Sorry, it's not possible. I'll try to make a function or any other way to
detect it.
--
Regards,
Jose F. Gimenez

[jfgimenez]

Giuseppe,
> How can I detect if IDE is running ?
Sorry, it's not possible. I'll try to make a function or any other way to
detect it.
--
Regards,
Jose F. Gimenez

[jfgimenez]

Giuseppe,
> I've read Xailer.h which defines XA_ObjGet.. and arrays puzzles me.
> Let's say I want to convert a ::aRect array to RECT structure.
>
> PHB_ITEM Self = hb_stackSelfItem();
> PHB_ITEM aRect;
> RECT sRect;
>
> aRect := XA_ObjGetItem( self, "property_name" )
> sRect->left = hb_arrayGetNL( aRect, 1 );
> sRect->top = hb_arrayGetNL( aRect, 2 );
> sRect->right = hb_arrayGetNL( aRect, 3 );
> sRect->bottom = hb_arrayGetNL( aRect, 4 );
> ..........
> use sRect structure
> ..........
>
> Is this the right way ?
Yes, but instead XA_ObjGetItem(), better use XA_ObjGetItemCopy() and free it
when done:
aRect := XA_ObjGetItemCopy( Self, "property_name" );
....
hb_itemRelease( aRect );
--
Regards,
Jose F. Gimenez

[jfgimenez]

Giuseppe,
> I've read Xailer.h which defines XA_ObjGet.. and arrays puzzles me.
> Let's say I want to convert a ::aRect array to RECT structure.
>
> PHB_ITEM Self = hb_stackSelfItem();
> PHB_ITEM aRect;
> RECT sRect;
>
> aRect := XA_ObjGetItem( self, "property_name" )
> sRect->left = hb_arrayGetNL( aRect, 1 );
> sRect->top = hb_arrayGetNL( aRect, 2 );
> sRect->right = hb_arrayGetNL( aRect, 3 );
> sRect->bottom = hb_arrayGetNL( aRect, 4 );
> ..........
> use sRect structure
> ..........
>
> Is this the right way ?
Yes, but instead XA_ObjGetItem(), better use XA_ObjGetItemCopy() and free it
when done:
aRect := XA_ObjGetItemCopy( Self, "property_name" );
....
hb_itemRelease( aRect );
--
Regards,
Jose F. Gimenez

[Giuseppe Bogetti]

Il Fri, 10 Feb 2006 12:29:22 +0100, Jose F. Gimenez ha scritto:
> Giuseppe,
>
>> I've read Xailer.h which defines XA_ObjGet.. and arrays puzzles me.
>> Let's say I want to convert a ::aRect array to RECT structure.
>>
>> PHB_ITEM Self = hb_stackSelfItem();
>> PHB_ITEM aRect;
>> RECT sRect;
>>
>> aRect := XA_ObjGetItem( self, "property_name" )
>> sRect->left = hb_arrayGetNL( aRect, 1 );
>> sRect->top = hb_arrayGetNL( aRect, 2 );
>> sRect->right = hb_arrayGetNL( aRect, 3 );
>> sRect->bottom = hb_arrayGetNL( aRect, 4 );
>> ..........
>> use sRect structure
>> ..........
>>
>> Is this the right way ?
>
> Yes, but instead XA_ObjGetItem(), better use XA_ObjGetItemCopy() and free it
> when done:
>
> aRect := XA_ObjGetItemCopy( Self, "property_name" );
> ...
> hb_itemRelease( aRect );
Thanks
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy

[Giuseppe Bogetti]

Il Fri, 10 Feb 2006 12:29:22 +0100, Jose F. Gimenez ha scritto:
> Giuseppe,
>
>> I've read Xailer.h which defines XA_ObjGet.. and arrays puzzles me.
>> Let's say I want to convert a ::aRect array to RECT structure.
>>
>> PHB_ITEM Self = hb_stackSelfItem();
>> PHB_ITEM aRect;
>> RECT sRect;
>>
>> aRect := XA_ObjGetItem( self, "property_name" )
>> sRect->left = hb_arrayGetNL( aRect, 1 );
>> sRect->top = hb_arrayGetNL( aRect, 2 );
>> sRect->right = hb_arrayGetNL( aRect, 3 );
>> sRect->bottom = hb_arrayGetNL( aRect, 4 );
>> ..........
>> use sRect structure
>> ..........
>>
>> Is this the right way ?
>
> Yes, but instead XA_ObjGetItem(), better use XA_ObjGetItemCopy() and free it
> when done:
>
> aRect := XA_ObjGetItemCopy( Self, "property_name" );
> ...
> hb_itemRelease( aRect );
Thanks
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy

[Giuseppe Bogetti]

Il Fri, 10 Feb 2006 11:34:53 +0100, Jose F. Gimenez ha scritto:
Jose
> Giuseppe,
>
>> No, I want all the control I build integrated into the IDE.
>
> Ok, when you get ready, contact me and I'll tell you the way to do it.
>
I am ready
I've partly succeded in porting the WM_PAINT method in C.
The drawing of gradient and text is working fine but the drawing of the bitmap is not
working at all. Even if the counterpart in xHarbour works perfectly.
I've split the c functions in two levels so basically I use the same code for drawing.
It seems that my C code of the WM_PAINT is handling incorrectly the imagelist object and
the handle of the bitmap.
Is it right to call a method like TImageList:GetImageCount() in this way ?
iCount = XA_ObjSendNL( oImgLst, "GetImageCount", 0 );
Also I've tried to modify the colors in the TComboColorBox but nothing changes.
In the FormInitialize method I use this code
::oCmbFirst:aColors := ndColors() // ndColors returns an array of color values.
What am i doing wrong ?
Thanks again for your attention
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy
--

[Giuseppe Bogetti]

Il Fri, 10 Feb 2006 11:34:53 +0100, Jose F. Gimenez ha scritto:
Jose
> Giuseppe,
>
>> No, I want all the control I build integrated into the IDE.
>
> Ok, when you get ready, contact me and I'll tell you the way to do it.
>
I am ready
I've partly succeded in porting the WM_PAINT method in C.
The drawing of gradient and text is working fine but the drawing of the bitmap is not
working at all. Even if the counterpart in xHarbour works perfectly.
I've split the c functions in two levels so basically I use the same code for drawing.
It seems that my C code of the WM_PAINT is handling incorrectly the imagelist object and
the handle of the bitmap.
Is it right to call a method like TImageList:GetImageCount() in this way ?
iCount = XA_ObjSendNL( oImgLst, "GetImageCount", 0 );
Also I've tried to modify the colors in the TComboColorBox but nothing changes.
In the FormInitialize method I use this code
::oCmbFirst:aColors := ndColors() // ndColors returns an array of color values.
What am i doing wrong ?
Thanks again for your attention
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy
--

[Giuseppe Bogetti]

Il Sun, 12 Feb 2006 21:14:27 +0100, Giuseppe Bogetti ha scritto:
Sorry forgot to mention that the compilation of the C function for WM_PAINT message can be
activated by uncommenting the #define at the end of the xDef.ch file.
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy

[Giuseppe Bogetti]

Il Sun, 12 Feb 2006 21:14:27 +0100, Giuseppe Bogetti ha scritto:
Sorry forgot to mention that the compilation of the C function for WM_PAINT message can be
activated by uncommenting the #define at the end of the xDef.ch file.
--
Best regards,
Giuseppe Bogetti
B.G. Soft
Cuneo - Italy