Announcement

**Tbaker** · 08-15-2009, 01:19 PM

Re: xdialog button color

Mike

I am pretty sure that the button appearance on an xdialog and any windows message box is controlled by the appearance setting on the properties of the desktop. In XP properites, appearance, advanced, 3d objects.

Alpha just uses that interface to produce its xdialog boxes so I don't know of any way to change the colors of the buttons in Alpha.

I have been trying to do the same thing and have not been successfull

FWIW

Tom Baker

**Jim Coltz** · 08-15-2009, 06:20 PM

Re: xdialog button color

Originally posted by MikeC View Post

Hi,
I would like to have gradient buttons on my xdialog form. That is all that is missing from being able to emulate a standard Alpha form currently in my scenario.

Does anyone know of way to achieve this?...maybe an undocumented function or method?

Perhaps this?

From the help file on "What's new in V9", "New in Xdialog", "Stylesheets for Xdialog"

Code:

ui_modeless_dlg_box("foo",<<%dlg%
{style}
$Button {
font:Arial,10,b;
border-shape:large-rounded;
fill-style:Gradient horizontal glass;
fill-color:Light Blue;
fill-accent-color:White;
shadow-style:medium soft;
}
$Button:hover,$Button:focused {
font:Arial,10,b;
border-shape:large-rounded;
line-style:single;
line-width:1;
line-color:Orange;
fill-style:Gradient horizontal glass;
fill-color:Orange;
fill-accent-color:White;
shadow-style:medium soft;
}
$Button:pressed {
font:Arial,10,b;
border-shape:large-rounded;
line-style:single;
line-width:1;
line-color:Blue;
fill-style:Gradient horizontal glass;
fill-color:White;
fill-accent-color:Blue;
}
$frame {
fill-style:Gradient horizontal;
fill-color:White;
fill-accent-color:light Blue;
shadow-style:thin soft;
}
$frame.caption {
fill-style:Gradient horizontal;
fill-color:White;
fill-accent-color:light Blue;
}
$line {
line-style:single;
line-width:2;
line-color:Light Blue;
}
{endstyle};
This xdialog has styled frames, lines and buttons;
{frame=3,6Hello World};
First name:|[.40fname]|;
Last name:|[.40lname];
{line=2};
{cellspillover=on}
<One> <Two> <Three> <Four>;
%dlg%)

**MikeC** · 08-15-2009, 06:26 PM

Re: xdialog button color

Thanks Jim! This helps and is a great start. Am wondering if buttons can have separate styles on the same xdialog? I will look at the code a bit closer but is not readily apparent that it can be done for individual buttons...

**MikeC** · 08-15-2009, 07:10 PM

Re: xdialog button color

Unless I missed something, maybe in v10 for separate button styles with gradient. I can have solid colors for buttons that are different, but not quite the same....xdialog is sure getting close to what standard forms have for appearance now.

**Tbaker** · 08-15-2009, 10:04 PM

Re: xdialog button color

My thanks also Jim

Ever since I read the post I have been playing with the buttons and frames on some of my dialog boxes, the new gradients really make for a more professional look.

Again thanks again for pointing me in the right direction.

Tom Baker

**martinwcole** · 08-16-2009, 04:51 PM

Re: xdialog button color

Ditto - really appreciate that - put in a text file for future use

**martinwcole** · 08-16-2009, 05:49 PM

Re: xdialog button color

can't get it to work in a dialog box that is not modeless (Version 8)

here's code for a regular dialog box I've tried to use it in, unsuccessfully:

Code:

'Create an XDialog dialog box to prompt for parameters.
DIM text1 as P
dim text1.object as p 
dim text1.class as c
text1.class = "dhtmledit.dhtmledit"
DIM SHARED whichone as C
DIM SHARED varC_result as C
DIM text1_html as c 
text1_html = <<%html%
<html>
<head>
<meta name="generator" content="Alpha Five HTML Editor">
<title></title>
<style>
<!--
p            { margin-top: 0; margin-bottom: 0 }
-->
</style>
</head>
<body>
<p>Where two payments have been made for a single line item 
(charge,) the original cannot be changed.&nbsp; You can <u><em>change</em></u> 
the 2nd payment amount, or <u><em>delete</em></u>             
            
 the 2nd payment. </p>
