Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
TextBox coloring?
Message
De
22/06/2001 09:41:41
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
22/06/2001 09:19:13
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00522312
Message ID:
00522401
Vues:
12
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform