Q5/ws_objects/Ew_filemanage.pbl.src/uo_fileview.sru

$PBExportHeader$uo_fileview.sru
forward
global type uo_fileview from userobject
end type
end forward

global type uo_fileview from userobject
integer width = 1650
integer height = 1296
string text = "none"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
end type
global uo_fileview uo_fileview

type variables
Long ii_ScreenWidth = 3600
long ii_ScreenHeight = 2300

blob cur_data

string cur_filename = ''

boolean originalsize = false


end variables

forward prototypes
public function integer of_showfile (blob arg_data, string arg_filename, ref string arg_msg)
public subroutine of_set_originalsize (boolean arg_iforiginal)
public subroutine of_setfilesize ()
end prototypes

public function integer of_showfile (blob arg_data, string arg_filename, ref string arg_msg);return 1
end function

public subroutine of_set_originalsize (boolean arg_iforiginal);originalsize = arg_iforiginal
of_setfilesize()
end subroutine

public subroutine of_setfilesize ();
end subroutine

on uo_fileview.create
end on

on uo_fileview.destroy
end on

event constructor;environment   env
GetEnvironment(env)
ii_ScreenWidth = env.ScreenWidth
ii_ScreenHeight = env.ScreenHeight
ii_ScreenWidth = PixelsToUnits(ii_ScreenWidth, XPixelsToUnits!)
ii_ScreenHeight = PixelsToUnits(ii_ScreenHeight, XPixelsToUnits!)
end event