I'm using LMD2004 and can't, for the life of me, get a gradient background working on a TLMDEdit control. I also could not get Transparent Property working. It always only seems to draw the background based on the Color Property.
I'm wondering what I am doing wrong.
Here are all the properties that were set in the form for the control:
NOTE: on the form, in ObjectInspector, the Gradient Endcolor is showing up as ClBlack, even though I don't see it showing up in the form when displayed as text.
object LMDEdit1: TLMDEdit
Left = 178
Top = 344
Width = 419
Height = 137
BackFX.AlphaBlend.Strength = 1.000000000000000000
BackFX.AlphaBlend.FillObject.Style = sfGradient
BackFX.AlphaBlend.FillObject.Gradient.Color = clSilver
BackFX.AlphaBlend.FillObject.Gradient.ColorCount = 236
BackFX.AlphaBlend.FillObject.Gradient.PaletteRealize = True
BackFX.AlphaBlend.FillObject.TileMode = tmNone
BackFX.AlphaBlend.FillObject.Brush.Color = clMoneyGreen
BackFX.AlphaBlend.FillObject.Options = [foFillInner, foQuickDraw]
BackFX.Buffered = True
Bevel.StyleOuter = bvFrameRaised
Bevel.BorderColor = clGradientActiveCaption
Bevel.EdgeStyle = etRaised
Bevel.LightColor = clSilver
Bevel.Mode = bmEdge
Bevel.ShadowColor = clGray
Bevel.StandardStyle = lsNone
Caret.BlinkRate = 530
Color = clBlack
Ctl3D = False
CtlXP = False
ParentCtl3D = False
TabOrder = 7
Font.Charset = ANSI_CHARSET
Font.Color = clTeal
Font.Height = -20
Font.Name = 'Verdana'
Font.Style = []
Font3D.Style = tdExtrude
ParentFont = False
CustomButtons = <>
CustomButtonsStyle = ubsOfficeTransp
PasswordChar = #0
Text = 'Testing, testing, one, two three, four'
end
Thanks,
JY
Comments