Windows Small System Icon Height Incorrect -


i'm running on windows 10, using delphi 7 (yes, know it's quite old).

i want use system icons in windows , have gone defining timagelist called systemicons initialize follows:

var   fileinfo: tshfileinfo;  begin   systemicons.handle := shgetfileinfo('', 0, fileinfo, sizeof(fileinfo),     shgfi_icon or shgfi_smallicon or shgfi_sysiconindex);  ...

i have systemicons properties set statically timagelist component width , height set 16.

elsewhere, wish retrieve icon image list given valid shell object's image index. because these "small system icons", expect them 16x16. result of calling getsystemmetrics(sm_cysmicon) yields 16. oddly, dimensions depend upon whether retrieve them bitmap or icon.

... var   icon: ticon;   bm: tbitmap;  begin   ...   icon := ticon.create;   systemicons.geticon(imgindex, icon);    bm := tbitmap.create;   systemicons.getbitmap(imgindex, bm);

the imgindex correct , same in both cases. image retrieved same in each case, expected. dimensions of bitmap (bm.width , bm.height) expected: 16x16. however, dimensions of icon (icon.width , icon.height) not. 32x32.

when paint icon on canvas appears 16x16. it's height , width values appear incorrect. odd.

why these different?

the images 32x32 begin with.

internally, timagelist.geticon() retrieves hicon chosen image directly underlying win32 imagelist api, using imagelist_geticon(), , assigns ticon.handle property.

timagelist.getbitmap(), on other hand, bit different. sizes tbitmap dimensions of timagelist (16x16), , stretch draws chosen image onto tbitmap.canvas using timagelist.draw(), in turn uses imagelist_drawex().


Comments

Post a Comment

Popular posts from this blog

javascript - WinJS appendTextAsync producing scheduler errors -

im trying implement logger in uwp app (windows 10) following code in both this , this answers. i'm afraid in both cases end getting scheduler ( winjs.utilities.scheduler ) errors @ random times (couldn't establish pattern). main problem the application freezes sometimes , suspect due log implementation because final line reads transitioning job (1) from: running to: blocked when happens. i messages like transitioning job (1) from: blocked_waiting to: cooperative_yield transitioning job (1) from: cooperative_yield to: scheduled in middle of execution, varying states. initialization method this.init = function () { let logger = new winjs.promise(function (complete) { let = new date(); let logfilename = `log-${now.getdate()}-${now.getmonth() + 1}-${now.getfullyear()}.log`; localfolder .createfolderasync("logs", windows.storage.creationcollisionoption.openifexists) .then(fun...
Read more

minify - Minimizing css files -

i want know how css files can minimized. currently, using external sites css minifier compress css files. however, after removing whitespaces, comments, etc, file sizes reduced 10-15%. how frameworks bootstrap manage make minimized versions kilobytes. as example, css is: body { background-color: #ff0; } the reduction goes 28 bytes 22 bytes other css files have lot more characters still smaller this. actually minifying code means it's remove thing code white space characters new line characters comments block delimiters it reduces amount of code has transferred on web , speed site load fastly.but unreadable format.
Read more

Sockets with kotlin -

i looking develop application in kotlin uses sockets, unfortunately kotlinx sockets broken , not far connect current kotlin 1.1 co-routines. (i see noted unanswered issue on github @sundwarf on july 16 already) specifically, sample code kotlinx.sockets uses connect in form: asocket().tcp().connect(inetsocketaddress(inetaddress.getbyname("google.com"), 80)) which fails noted trace here . i looking either sample of connect work, or recommendation of alternate package kotlix.sockets. there many kotlin apps making use of sockets, either there alternatives kotlinx.sockets or there way around connect problem.
Read more