<p>&nbsp;</p>
<p>If you delete the 2nd payment, then you can edit the first payment - so long as the the 
first payment was made from the current check number. If it was not (most likely), then 
after you delete the 2nd payment, [Edit Records] again and use the original check 
number.</p>
</body>
</html>%html%
ok_button_label = "Continue"
cancel_button_label = "Cancel"
varC_result = ui_dlg_box("Editing 2nd Payments",<<%dlg%
{Background=#212+208+200}
{startup=init}
{region}
| {activex=150,10text1?.f.};
{region}:{endregion}|
{region}(whichone:Change the Payment Amt for the 2nd Payment);
(whichone:Delete the 2nd Payment);{endregion};
;
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button = "init" then 
 a_dlg_button = ""
 text1.object.browsemode = .t. 
 text1.object.appearance = 1
 text1.object.ScrollBars = .f.
 on error goto text1_error
 text1.object.documenthtml = text1_html
 on error goto 0
 text1.object.Refresh()
 a_dlg_button = ""
end if
end 
text1_error:
ui_msg_box("Error","Invalid URL or HTML content.",UI_STOP_SYMBOL)
end
%code%)

works in V9!!

**Tbaker** · 08-16-2009, 06:16 PM

Re: xdialog button color

Martin

try this - see if this works

Code:

DIM text1 as P
dim text1.object as p 
dim text1.class as c
text1.class = "dhtmledit.dhtmledit"
DIM SHARED whichone as C
DIM SHARED varC_result as C
DIM text1_html as c 
text1_html = <<%html%
<html>
<head>
<meta name="generator" content="Alpha Five HTML Editor">
<title></title>
<style>
<!--
p            { margin-top: 0; margin-bottom: 0 }
-->
</style>
</head>
<body>
<p>Where two payments have been made for a single line item 
(charge,) the original cannot be changed.&nbsp; You can <u><em>change</em></u> 
the 2nd payment amount, or <u><em>delete</em></u>             
            
 the 2nd payment. </p>
<p>&nbsp;</p>
<p>If you delete the 2nd payment, then you can edit the first payment - so long as the the 
first payment was made from the current check number. If it was not (most likely), then 
after you delete the 2nd payment, [Edit Records] again and use the original check 
number.</p>
</body>
</html>%html%
ok_button_label = "Continue"
cancel_button_label = "Cancel"
varC_result = ui_dlg_box("Editing 2nd Payments",<<%dlg%
{Background=#212+208+200}
{startup=init}
[COLOR="Red"]
$Button {
		font:Arial,15,b;
		border-shape:SMALL-rounded;
		fill-style:Gradient Horizontal Top;
		fill-color:pale blue;
		fill-accent-color:white;
		}
	$Button:hover,$Button:focused {
		font:Arial,18,B;
		border-shape:small-rounded;
		line-style:single;
		line-width:1;
		line-color:blue;
		fill-style:Gradient horizontal;
		fill-color:light blue;
		fill-accent-color:White;}
		}
		{endstyle}   [/COLOR]
{region}
| {activex=150,10text1?.f.};
{region}:{endregion}|
{region}(whichone:Change the Payment Amt for the 2nd Payment);
(whichone:Delete the 2nd Payment);{endregion};
;
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button = "init" then 
 a_dlg_button = ""
 text1.object.browsemode = .t. 
 text1.object.appearance = 1
 text1.object.ScrollBars = .f.
 on error goto text1_error
 text1.object.documenthtml = text1_html
 on error goto 0
 text1.object.Refresh()
 a_dlg_button = ""
end if
end 
text1_error:
ui_msg_box("Error","Invalid URL or HTML content.",UI_STOP_SYMBOL)
end
%code%)

It works for me in both v8 and v9

Tom Baker

**MikeC** · 08-16-2009, 06:25 PM

Re: xdialog button color

Misread---oops! Deleted most...

Works here as modal in both versions as well. Have not tried in v8 modeless yet.

**Tbaker** · 08-16-2009, 06:32 PM

Re: xdialog button color

Mike

I was going on what Martin has posted

can't get it to work in a dialog box that is not modeless (Version 8)

I don't think I am reading it wrong, but then again these old eyes don't work well sometimes. I thought that he meant that he could only get it to work on modal dialog boxes and then had a problem with the code he posted saying that he tried it unsucessfully in that code.

Maybe I am misreading the posting - I'll go back and read it a couple of more times - maybe it will sink into my thick head.:)

Tom

**martinwcole** · 08-16-2009, 06:35 PM

Re: xdialog button color

in version 8 and 9 I used your code verbatim - didn't work - see alpha1 png

**Tbaker** · 08-16-2009, 06:38 PM

Re: xdialog button color

Martin

I left out a piece of the code

before $button

place {style}

I can see by you thumbnail that the {style} was missing.

Sorry

Tom

**Tbaker** · 08-16-2009, 06:42 PM

Re: xdialog button color

Martin

Here is the corrected code

Code:

'Date Created: 16-Aug-2009 06:11:01 PM
'Last Updated: 16-Aug-2009 06:19:03 PM
'Created By  : Tom Baker
'Updated By  : Tom Baker
'Create an XDialog dialog box to prompt for parameters.
DIM text1 as P
dim text1.object as p 
dim text1.class as c
text1.class = "dhtmledit.dhtmledit"
DIM SHARED whichone as C
DIM SHARED varC_result as C
DIM text1_html as c 
text1_html = <<%html%
<html>
<head>
<meta name="generator" content="Alpha Five HTML Editor">
<title></title>
<style>
<!--
p            { margin-top: 0; margin-bottom: 0 }
-->
</style>
</head>
<body>
<p>Where two payments have been made for a single line item 
(charge,) the original cannot be changed.&nbsp; You can <u><em>change</em></u> 
the 2nd payment amount, or <u><em>delete</em></u>             
            
 the 2nd payment. </p>
<p>&nbsp;</p>
<p>If you delete the 2nd payment, then you can edit the first payment - so long as the the 
first payment was made from the current check number. If it was not (most likely), then 
after you delete the 2nd payment, [Edit Records] again and use the original check 
number.</p>
</body>
</html>%html%
ok_button_label = "Continue"
cancel_button_label = "Cancel"
varC_result = ui_dlg_box("Editing 2nd Payments",<<%dlg%
{Background=#212+208+200}
{startup=init}
[COLOR="Red"]{style}
$Button {
		font:Arial,15,b;
		border-shape:SMALL-rounded;
		fill-style:Gradient Horizontal Top;
		fill-color:pale blue;
		fill-accent-color:white;
		}
	$Button:hover,$Button:focused {
		font:Arial,18,B;
		border-shape:small-rounded;
		line-style:single;
		line-width:1;
		line-color:blue;
		fill-style:Gradient horizontal;
		fill-color:light blue;
		fill-accent-color:White;}
		}
		$frame {
		fill-style:Gradient horizontal;
		fill-color:White;
		fill-accent-color:light Blue;
		}
	$line {
		line-style:single;
		line-width:2;
		line-color:DARK Blue;
		}
		{endstyle}   [/COLOR]
{region}
| {activex=150,10text1?.f.};
{region};{endregion}|
{region}(whichone:Change the Payment Amt for the 2nd Payment);
(whichone:Delete the 2nd Payment);{endregion};
;
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button = "init" then 
 a_dlg_button = ""
 text1.object.browsemode = .t. 
 text1.object.appearance = 1
 text1.object.ScrollBars = .f.
 on error goto text1_error
 text1.object.documenthtml = text1_html
 on error goto 0
 text1.object.Refresh()
 a_dlg_button = ""
end if
end 
text1_error:
ui_msg_box("Error","Invalid URL or HTML content.",UI_STOP_SYMBOL)
end
%code%)

Tom

**martinwcole** · 08-16-2009, 06:51 PM

Re: xdialog button color

works perfect in 9, works in 8 but doesn't change the button colors - may be because I am running in a very early version (3088) of 8 due to changes they made in later versions that caused V7 code that had worked to stop working

Announcement

The Alpha Software Forum Participation Guidelines

xdialog button color

xdialog button color

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment