Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
TextBox coloring?
Message
From
22/06/2001 09:57:55
 
 
To
22/06/2001 09:41:41
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00522312
Message ID:
00522411
Views:
11
This is fixed in VFP7.

>Certainly it's a bug if SDI is something you can use. Have fun with textbox and grid coloring w/o a single line of code intending it :)
>
>
use employee
>oForm=createobject('backcolorbug')
>oForm.Show
>Read events
>
>Define CLASS backcolorbug AS form
>  Top = 0
>  Left = 0
>  Height = 296
>  Width = 558
>  ShowWindow = 2
>  DoCreate = .T.
>  Caption = "Form1"
>  Name = "Form1"
>  Add OBJECT grid1 AS grid WITH ;
>    Height = 200, Left = 36, TabIndex = 3, Top = 12, ;
>    Width = 320, Name = "Grid1"
>
>  Add OBJECT shape1 AS shape WITH ;
>    Top = 12, Left = 36, Height = 201, Width = 24, BackStyle = 0, ;
>    BorderStyle = 0, BackColor = RGB(0,255,0), Name = "Shape1"
>
>  Add OBJECT text1 AS textbox WITH ;
>    Left =  24, TabIndex = 4, Top = 264, Name = "Text1"
>
>  Add OBJECT text2 AS textbox WITH ;
>    Left = 156, TabIndex = 1, Top = 264, Name = "Text2"
>
>  Add OBJECT text3 AS textbox WITH ;
>    Left = 288, TabIndex = 5, Top = 264, Name = "Text3"
>
>  Add OBJECT text4 AS textbox WITH ;
>    Left = 420, TabIndex = 2, Top = 264, Name = "Text4"
>
>  Add OBJECT command1 AS commandbutton WITH ;
>    Top = 204, Left = 372, Height = 27, Width = 84, ;
>    Caption = "Command1", Name = "Command1"
>
>  Procedure command1.Click
>  Thisform.Setall('Enabled',!thisform.text1.Enabled, 'Textbox')
>Endproc
>
>  Procedure QueryUnLoad
>  Clear events
>Endproc
>Enddefine
>
Cetin
Craig Berntson
MCSD, Microsoft .Net MVP, Grape City Community Influencer
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform