https://dataflex.wiki/api.php?action=feedcontributions&feedformat=atom&user=Bjorn.thunvik 2026-05-02T22:40:46Z User contributions MediaWiki 1.43.8 https://dataflex.wiki/index.php?title=Add_icons_with_subset_of_images_to_CodeJock_CommandBars&diff=1883 2008-04-24T09:26:06Z

<p>Bjorn.thunvik: New page: How to add icons with subset of images to CodeJock CommandBars. If you add an icon with a subset of images to the CodeJock Commandbars, it will use the first icon in the set and in most ...</p> <hr /> <div>How to add icons with subset of images to CodeJock CommandBars.<br /> <br /> If you add an icon with a subset of images to the CodeJock Commandbars, it <br /> will use the first icon in the set and in most cases it will look awful.<br /> <br /> This function will use a different approach and use CodeJock's imagelist to load the icon.<br /> The result is that the appropriate icon in the set will be used instead of the first.<br /> The drawback is that the icon files must be in the path, embedding the images in the exe-file is not enough.<br /> <br /> Just add the function below to your project (below &quot;Use cCJCommandBarSystem.pkg&quot; or such).<br /> <br /> <br /> Function AddImageType for cCJCommandBarSystem Boolean bIsIcon String sImage Integer iId Integer eImageType Returns Integer<br /> Handle hBitmap<br /> Variant vImageManager<br /> Handle hoImageIcons<br /> Integer iVoid eType <br /> Boolean bOk<br /> String sImageName<br /> <br /> Move sImage to sImageName<br /> <br /> If (iId=0) Begin<br /> Get piLastImageId to iId<br /> Increment iId<br /> Set piLastImageId to iId<br /> End<br /> <br /> Move (If(bIsIcon,IMAGE_ICON,IMAGE_BITMAP)) to eType<br /> <br /> Move (LoadImage(GetModuleHandle(0), sImage, eType, 0, 0, 0)) to hBitmap<br /> If (hBitmap =0) Begin // the bitmap was not in the EXE resource<br /> Get_File_Path sImage to sImage // find path in DFPATH, if appropriate<br /> If (sImage &lt;&gt;&quot;&quot;) Begin // The image was found!<br /> Move (LoadImage(0, sImage, eType, 0, 0, LR_LOADFROMFILE)) to hBitmap<br /> End<br /> End<br /> <br /> If hBitmap Begin<br /> // if a bitmap it appears we must add this via an image manager<br /> If (not(bIsIcon)) Begin<br /> Get Create U_cCJImageManagerIcons to hoImageIcons<br /> Get ComIcons to vImageManager<br /> Set pvComObject of hoImageIcons to vImageManager<br /> Send ComAddBitmap of hoImageIcons hBitmap iId eImageType False<br /> Send destroy of hoImageIcons<br /> End<br /> Else Begin<br /> // First check if we can find the icon file.<br /> // Loading from file works much better with subset of icons<br /> Get_File_Path sImageName to sImageName // find path in DFPATH, if appropriate<br /> If (sImageName &lt;&gt;&quot;&quot;) Begin // The image was found!<br /> Get Create U_cCJImageManagerIcons to hoImageIcons<br /> Get ComIcons to vImageManager<br /> Set pvComObject of hoImageIcons to vImageManager<br /> Send ComLoadIcon of hoImageIcons sImageName iId eImageType <br /> Send destroy of hoImageIcons<br /> End<br /> // We where not able to find the file, use original code.<br /> Else Begin<br /> // this works with alpha blends - even when passed false<br /> Send ComAddIconHandle hBitmap iId eImageType False<br /> End<br /> End<br /> Move (DeleteObject(hBitmap)) to iVoid<br /> End<br /> Function_Return (If(hBitmap&lt;&gt;0,iId,0))<br /> End_Function</div>

Bjorn.thunvik