Code: Select all
/'
'/
type IimageVars extends object
declare virtual destructor
declare abstract property pixels() as any ptr
as integer w, h, bypp, pitch
protected:
declare constructor
End Type
constructor IimageVars
end constructor
destructor IimageVars
end destructor
/'
'/
type IImage extends IimageVars
declare property pixels() as any ptr
as any ptr m_pixels
end type
property IImage.pixels() as any ptr
return m_pixels
end property
/'
'/
type IScreen extends IimageVars
declare abstract property page( as integer )
declare abstract property pages( as integer )
declare abstract property flags( as integer )
declare abstract property rate( as integer )
declare property pixels() as any ptr
as integer m_flags, m_pages, m_rate
as string m_driver_name
as integer m_page
as any ptr m_pixels(any)
end type
property IScreen.pixels() as any ptr
return m_pixels(m_page)
end property