🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

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

#65
From: Jim Kueneman
Date: Sun, 25 Jan 2004 16:54
23 lines
1930 bytes
Hi,

> 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.

Yup, to play with XP you have to use the Theme API.  With D7 look at
the Themes and UxTheme units. For D4-6 look at Mike Lischkes Theme
Manager (That is what the D7 units actually are, Mikes Theme Manager)

Look at the WINDOW control and the WP_CLOSEBUTTON with the
CBS_DISABLED, CBS_HOT, CBS_NORMAL, and CBS_PUSHED states.

Mike has encapaulated the drawing of the different parts in the
Themes.pas file with the ThemeServices class.

-- 
Jim

Posted with XanaNews 1.15.8.4
Technical Details
Message-ID: <401402c1@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail
References: <4013b559$1@newsgroups.borland.com> <4013ec47@newsgroups.borland.com> <4013ef78$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 10:09:41 PST
From: "Jim Kueneman" <jimdk@mindspring00.com>
Subject: Re: Loading Stock Bitmaps - but where are the WinXP images?
Newsgroups: borland.public.delphi.language.objectpascal
References: <4013b559$1@newsgroups.borland.com> <4013ec47@newsgroups.borland.com> <4013ef78$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.51.27
Message-ID: <401402c1@newsgroups.borland.com>
Date: 25 Jan 2004 09:54:09 -0700
X-Trace: newsgroups.borland.com 1075053249 67.0.51.27 (25 Jan 2004 09:54:09 -0700)
Lines: 23
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail