Core Function FontDialog - Revision history

UberFoX: 1 revision

2015-06-14T12:37:03Z

1 revision

← Older revision

Revision as of 12:37, 14 June 2015

UberFoX: 1 revision

2014-08-11T21:40:50Z

1 revision

← Older revision

Revision as of 21:40, 11 August 2014

UberFoX: /* Example */

2013-10-16T01:07:37Z

Example

← Older revision		Revision as of 01:07, 16 October 2013
Line 44:		Line 44:
	if($Strikeout) $Flags \|= @fontStrikeout;		if($Strikeout) $Flags \|= @fontStrikeout;
	if($Underline) $Flags \|= @FontUnderline;		if($Underline) $Flags \|= @FontUnderline;
−	$NewFont = ~~GUICreateFont~~($Name, $Size, $Flags);	+	$NewFont = GUICreate("Font", $Name, $Size, $Flags);
	// Example of setting this font to a GUI control		// Example of setting this font to a GUI control
	//GUISetProp($mObj, "Font", $NewFont);		//GUISetProp($mObj, "Font", $NewFont);
Line 72:		Line 72:
	if($Strikeout) $Flags \|= @fontStrikeout;		if($Strikeout) $Flags \|= @fontStrikeout;
	if($Underline) $Flags \|= @FontUnderline;		if($Underline) $Flags \|= @FontUnderline;
−	$NewFont = ~~GUICreateFont~~($Name, $Size, $Flags);	+	$NewFont = GUICreate("Font", $Name, $Size, $Flags);
	// Example of setting this font to a GUI control		// Example of setting this font to a GUI control
	//GUISetProp($mObj, "Font", $NewFont);		//GUISetProp($mObj, "Font", $NewFont);

UberFoX: /* Return Value */

2013-10-15T09:45:36Z

Return Value

← Older revision		Revision as of 09:45, 15 October 2013
Line 17:		Line 17:
	Success: Returns array with details.		Success: Returns array with details.

−	Failure: Returns ~~empty array~~.	+	Failure: Returns null (the user pressing cancel also returns null).

	=== Remarks ===		=== Remarks ===

UberFoX: /* Example */

2011-12-11T19:39:20Z

Example

← Older revision		Revision as of 19:39, 11 December 2011
Line 32:		Line 32:
	// Display font information		// Display font information
	print( "Name '$Name' \n" .		print( "Name '$Name' \n" .
−	"Size '$Size' \n" .	+	"Size '$Size' \n" .
−	"Bold '" . ($Bold ? "TRUE" : "FALSE") . "' \n" .	+	"Bold '" . ($Bold ? "TRUE" : "FALSE") . "' \n" .
−	"Italic '" . ($Italic ? "TRUE" : "FALSE") . "' \n" .	+	"Italic '" . ($Italic ? "TRUE" : "FALSE") . "' \n" .
−	"Strikeout '" . ($Strikeout ? "TRUE" : "FALSE") . "' \n" .	+	"Strikeout '" . ($Strikeout ? "TRUE" : "FALSE") . "' \n" .
−	"Underline '" . ($Underline ? "TRUE" : "FALSE") . "' \n"	+	"Underline '" . ($Underline ? "TRUE" : "FALSE") . "' \n"
−	);	+	);
	// Create a new GUI font using this information		// Create a new GUI font using this information
	my $Flags = 0;		my $Flags = 0;
Line 60:		Line 60:
	// Display font information		// Display font information
	print( "Name '$Name' \n" .		print( "Name '$Name' \n" .
−	"Size '$Size' \n" .	+	"Size '$Size' \n" .
−	"Bold '" . ($Bold ? "TRUE" : "FALSE") . "' \n" .	+	"Bold '" . ($Bold ? "TRUE" : "FALSE") . "' \n" .
−	"Italic '" . ($Italic ? "TRUE" : "FALSE") . "' \n" .	+	"Italic '" . ($Italic ? "TRUE" : "FALSE") . "' \n" .
−	"Strikeout '" . ($Strikeout ? "TRUE" : "FALSE") . "' \n" .	+	"Strikeout '" . ($Strikeout ? "TRUE" : "FALSE") . "' \n" .
−	"Underline '" . ($Underline ? "TRUE" : "FALSE") . "' \n"	+	"Underline '" . ($Underline ? "TRUE" : "FALSE") . "' \n"
−	);	+	);
	// Create a new GUI font using this information		// Create a new GUI font using this information
	my $Flags = 0;		my $Flags = 0;

UberFoX: Created page with "

 FontDialog(  )

=== Description === Allows the user to select a font and allows you to get the Name, size, bold etc values. === Parameters === ==== Font ===..."

2011-12-11T19:38:13Z

Created page with "<pre> FontDialog( <font> ) </pre> === Description === Allows the user to select a font and allows you to get the Name, size, bold etc values. === Parameters === ==== Font ===..."

New page

<pre>
FontDialog( <font> )
</pre>

=== Description ===

Allows the user to select a font and allows you to get the Name, size, bold etc values.

=== Parameters ===

==== Font ====

Optional; A font to use as the default font see examples.

=== Return Value ===

Success: Returns array with details.

Failure: Returns empty array.

=== Remarks ===

=== Example ===

Select a font print its details and optionally place it on a control

<syntaxhighlight lang="sputnik">
my $Value = FontDialog();
if($Value)
{
my List ( $Name, $Size, $Bold, $Italic, $Strikeout, $Underline ) = $Value;
// Display font information
print( "Name '$Name' \n" .
"Size '$Size' \n" .
"Bold '" . ($Bold ? "TRUE" : "FALSE") . "' \n" .
"Italic '" . ($Italic ? "TRUE" : "FALSE") . "' \n" .
"Strikeout '" . ($Strikeout ? "TRUE" : "FALSE") . "' \n" .
"Underline '" . ($Underline ? "TRUE" : "FALSE") . "' \n"
);
// Create a new GUI font using this information
my $Flags = 0;
if($Bold) $Flags |= @fontBold;
if($Italic) $Flags |= @fontItalic;
if($Strikeout) $Flags |= @fontStrikeout;
if($Underline) $Flags |= @FontUnderline;
$NewFont = GUICreateFont($Name, $Size, $Flags);
// Example of setting this font to a GUI control
//GUISetProp($mObj, "Font", $NewFont);
}
</syntaxhighlight>

Same as before but this time set the DEFAULT font of the font dialog to be same as a controls font

<syntaxhighlight lang="sputnik">
// Set your control here and the font in the dialog will use its font as default
my $Value = FontDialog(GUIGetProp($mObj, "Font"));
if($Value)
{
my List ( $Name, $Size, $Bold, $Italic, $Strikeout, $Underline ) = $Value;
// Display font information
print( "Name '$Name' \n" .
"Size '$Size' \n" .
"Bold '" . ($Bold ? "TRUE" : "FALSE") . "' \n" .
"Italic '" . ($Italic ? "TRUE" : "FALSE") . "' \n" .
"Strikeout '" . ($Strikeout ? "TRUE" : "FALSE") . "' \n" .
"Underline '" . ($Underline ? "TRUE" : "FALSE") . "' \n"
);
// Create a new GUI font using this information
my $Flags = 0;
if($Bold) $Flags |= @fontBold;
if($Italic) $Flags |= @fontItalic;
if($Strikeout) $Flags |= @fontStrikeout;
if($Underline) $Flags |= @FontUnderline;
$NewFont = GUICreateFont($Name, $Size, $Flags);
// Example of setting this font to a GUI control
//GUISetProp($mObj, "Font", $NewFont);
}
</syntaxhighlight>
[[Category:Core Function]]