Total Commander

Alextp

Hello All,

Maybe it's not right place (TC forum), but question about plugin. I didn't visit Delphi pages some time; how to make Delphi program work under WinXP, with themes?
I.e.: I added .manifest resource to program, program uses it, but: I have run-time errors in it. Some errors in TListView, when it draws its columns... Sad

I'm using Delphi5 now, don't want to use D7.
What I need to make with D5 to run without run-time errors?
(Maybe correct VCL for D5?)

Regards,
_________________
Universal Viewer - Log Viewer - SynWrite

SanskritFritz · Posted: Thu Oct 21, 2004 1:57 am Post subject:

Google search "old programs xp look" gave those promising links:
http://www.3sware.com/addxp/pictures.html
http://www.cronosoft.com/download/xp_skins/
You may check them out, maybe threre are some hints, how to accomplish your wish.
_________________
I switched to Linux, bye and thanks for all the fish!

Alextp · Posted: Thu Oct 21, 2004 5:59 am Post subject: XP look

ghisler(Author) · Posted: Thu Oct 21, 2004 12:58 pm Post subject:

I'm using Delphi 2 for the speed and small code it creates, and I had almost no problems using the manifest file. However, I'm using a listbox, not a listview in TC. There are some bugs in the themed listbox implementation, so there may be bugs in the listview implementation too. You should try to compile the VCL yourself and then check in the debugger where the errors occur.
_________________
Author of Total Commander
http://www.ghisler.com

Alextp · Posted: Thu Oct 21, 2004 3:19 pm Post subject:

Hello Christian,
No, don't want to debug VCL.. I think there is patch to D4/D5 VCL,
on some Delphi pages...

Regards,
PS
2Fritz:
"XP skins" program(link above) just adds .manifest file to folder of my .exe Smile

And "Add XP" program don't work on my .exe.
_________________
Universal Viewer - Log Viewer - SynWrite

Alextp · Posted: Mon Oct 25, 2004 5:45 pm Post subject:

Hello All,

On Delphi pages (see here) I found this:

Dark One · Posted: Tue Dec 07, 2004 9:32 pm Post subject:

the following is an extract from torry's delphi pages. i cant give you a direct link because it's down right now...

-------------------------------

{
The TListView with a vsReport style causes an access violation
when you run your project with a XP manifest resource.

The VCL wrapper has a bug and you must patch sources.
Just copy the comctrls.pas unit in the folder with your own
project and modify the UpdateColumn method.
After compiling the project, a comctrls.dcu is created
and you can replace the original comctrls.dcu with the
patched one.

}

// ComCtrls.pas:

procedure TCustomListView.UpdateColumn(AnIndex: Integer);
{...}
with Column, Columns.Items[AnIndex] do
begin
{ PATCH start:}
// mask := LVCF_TEXT or LVCF_FMT or LVCF_IMAGE;
mask := LVCF_TEXT or LVCF_FMT;
if FImageIndex >= 0 then
mask := mask or LVCF_IMAGE;
{ PATCH :end }
{...}
end;

-------------------------

i hope this helps...