Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Shorter Code...
Message
From
10/06/1998 05:10:05
Mark Hall
Independent Developer & Voip Specialist
Keston, Kent, United Kingdom
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00106623
Message ID:
00106624
Views:
37
>What is the shortes code for this (optimized).
>
>WITH This.MyGrid
> .Column1.Width = 40
> .Column1.Backcolor = RGB(255,255,0)
> .Column2.Width = 40
> .Column2.Backcolor = RGB(255,255,0)
> .Column3.Width = 40
> .Column3.Backcolor = RGB(255,255,0)
> .Column4.Width = 40
> .Column4.Backcolor = RGB(255,255,0)
> .Column5.Width = 40
> .Column5.Backcolor = RGB(255,255,0)
> .Column6.Width = 40
> .Column6.Backcolor = RGB(255,255,0)
> .Column7.Width = 40
> .Column7.Backcolor = RGB(255,255,0)
> .Column8.Width = 40
> .Column8.Backcolor = RGB(255,255,0)
> .Column9.Width = 40
> .Column9.Backcolor = RGB(255,255,0)
> .Column10.Width = 40
> .Column10.Backcolor = RGB(255,255,0)
>ENDWITH
>
>TIA

Hi, you should use the SetAll method, so:

This.MyGrid.SetAll("BackColor", RGB(255, 255, 0), "Column")
This.MyGrid.SetAll("Width", 40, "Column")
Regards
Mark

Microsoft VFP MCP
Menulib - OO Menus for VFP www.hidb.com/menulib
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform