Es posible q no funcionen correctamente las clausulas box, raised y shadow en la clase TSay ?
- Code: Select all Expand view RUN
#include "FiveWin.ch"
function Main()
local oDlg, oSay, oCursor
DEFINE CURSOR oCursor HAND
DEFINE DIALOG oDlg FROM 0,0 TO 20,40
@ 1, 2 SAY oSay PROMPT "Left" SIZE 100, 20 COLOR CLR_RED
@ 2, 2 SAY oSay PROMPT "Right" RIGHT SIZE 100, 20 COLOR CLR_RED
@ 3, 2 SAY oSay PROMPT "Center" CENTER SIZE 100, 20 COLOR CLR_RED
@ 4, 2 SAY oSay PROMPT "Box" BOX SIZE 100, 20 COLOR CLR_RED
@ 5, 2 SAY oSay PROMPT "Raised" RAISED SIZE 100, 20 COLOR CLR_RED
@ 6, 2 SAY oSay PROMPT "Shadow" SHADOW SIZE 100, 20 COLOR CLR_RED
ACTIVATE DIALOG oDlg CENTERED
return nil
