Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
TextBox coloring?
Message
From
22/06/2001 09:41:41
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
22/06/2001 09:19:13
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00522312
Message ID:
00522401
Views:
11
>That would be a bug. However, we can take a different look at this. Windows UI Guidelines recommend "Documentcentric" applications. Word and Excel are examples of this. Open a new document or spreadsheet and it's available for editing. For a database application this means that when you open a form, the fields are available for editing. You don't press another "Edit" button.
>
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
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform