Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Add an up arrow to a Grid Header
Message
From
02/03/2000 11:36:32
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00338163
Message ID:
00340604
Views:
18
Hi David,

Thanks for the code. That is a slick way to put a graphic on top of something else.

I think for this grid the /\ and \/ will work

Thanks
>John,
>
>I use a label class that floats over the grid header. Here's the code from it's Init:
>
>
lparameter pcGridName
>
>local laFonts[1]
>
>afont( laFonts )
>with this
>   if ( ascan( laFonts, "Wingdings 3" ) > 0 )
>      .FontName = "wingdings 3"
>      .mcUp = 'p'
>      .mcDown = 'q'
>   else
>      .FontName = "wingdings"
>      .mcUp = chr(225)
>      .mcDown = chr(226)
>   endif
>   .FontBold = .t.
>   .ForeColor = ColorFactor( this.parent.BackColor, 0.5 )
>   .Caption = ""
>   .mcGridName = pcGridName
>   .MousePointer = 99
>   .MouseIcon = "down.cur"
>endwith
>
>It checks preferentially for Wingdings3 or drops back to Wingdings if it needs to.
>
>>Thanks I read the thread and I will have to just use ^ and FontBold to indicate that there is an order set for that column.
Previous
Reply
Map
View

Click here to load this message in the networking platform