Good day
I am new developer to the language, so far gained a lot of understanding. My problem is there way i can set the color for field-name as being hyperlink?
My code is as follows for my ABL form;
/*------------------------------------------------------------------------------
Purpose: Is to show how graphical user interface is displayed, using infrastics web api.
Notes:
------------------------------------------------------------------------------*/
@VisualDesigner.
METHOD PRIVATE VOID ShowMessage_Click( INPUT sender AS System.Object, INPUT e AS System.EventArgs ):
DEFINE VARIABLE nLink AS CHARACTER NO-UNDO.
DEFINE VARIABLE tLink AS CHARACTER NO-UNDO.
DEFINE VARIABLE fLink AS CHARACTER NO-UNDO.
/* DEFINE VARIABLE ultraFormattedLinkLabel1 AS CHARACTER NO-UNDO.*/
DEFINE VARIABLE vContinue AS LOGICAL NO-UNDO.
/* DEFINE VARIABLE hilite AS CHARACTER NO-UNDO.*/
/* ASSIGN ultraFormattedLinkLabel1 = nLink.*/
ASSIGN nLink = "wwtsetupaphelionsp1.msi".
tLink = "WindowsInstaller package,39.9 MB".
fLink = "cdn.worldwidetelescope.org".
MESSAGE "Do you want to run or save this file?" SKIP
"Name: " + nLink SKIP
"Type: " + tLink SKIP
"From: " + fLink SKIP
VIEW-AS ALERT-BOX BUTTONS YES-NO UPDATE vContinue.
IF vContinue THEN
nLink = "While files from the internet can be useful, this file type can potentially harm your computer.
If you don not trust the source, do not run or save this software. What's the risk?".
ELSE fLink = "".
MESSAGE nLink
VIEW-AS ALERT-BOX INFORMATION.
RETURN.
END METHOD.
The ouput only shows detail text, with no color nor hyperlink between
/*------------------------------------------------------------------------
File : WebForm
Purpose :
Syntax :
Description : This is a web form based application uses a simple web-box dialog message.
Author(s) : gmkotwana
Created : Wed Dec 06 11:45:59 CAT 2017
Notes :
----------------------------------------------------------------------*/
USING Progress.Lang.*.
USING Progress.Windows.Form.* FROM ASSEMBLY.
USING Infragistics.Win.Misc.* FROM ASSEMBLY.
USING System.Windows.Forms.TextRenderer FROM ASSEMBLY.
USING Infragistics.Win.ButtonDisplayStyle FROM ASSEMBLY.
USING System.Drawing.Color FROM ASSEMBLY.
BLOCK-LEVEL ON ERROR UNDO, THROW.
CLASS WebForm INHERITS Progress.Windows.Form:
/* Variables for controls on form */
DEFINE PRIVATE VARIABLE Appearance AS Infragistics.Win.Misc.UltraDropDownButton NO-UNDO.
DEFINE PRIVATE VARIABLE checkBox1 AS System.Windows.Forms.CheckBox NO-UNDO.
DEFINE PRIVATE VARIABLE components AS System.ComponentModel.IContainer NO-UNDO.
DEFINE PRIVATE VARIABLE nLink AS Infragistics.Win.FormattedLinkLabel.UltraFormattedLinkLabel NO-UNDO.
DEFINE PRIVATE VARIABLE radColorDialog1 AS Telerik.WinControls.RadColorDialog NO-UNDO.
DEFINE PRIVATE VARIABLE ultraLabel6 AS Infragistics.Win.Misc.UltraLabel NO-UNDO.
DEFINE PRIVATE VARIABLE ultraLabel5 AS Infragistics.Win.Misc.UltraLabel NO-UNDO.
DEFINE PRIVATE VARIABLE ultraLabel4 AS Infragistics.Win.Misc.UltraLabel NO-UNDO.
DEFINE PRIVATE VARIABLE ultraLabel3 AS Infragistics.Win.Misc.UltraLabel NO-UNDO.
DEFINE PRIVATE VARIABLE ultraLabel1 AS Infragistics.Win.Misc.UltraLabel NO-UNDO.
DEFINE PRIVATE VARIABLE ShowMessage AS Infragistics.Win.Misc.UltraButton NO-UNDO.
DEFINE PRIVATE VARIABLE ultraLabel7 AS Infragistics.Win.Misc.UltraLabel NO-UNDO.
DEFINE PRIVATE VARIABLE ultraMessageBoxManager1 AS Infragistics.Win.UltraMessageBox.UltraMessageBoxManager NO-UNDO.
DEFINE PRIVATE VARIABLE ultraTextEditor3 AS Infragistics.Win.UltraWinEditors.UltraTextEditor NO-UNDO.
DEFINE PRIVATE VARIABLE ultraTextEditor2 AS Infragistics.Win.UltraWinEditors.UltraTextEditor NO-UNDO.
DEFINE PRIVATE VARIABLE ultraTextEditor1 AS Infragistics.Win.UltraWinEditors.UltraTextEditor NO-UNDO.
DEFINE PRIVATE VARIABLE ultraTextEditor4 AS Infragistics.Win.UltraWinEditors.UltraTextEditor NO-UNDO.
CONSTRUCTOR PUBLIC WebForm ( ):
SUPER().
InitializeComponent().
THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components).
CATCH e AS Progress.Lang.Error:
UNDO, THROW e.
END CATCH.
END CONSTRUCTOR.
/*------------------------------------------------------------------------------
Purpose:
Notes:
------------------------------------------------------------------------------*/
@VisualDesigner.
METHOD PRIVATE VOID Appearance_Click( INPUT sender AS System.Object, INPUT e AS System.EventArgs ):
RETURN.
END METHOD.
/*------------------------------------------------------------------------------
Purpose:
Notes:
------------------------------------------------------------------------------*/
@VisualDesigner.
METHOD PRIVATE VOID checkBox1_CheckedChanged( INPUT sender AS System.Object, INPUT e AS System.EventArgs ):
RETURN.
END METHOD.
METHOD PRIVATE VOID InitializeComponent( ):
/* NOTE: The following method is automatically generated.
We strongly suggest that the contents of this method only be modified using the
Visual Designer to avoid any incompatible modifications.
Modifying the contents of this method using a code editor will invalidate any support for this file. */
THIS-OBJECT:components = NEW System.ComponentModel.Container().
@VisualDesigner.FormMember (NeedsInitialize="true").
DEFINE VARIABLE resources AS Progress.Util.ResourceManager NO-UNDO.
resources = NEW Progress.Util.ResourceManager("WebForm").
THIS-OBJECT:ultraMessageBoxManager1 = NEW Infragistics.Win.UltraMessageBox.UltraMessageBoxManager(THIS-OBJECT:components).
THIS-OBJECT:ShowMessage = NEW Infragistics.Win.Misc.UltraButton().
THIS-OBJECT:ultraLabel1 = NEW Infragistics.Win.Misc.UltraLabel().
THIS-OBJECT:ultraTextEditor1 = NEW Infragistics.Win.UltraWinEditors.UltraTextEditor().
THIS-OBJECT:ultraLabel3 = NEW Infragistics.Win.Misc.UltraLabel().
THIS-OBJECT:ultraLabel4 = NEW Infragistics.Win.Misc.UltraLabel().
THIS-OBJECT:ultraLabel5 = NEW Infragistics.Win.Misc.UltraLabel().
THIS-OBJECT:ultraLabel6 = NEW Infragistics.Win.Misc.UltraLabel().
THIS-OBJECT:ultraTextEditor2 = NEW Infragistics.Win.UltraWinEditors.UltraTextEditor().
THIS-OBJECT:ultraTextEditor3 = NEW Infragistics.Win.UltraWinEditors.UltraTextEditor().
THIS-OBJECT:ultraTextEditor4 = NEW Infragistics.Win.UltraWinEditors.UltraTextEditor().
THIS-OBJECT:checkBox1 = NEW System.Windows.Forms.CheckBox().
THIS-OBJECT:Appearance = NEW Infragistics.Win.Misc.UltraDropDownButton().
THIS-OBJECT:ultraLabel7 = NEW Infragistics.Win.Misc.UltraLabel().
THIS-OBJECT:nLink = NEW Infragistics.Win.FormattedLinkLabel.UltraFormattedLinkLabel().
THIS-OBJECT:radColorDialog1 = NEW Telerik.WinControls.RadColorDialog().
CAST(THIS-OBJECT:ultraTextEditor1, System.ComponentModel.ISupportInitialize):BeginInit().
CAST(THIS-OBJECT:ultraTextEditor2, System.ComponentModel.ISupportInitialize):BeginInit().
CAST(THIS-OBJECT:ultraTextEditor3, System.ComponentModel.ISupportInitialize):BeginInit().
CAST(THIS-OBJECT:ultraTextEditor4, System.ComponentModel.ISupportInitialize):BeginInit().
THIS-OBJECT:SuspendLayout().
/* */
/* ultraMessageBoxManager1 */
/* */
THIS-OBJECT:ultraMessageBoxManager1:ContainingControl = THIS-OBJECT.
/* */
/* ShowMessage */
/* */
THIS-OBJECT:ShowMessage:Location = NEW System.Drawing.Point(95, 60).
THIS-OBJECT:ShowMessage:Name = "ShowMessage".
THIS-OBJECT:ShowMessage:Size = NEW System.Drawing.Size(242, 59).
THIS-OBJECT:ShowMessage:TabIndex = 0.
THIS-OBJECT:ShowMessage:Text = "Show-MessageBox".
THIS-OBJECT:ShowMessage:Click:Subscribe(THIS-OBJECT:ShowMessage_Click).
/* */
/* ultraLabel1 */
/* */
THIS-OBJECT:ultraLabel1:Font = NEW System.Drawing.Font("Microsoft Sans Serif", Progress.Util.CastUtil:ToSingle(10.25)).
THIS-OBJECT:ultraLabel1:Location = NEW System.Drawing.Point(35, 165).
THIS-OBJECT:ultraLabel1:Margin = NEW System.Windows.Forms.Padding(3, 3, 9, 9).
THIS-OBJECT:ultraLabel1:Name = "ultraLabel1".
THIS-OBJECT:ultraLabel1:Size = NEW System.Drawing.Size(190, 20).
THIS-OBJECT:ultraLabel1:TabIndex = 1.
THIS-OBJECT:ultraLabel1:Text = "Message Box Style".
/* */
/* ultraTextEditor1 */
/* */
THIS-OBJECT:ultraTextEditor1:Location = NEW System.Drawing.Point(300, 165).
THIS-OBJECT:ultraTextEditor1:Name = "ultraTextEditor1".
THIS-OBJECT:ultraTextEditor1:Size = NEW System.Drawing.Size(153, 25).
THIS-OBJECT:ultraTextEditor1:TabIndex = 2.
THIS-OBJECT:ultraTextEditor1:Text = "Default".
/* */
/* ultraLabel3 */
/* */
THIS-OBJECT:ultraLabel3:Font = NEW System.Drawing.Font("Microsoft Sans Serif", Progress.Util.CastUtil:ToSingle(10.25)).
THIS-OBJECT:ultraLabel3:Location = NEW System.Drawing.Point(35, 231).
THIS-OBJECT:ultraLabel3:Margin = NEW System.Windows.Forms.Padding(3, 3, 9, 9).
THIS-OBJECT:ultraLabel3:Name = "ultraLabel3".
THIS-OBJECT:ultraLabel3:Size = NEW System.Drawing.Size(190, 23).
THIS-OBJECT:ultraLabel3:TabIndex = 4.
THIS-OBJECT:ultraLabel3:Text = "Message Box Buttons".
/* */
/* ultraLabel4 */
/* */
THIS-OBJECT:ultraLabel4:Font = NEW System.Drawing.Font("Microsoft Sans Serif", Progress.Util.CastUtil:ToSingle(10.25)).
THIS-OBJECT:ultraLabel4:Location = NEW System.Drawing.Point(35, 287).
THIS-OBJECT:ultraLabel4:Margin = NEW System.Windows.Forms.Padding(3, 3, 9, 9).
THIS-OBJECT:ultraLabel4:Name = "ultraLabel4".
THIS-OBJECT:ultraLabel4:Size = NEW System.Drawing.Size(205, 23).
THIS-OBJECT:ultraLabel4:TabIndex = 5.
THIS-OBJECT:ultraLabel4:Text = "Message Box Buttons Alignment".
/* */
/* ultraLabel5 */
/* */
THIS-OBJECT:ultraLabel5:Font = NEW System.Drawing.Font("Microsoft Sans Serif", Progress.Util.CastUtil:ToSingle(10.25)).
THIS-OBJECT:ultraLabel5:Location = NEW System.Drawing.Point(35, 364).
THIS-OBJECT:ultraLabel5:Margin = NEW System.Windows.Forms.Padding(3, 3, 9, 9).
THIS-OBJECT:ultraLabel5:Name = "ultraLabel5".
THIS-OBJECT:ultraLabel5:Size = NEW System.Drawing.Size(145, 37).
THIS-OBJECT:ultraLabel5:TabIndex = 6.
/* */
/* ultraLabel6 */
/* */
THIS-OBJECT:ultraLabel6:Font = NEW System.Drawing.Font("Microsoft Sans Serif", Progress.Util.CastUtil:ToSingle(10.25)).
THIS-OBJECT:ultraLabel6:Location = NEW System.Drawing.Point(35, 322).
THIS-OBJECT:ultraLabel6:Margin = NEW System.Windows.Forms.Padding(3, 3, 9, 9).
THIS-OBJECT:ultraLabel6:Name = "ultraLabel6".
THIS-OBJECT:ultraLabel6:Size = NEW System.Drawing.Size(145, 23).
THIS-OBJECT:ultraLabel6:TabIndex = 7.
THIS-OBJECT:ultraLabel6:Text = "Message Box Icons".
/* */
/* ultraTextEditor2 */
/* */
THIS-OBJECT:ultraTextEditor2:Location = NEW System.Drawing.Point(300, 231).
THIS-OBJECT:ultraTextEditor2:Name = "ultraTextEditor2".
THIS-OBJECT:ultraTextEditor2:Size = NEW System.Drawing.Size(153, 25).
THIS-OBJECT:ultraTextEditor2:TabIndex = 8.
THIS-OBJECT:ultraTextEditor2:Text = "OK".
/* */
/* ultraTextEditor3 */
/* */
THIS-OBJECT:ultraTextEditor3:Location = NEW System.Drawing.Point(300, 287).
THIS-OBJECT:ultraTextEditor3:Name = "ultraTextEditor3".
THIS-OBJECT:ultraTextEditor3:Size = NEW System.Drawing.Size(152, 25).
THIS-OBJECT:ultraTextEditor3:TabIndex = 9.
THIS-OBJECT:ultraTextEditor3:Text = "Default".
/* */
/* ultraTextEditor4 */
/* */
THIS-OBJECT:ultraTextEditor4:Location = NEW System.Drawing.Point(300, 332).
THIS-OBJECT:ultraTextEditor4:Name = "ultraTextEditor4".
THIS-OBJECT:ultraTextEditor4:Size = NEW System.Drawing.Size(152, 25).
THIS-OBJECT:ultraTextEditor4:TabIndex = 10.
THIS-OBJECT:ultraTextEditor4:Text = "Exclamation".
/* */
/* checkBox1 */
/* */
THIS-OBJECT:checkBox1:Location = NEW System.Drawing.Point(295, 378).
THIS-OBJECT:checkBox1:Margin = NEW System.Windows.Forms.Padding(3, 3, 9, 9).
THIS-OBJECT:checkBox1:Name = "checkBox1".
THIS-OBJECT:checkBox1:Size = NEW System.Drawing.Size(142, 24).
THIS-OBJECT:checkBox1:TabIndex = 11.
THIS-OBJECT:checkBox1:Text = "Show Help Button".
THIS-OBJECT:checkBox1:UseCompatibleTextRendering = TRUE.
THIS-OBJECT:checkBox1:UseVisualStyleBackColor = TRUE.
THIS-OBJECT:checkBox1:CheckedChanged:Subscribe(THIS-OBJECT:checkBox1_CheckedChanged).
/* */
/* Appearance */
/* */
THIS-OBJECT:Appearance:Font = NEW System.Drawing.Font("Microsoft Sans Serif", Progress.Util.CastUtil:ToSingle(10.25)).
THIS-OBJECT:Appearance:Location = NEW System.Drawing.Point(639, 64).
THIS-OBJECT:Appearance:Margin = NEW System.Windows.Forms.Padding(3, 3, 9, 9).
THIS-OBJECT:Appearance:Name = "Appearance".
THIS-OBJECT:Appearance:Size = NEW System.Drawing.Size(220, 23).
THIS-OBJECT:Appearance:TabIndex = 12.
THIS-OBJECT:Appearance:Text = "Appearance".
THIS-OBJECT:Appearance:Click:Subscribe(THIS-OBJECT:Appearance_Click).
/* */
/* ultraLabel7 */
/* */
THIS-OBJECT:ultraLabel7:Location = NEW System.Drawing.Point(535, 139).
THIS-OBJECT:ultraLabel7:Margin = NEW System.Windows.Forms.Padding(3, 3, 9, 9).
THIS-OBJECT:ultraLabel7:Name = "ultraLabel7".
THIS-OBJECT:ultraLabel7:Size = NEW System.Drawing.Size(303, 26).
THIS-OBJECT:ultraLabel7:TabIndex = 14.
THIS-OBJECT:ultraLabel7:Text = "Set Appearance for the Message Box".
/* */
/* nLink */
/* */
THIS-OBJECT:nLink:Location = NEW System.Drawing.Point(0, 0).
THIS-OBJECT:nLink:Name = "nLink".
THIS-OBJECT:nLink:Size = NEW System.Drawing.Size(130, 23).
THIS-OBJECT:nLink:TabIndex = 0.
THIS-OBJECT:nLink:TabStop = TRUE.
THIS-OBJECT:nLink:Value = ?.
/* */
/* radColorDialog1 */
/* */
THIS-OBJECT:radColorDialog1:Icon = CAST(resources:GetObject("radColorDialog1.Icon"), System.Drawing.Icon).
THIS-OBJECT:radColorDialog1:RightToLeft = System.Windows.Forms.RightToLeft:No.
THIS-OBJECT:radColorDialog1:SelectedColor = System.Drawing.Color:Red.
THIS-OBJECT:radColorDialog1:SelectedHslColor = Telerik.WinControls.HslColor:FromAhsl(Progress.Util.CastUtil:ToDouble("0"), Progress.Util.CastUtil:ToDouble("1"), Progress.Util.CastUtil:ToDouble("1")).
/* */
/* WebForm */
/* */
THIS-OBJECT:BackColor = System.Drawing.SystemColors:ControlDark.
THIS-OBJECT:ClientSize = NEW System.Drawing.Size(886, 485).
THIS-OBJECT:Controls:Add(THIS-OBJECT:nLink).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraLabel7).
THIS-OBJECT:Controls:Add(THIS-OBJECT:Appearance).
THIS-OBJECT:Controls:Add(THIS-OBJECT:checkBox1).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraTextEditor4).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraTextEditor3).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraTextEditor2).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraLabel6).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraLabel5).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraLabel4).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraLabel3).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraTextEditor1).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ultraLabel1).
THIS-OBJECT:Controls:Add(THIS-OBJECT:ShowMessage).
THIS-OBJECT:Font = NEW System.Drawing.Font("Microsoft Sans Serif", Progress.Util.CastUtil:ToSingle(10.25)).
THIS-OBJECT:ForeColor = System.Drawing.SystemColors:GrayText.
THIS-OBJECT:Name = "WebForm".
THIS-OBJECT:Text = "WebForm".
CAST(THIS-OBJECT:ultraTextEditor1, System.ComponentModel.ISupportInitialize):EndInit().
CAST(THIS-OBJECT:ultraTextEditor2, System.ComponentModel.ISupportInitialize):EndInit().
CAST(THIS-OBJECT:ultraTextEditor3, System.ComponentModel.ISupportInitialize):EndInit().
CAST(THIS-OBJECT:ultraTextEditor4, System.ComponentModel.ISupportInitialize):EndInit().
THIS-OBJECT:ResumeLayout(FALSE).
THIS-OBJECT:PerformLayout().
CATCH e AS Progress.Lang.Error:
UNDO, THROW e.
END CATCH.
END METHOD.
/*------------------------------------------------------------------------------
Purpose: Is to show how graphical user interface is displayed, using infrastics web api.
Notes:
------------------------------------------------------------------------------*/
@VisualDesigner.
METHOD PRIVATE VOID ShowMessage_Click( INPUT sender AS System.Object, INPUT e AS System.EventArgs ):
DEFINE VARIABLE nLink AS CHARACTER NO-UNDO.
DEFINE VARIABLE tLink AS CHARACTER NO-UNDO.
DEFINE VARIABLE fLink AS CHARACTER NO-UNDO.
/* DEFINE VARIABLE ultraFormattedLinkLabel1 AS CHARACTER NO-UNDO.*/
DEFINE VARIABLE vContinue AS LOGICAL NO-UNDO.
/* DEFINE VARIABLE hilite AS CHARACTER NO-UNDO.*/
/* ASSIGN ultraFormattedLinkLabel1 = nLink.*/
ASSIGN nLink = "wwtsetupaphelionsp1.msi".
tLink = "WindowsInstaller package,39.9 MB".
fLink = "cdn.worldwidetelescope.org".
MESSAGE "Do you want to run or save this file?" SKIP
"Name: " + nLink SKIP
"Type: " + tLink SKIP
"From: " + fLink SKIP
VIEW-AS ALERT-BOX BUTTONS YES-NO UPDATE vContinue.
IF vContinue THEN
nLink = "While files from the internet can be useful, this file type can potentially harm your computer.
If you don not trust the source, do not run or save this software. What's the risk?".
ELSE fLink = "".
MESSAGE nLink
VIEW-AS ALERT-BOX INFORMATION.
RETURN.
END METHOD.
DESTRUCTOR PUBLIC WebForm ( ):
END DESTRUCTOR.
METHOD PRIVATE CHARACTER GetString():
DEFINE VARIABLE lultraTextEditor AS CHARACTER NO-UNDO.
END METHOD.
END CLASS.
as my variable names. As i want them to be showed as color text all of them. Help will be highly appreciated and feedback thanks.
Not quite sure what it is you are after. If you want to display text like a hyperlink, then - at least in the UIB - your only option is to show a fill-in with the 'view-as text' option and decorate it like a hyperlink (blue, with underline). Then add a trigger to open the url, like this
Not quite sure what it is you are after. If you want to display text like a hyperlink, then - at least in the UIB - your only option is to show a fill-in with the 'view-as text' option and decorate it like a hyperlink (blue, with underline). Then add a trigger to open the url, like this
Hi
Thanks from progress form, must i declare those properties values? Meaning must i state the color and hyperlink from the form its self. Please share your ideas here, thanks.