FiveTech Software tech support forums

Bueno efectivamente buscando en los PRG fuentes halle lo que quería; es el metodo SetPos( nPos ) [quote] DEFINE DIALOG oWndPlan OF oVent TITLE "Calendario " FROM 5, 5 TO 21.6, 96.705 @ 117.3,0 SCROLLBAR oScroll HORIZONTAL OF oWndPlan ON UP PreviousYear() ON DOWN NextYear() PIXEL SIZE ...

Tengo el siguiente código donde ubico un scrollbar horizontal: DEFINE DIALOG oWndPlan OF oVent TITLE "Calendario " FROM 5, 5 TO 21.6, 96.705 @ 117.3,0 SCROLLBAR HORIZONTAL OF oWndPlan ON UP PreviousYear() ON DOWN NextYear() PIXEL SIZE 363,9 ; PAGESTEP 10 RANGE ...

Otto,

>
What is local aInfo := oWndPlan:DispBegin()
exactly doing?
>

"Double buffer" painting, to avoid "flickering" on re-painting.

... had a mistake in naming the variables. X was y and vice versa. I changed the code. Please lets go ahead with this. Carles: What is local aInfo := oWndPlan:DispBegin() exactly doing? Regards, Otto PS: Could you please send me your email addresses. I would like to share my snipkeeper code with you, ...

... had a mistake in naming the variables. X was y and vice versa. I changed the code. Please lets go ahead with this. Carles: What is local aInfo := oWndPlan:DispBegin() exactly doing? Regards, Otto PS: Could you please send me your email addresses. I would like to share my snipkeeper code with you, ...

... way that the selected days shine through. I use Fillrect for painting the chart. hBru := CreateSolidBrush( RGB(217,230,246) ) FillRect( oWndPlan:hDc, { 30-18+ (18*(ITemp)) ,buchstart, 30 +(18*(ITemp)), sXTemp}, hBru ) Thanks in advance Otto http://www.atzwanger.com/fw/pickdate.jpg

... //sdOffsetDate = Startdatum für grafischen Z immerplan cChartCaption := "<" + cChartCaption else cChartCaption := cChartCaption endif while oWndPlan:GetWidth(text,::planFont) < nDurationPX n = n + 1 text := padr( (cChartCaption) ,n) end Thank you for your help. Regards, Otto

... Keep in mind that the planer is open 24 hours a day. I use oWnd:Say(). As say does not let you pass the length I do something like this while oWndPlan:GetWidth(text,::planFont) < nDurationPX n = n + 1 text := padr( (cChartCaption) ,n) end n = n - 1 IF n=0 text := "<" ENDIF oWndPlan:say( ...

Jeff, if you define the Window with DEFINE WINDOW oWndPlan TITLE "Kalender" ; HSCROLL ; FROM 5, 5 TO 24, 98 you have the scrollbar. Then you can use these methods: oWindPlan:oHScroll():SetRange(1,oWindPlan:nHorzRes()) oWindPlan:oHScroll():SetPos(oWindPlan:nHorzRes()/2) ...

... with false but the argument is not respected. After the first use of transparent the rest is transparent although the argument is set to false. oWndPlan:Say( 150, 50, "TEST1", 8421504 ,"B",oLbxFont,.t.,.f.)<------ oWndPlan:Say( 200, 50, "TEST2", 8421504 ,"B",oLbxFont,.t.,.t.)<------ oWndPlan:Say( ...

... the on paint but sometimes I would like to stop this behavior. For example the tooltip executes a on paint. Best regards, Otto ACTIVATE WINDOW oWndPlan MAXIMIZED; ON PAINT (ziplan:=.F., MiPaint(ZZ,hdatum,A,Monat,hOben,nAnzeige) ); http://www.atzwanger.com/fw/clip1.jpg