🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: Loading Stock Bitmaps

#62
From: Jim Kueneman
Date: Sun, 25 Jan 2004 15:18
25 lines
1581 bytes

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: <4013ec47@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!fu-berlin.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail
References: <4013b559$1@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: "Jim Kueneman" <jimdk@mindspring00.com>
Subject: Re: Loading Stock Bitmaps
Newsgroups: borland.public.delphi.language.objectpascal
References:  <4013b559$1@newsgroups.borland.com>
User-Agent: XanaNews/1.15.8.4
X-Face: &6|{tr6T.bG<v8P:Rz%`-^6ZlXR&"@ceTxRI.Iz!l5Dq8zx3W,uMhEBX*SC4Fm]3kIYHnn_
 "<a7~Y/keqG/3uQ+WH$rU7.?g9NWQd@\`sl5(r@kM{$l"-~Uxd0z{2_a;/)py5(8kJFEG@E<mth`V#
 So4$ocU=s-?45*PU2@ScFQy%.1)7ARb=2QH$[sN.=
NNTP-Posting-Host: 67.0.61.178
Message-ID: <4013ec47@newsgroups.borland.com>
Date: 25 Jan 2004 08:18:15 -0700
X-Trace: newsgroups.borland.com 1075047495 67.0.61.178 (25 Jan 2004 08:18:15 -0700)
Lines: 25
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!fu-berlin.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail