Show Dots

[Silvio]

When I show dots for a get or say class I wish show circles dots and not windows black dots
Someone Know How change showdots method from control.prg ?

[sambomb]

Try: Chr(144) I hope it can help you

[Silvio]

sorry but perhaps YOU not Understand what I am talking

[Rochinha]

Show Us! put an image sample.

[Silvio]

I wish make it :



I made a Box class but I have



Some can help me ?



[/img]

[Rochinha]

Try BRUSH in CheckDots method:

Code: Select all  Expand view

METHOD CheckDots() CLASS TControl
...
   DEFINE CURSOR oSizeNWSE SIZENWSE
   DEFINE CURSOR oSizeNESW SIZENESW
   DEFINE CURSOR oSizeNS   SIZENS
   DEFINE CURSOR oSizeWE   SIZEWE

   DEFINE BRUSH oDotBrush FILENAME "dot.bmp"

   DEFINE WINDOW oDot1 OF oWndParent;
      STYLE nOr( WS_CHILD, WS_CLIPSIBLINGS );
      FROM 0, 0 TO 2, 2 PIXEL ;
      COLOR "N/N" ;
      CURSOR oSizeNWSE BRUSH oDotBrush

   DEFINE WINDOW oDot2 OF oWndParent;
      STYLE nOr( WS_CHILD, WS_CLIPSIBLINGS ) ;
      FROM 0, 0 TO 2, 2 PIXEL ;
      COLOR "N/N" ;
      CURSOR oSizeNS BRUSH oDotBrush
...


[Silvio]

you have try it ?