;; Example of Standard image viewing ONLY! V1.10 (17/08/1999); (C) Robert Hutchinson 1999!; Satanic Dreams Software 1999! [Loki^SD];; Feel free to use this example any way you like ;);; Please email me with any bug reports or changes please:;; loki@sds.in2home.co.uk;; This can be used as an example of forcing the use of Standard; images even when there is both data within the icon object.;; Requirements:;; o NewIconsBlitz installed correctly (see docs); o The NIB_Single_Include.BB2 include (provided); o newicon.library (V40 preferably!) / icon.library (V39+);Ï 0ÿµ€ "/NIBIncludes/NIB_Include.BB2" ;--- Check our libraries ; € NIBCheckLibs{}=¼ Ý‚ "Incorrect or non-present newicon.library/icon.library!" € €À ;--- Load files ; € NIBOpenIcon{0,"YAM:YAM"} = ¼ €! badicon=1 € NIBOpenIcon{1,"YAM:Changes"} = ¼ €! badicon=1 € badicon=1 Ý‚ "Cant load file(s)!" € €À ;--- Check the loaded data.. ; imgs0.b=STDCheckStruct{0} imgs1.b=STDCheckStruct{1} € imgs0=0 €Š imgs1=0 NIBFreeIcon{0} NIBFreeIcon{1} Ý‚ "No Standard data!" € €À ;--- Remap the chunky data to the images... ; STDToImages{0} STDToImages{1} ;--- Find the largest height... ; DefHeight1.w=STDFindHeight{0} DefHeight2.w=STDFindHeight{1} € DefHeight1>DefHeight2 NewDef=DefHeight1 €" NewDef=DefHeight2 €À ;--- Find the widths.... ; DefWidth1.w=STDFindWidth{0} DefWidth2.w=STDFindWidth{1} ;--- Our window.... ; Å 0,50,50,((DefWidth1+DefWidth2)+13),(NewDef*2)+13,$1000,"",0,1 Ò ;--- Draw our images... ; By this point we KNOW we have the data to draw, so no error ; check required. ; succ.b=STDDrawImage{0,#NIB_NORMAL ,0,5,5} succ.b=STDDrawImage{0,#NIB_SELECTED,0,5,NewDef+8} succ.b=STDDrawImage{1,#NIB_NORMAL ,0,DefWidth1+8,5} succ.b=STDDrawImage{1,#NIB_SELECTED,0,DefWidth1+8,NewDef+8} ;--- Wait for the mouse button hit ; € ;--- Free the icons... ; NIBFreeIcon{0} NIBFreeIcon{1} ;--- Free the window.. ; Å< 0€