[futurebasic] Smooth expansion of window

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : March 2006 : Group Archive : Group : All Groups

From: Yoshiyuki Hasegawa <hase44@...>
Date: Tue, 21 Mar 2006 02:57:35 +0900
Hi everyone.

How is a smooth expansion/reduction/movement of the window done?

Regards.
Yoshiyuki

My code today
-----------------
local fn Window1
dim as Rect r

setRect(r, 400, 400, 800, 700)
appearance window -1, "Window1", @r, _kDocumentWindowClass

SetRect(r, 280, 260, 380, 280)
button 1,_activeBtn,"Expansion", @r,_push

appearance window 1
end fn

local fn Expansion
dim as pointer WndPtr

WndPtr = window(_wndRef )
MoveWindow (WndPtr,350,300,0)
SizeWindow (WndPtr,500,500,0)
end fn

local fn DoDialog
dim as long   evnt, id
evnt  = dialog ( 0 )
id    = dialog ( evnt )
select evnt
case _btnClick
select id
case 1
fn Expansion
end select
end select
end fn

fn Window1

on dialog fn DoDialog

do
HANDLEEVENTS
until gFBQuit
------------------