Article View: borland.public.delphi.language.objectpascal
Article #63Re: Loading Stock Bitmaps - but where are the WinXP images?
From: David
Date: Sun, 25 Jan 2004 15:31
Date: Sun, 25 Jan 2004 15:31
33 lines
1991 bytes
1991 bytes
Thanks Jim for the info. It works - but not how I expected. The image it loads is not the Close 'X' image I see on an ordinary window but 2 small 'thunbnails' of a simple forms! Going through the other OBM_ constants, they all seem to be the old Win 98 type style. I can't find any of the images that are actually used in my Win XP theme. David. "Jim Kueneman" <jimdk@mindspring00.com> wrote: > > >Hi, > >> I am trying to load one of the Stock bitmaps - the close 'X' in the >> top left corner of a window - into a bitmap. I have found some >> examples of how to do it for VB but can't get it to work on Delphi. >> VB uses the LoadBitmapBynum API call but the few clues I have found >> in Delphi indicate that the .LoadFromResourceID method is the way to >> go. But I can't get either way to work. Does anyone have any pointers >> to what I should be doing? > >Try this: > >var > bits: TBitmap; >begin > Bits := TBitmap.Create; > Bits.Handle := LoadBitmap(0, PChar(OBM_CLOSE)); > ... > >-- >Jim > >Posted with XanaNews 1.15.8.4
Technical Details
Message-ID:
<4013ef78$1@newsgroups.borland.com>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.tpinternet.pl!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mailReferences:
<4013b559$1@newsgroups.borland.com> <4013ec47@newsgroups.borland.com>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 109d30,565e38e074acddf5 X-Google-Attributes: gid109d30,public X-Google-ArrivalTime: 2004-01-25 08:39:40 PST From: "David" <dwilbourn@hotmail.com> Sender: "David" <dwilbourn@hotmail.com> Reply-To: "David" <dwilbourn@hotmail.com> Subject: Re: Loading Stock Bitmaps - but where are the WinXP images? Newsgroups: borland.public.delphi.language.objectpascal X-User-Info: 195.241.151.244 References: <4013b559$1@newsgroups.borland.com> <4013ec47@newsgroups.borland.com> NNTP-Posting-Host: 207.105.83.66 Message-ID: <4013ef78$1@newsgroups.borland.com> Date: 25 Jan 2004 08:31:52 -0700 X-Trace: newsgroups.borland.com 1075048312 207.105.83.66 (25 Jan 2004 08:31:52 -0700) Lines: 34 Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.tpinternet.pl!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail