🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.delphi.language.objectpascal
Article #63

Re: Loading Stock Bitmaps - but where are the WinXP images?

#63
From: David
Date: Sun, 25 Jan 2004 15:31
33 lines
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-mail
References: <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