Form VL_SAM025: Bitmap Display for Extended Form Initialization
Name: VL_SAM025
Description: The following RDMLX form displays a bitmap during extended form initialization. It cannot be used as a standalone form. This form can only present a single bitmap once during form initialization and it should not be used for other purposes.
Use this form in conjunction with form VL_SAM026.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM FORMPOSITION(ScreenCenter) FORMSTYLE(StayOnTop) FRAMESTYLE(None) HEIGHT(221) LEFT(365) TITLEBARVISIBLE(False) TOP(161) WIDTH(313);
DEFINE_COM CLASS(#PRIM_IMGE) NAME(#IMAGE) DISPLAYPOSITION(1) HEIGHT(188) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(1) TOP(0) VISUALSTYLE(#VS_PANEL) VISUALSTYLEOFPARENT(False) WIDTH(301);
Define #FileName *Char Length(100);
Define #Height RefFld(#Std_Num);
Define #Width RefFld(#Std_Num);
MthRoutine uShowImage ;
Define_Map for(*Input) class(#Std_Text) Name(#uFileName);
use tconcat (*part_dir_source #uFileName.Value) (#FileName);
set #image filename(#FileName) ;
Change #Height #image.ImageHeight;
Change #Width #image.ImageWidth;
If '(#Height > 0) *and (#Width > 0)';
Set #Image Height(#Height) Width(#Width);
Set #Com_Owner Height(#Height) Width(#Width);
Endif ;
Invoke #Com_Owner.ShowForm;
EndRoutine ;
MthRoutine uFinished;
Invoke #Com_Owner.CloseForm;
EndRoutine ;
END_COM ;
Name: VL_SAM025
Description: The following RDMLX form displays a bitmap during extended form initialization. It cannot be used as a standalone form. This form can only present a single bitmap once during form initialization and it should not be used for other purposes.
Use this form in conjunction with form VL_SAM026.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM FORMPOSITION(ScreenCenter) FORMSTYLE(StayOnTop) FRAMESTYLE(None) HEIGHT(221) LEFT(365) TITLEBARVISIBLE(False) TOP(161) WIDTH(313);
DEFINE_COM CLASS(#PRIM_IMGE) NAME(#IMAGE) DISPLAYPOSITION(1) HEIGHT(188) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(1) TOP(0) VISUALSTYLE(#VS_PANEL) VISUALSTYLEOFPARENT(False) WIDTH(301);
Define #FileName *Char Length(100);
Define #Height RefFld(#Std_Num);
Define #Width RefFld(#Std_Num);
MthRoutine uShowImage ;
Define_Map for(*Input) class(#Std_Text) Name(#uFileName);
use tconcat (*part_dir_source #uFileName.Value) (#FileName);
set #image filename(#FileName) ;
Change #Height #image.ImageHeight;
Change #Width #image.ImageWidth;
If '(#Height > 0) *and (#Width > 0)';
Set #Image Height(#Height) Width(#Width);
Set #Com_Owner Height(#Height) Width(#Width);
Endif ;
Invoke #Com_Owner.ShowForm;
EndRoutine ;
MthRoutine uFinished;
Invoke #Com_Owner.CloseForm;
EndRoutine ;
END_COM ;