RB and XpThemes withXP look&Feel

rbuser

Hello,

for Delphi6 ther is a small unit available from JrSoftware, wich allowes the
use of the new XPthemes and the Look&Feel fromXP. Its a small XML-Resource
which has to be inserted at the beginning of the projectfile.
Souce: http://www.jrsoftware.org/misc.htm
Ok, now my only problem:

In DADE wher i could configure the datasources, filter and conditions, i
click on the glass (for conditions) to set some boolean expressions. The
comboboxes normaly will be inserted if i click in the place where they
should appear. But under XP with XPthemes nothing happens. I had to click in
the fieldname on the left side of the line and then, with mouse hold down,
to the place where the combos are inserted. Then i could use it. Perhaps you
could have a look on that, because the small unit with XPThemes support is
pretty good and only one line of codechange is needed.

chris

digitalmetaphors

What line change was needed?


Cheers,

Jim Bennett
Digital Metaphors

rbuser

Hello jim.

in the asterix is the original readme, its one line in ComCtrls Vcl

2 problems in RB with XpThemes:
1) Cklciing in DADE Conditon aeray does not appear ComboBoxes
2) To Delete one Field in the Fieldtyb via doubleclick does make nothing.
It seems that RB uses some othe events or whatever so that XpThemes des not
work.
If you could find out whats to do, it would be absolutly cool.
I had it runnng 2 Weeks in all apllications and not found any problems.
You can download XpThemes at: www.jrsoftware.org/misc.htm

chris

**************************
This unit enables support for Windows XP visual styles in Delphi
applications.


To use
======

In your project's .dpr file, add XPTheme to the top of the "uses" list.


Notes
=====

- If you use TListView in vsReport mode, you will need to make a change to
your VCL sources, or else you'll get access violations. Copy ComCtrls.pas
to your project's directory (or some other directory in your Search Path
that has precedence over delphi\source\vcl) and change these two lines:

if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES;

to:

if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES
else
mask := mask and not LVCF_IMAGE;

- If you use TStatusBar, the size grip part may get corrupted when you
resize
the form at run-time. You can work around this by creating an OnResize
event handler on the TStatusBar with this code:

procedure TForm1.StatusBar1Resize(Sender: TObject);
begin
if StatusBar1.HandleAllocated then
InvalidateRect(StatusBar1.Handle, nil, True);
end;

- For more information, see:

http://msdn.microsoft.com/library/en-us/shellcc/platform/commctls/userex/ove
rview/cookbook.asp

**************************