EpiShape text Blank Title 73532

Yahoo Archive
1
Ed, here are some notes. Let me know if you need more.

To set the caption: YourEpiShape.EnabledCaption = "Your Caption"

There are two code snippets below. The 2nd shows the EnabledCaption
property.


Vic



========================================


Looking at the code for the EpiShape you don't set the colors directly,
rather you set the "Status" Property in code.





The four StatusTypes are:



StatusTypes.Warning

StatusTypes.Global

StatusTypes.OK

StatusTypes.Stop



shpEpiCustom1.Status = StatusTypes.Warning





The following code snippet from the EpiShape control shows which colors
are associated with a particular status:



switch(status)

{

case StatusTypes.Warning:

color1 = Color.Yellow;

color2 = Color.LightYellow;

enabledTextColor = Color.Black;

break;

case StatusTypes.Global:

color1 = Color.MediumBlue;

color2 = Color.LightBlue;

enabledTextColor = Color.LightBlue;

break;

case StatusTypes.OK:

color1 = Color.Green;

color2 = Color.LightGreen;

enabledTextColor = Color.LightGreen;

break;

case StatusTypes.Stop:

color1 = Color.Red;

color2 = Color.MistyRose;

enabledTextColor = Color.AntiqueWhite;

break;





===========================================

Private Sub edvPart_EpiViewNotification(view As EpiDataView, args As
EpiNotifyArgs) Handles edvPart.EpiViewNotification

'// ** Argument Properties and Uses **

'//
view.dataView(args.Row)("[FieldName]")

'// args.Row, args.Column, args.Sender,
args.NotifyType

'// NotifyType.Initialize,
NotifyType.AddRow, NotifyType.DeleteRow, NotifyType.InitLastView,
NotifyType.InitAndResetTreeNodes

If (args.Row = -1) Then

Exit Sub

Else

If (edvPart.dataview(edvPart.Row)("CheckBox01") = True) Then

shpCommercialRelease.Enabled = True

shpCommercialRelease.Status = StatusTypes.Ok

shpCommercialRelease.EnabledCaption = "Commercially
Released"

Else

shpCommercialRelease.Enabled = True

shpCommercialRelease.Status = StatusTypes.Stop

shpCommercialRelease.EnabledCaption = "Not Commercially
Released"

End If

End If

End Sub
2
I am trying to add text on an Epishape and the Tools manual says you
can enter text to display in the shape, but it is not readily apparent
how to get the text to display. Has anyone gotten this to work, and if
so, mind sharing how to do it?
Thanks,
Ed