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

Date: Mon, 7 Jul 1997 20:33:11 -0400

Subject: [delphi-3d] RE: delphi-3d-digest V1 #3

Hello Joe.

I get this same problem with the DirectX Workbench and another project

which I am working on which indirectly loads DirectDraw and Direct3D (cant

tell you any more about this project yet... shh.. it's a secret :).

I only get this error when booted to NT4 (service pack 3). If I boot to

95, everything is just dandy. I am pretty sure it's not a driver issue, as

I have since upgraded both my processor (PPro to PII) and my VidCard

(Matrox Mystique to Oxygen 1O2). Funny thing is, I have -no- other

problems with DirectX applications under NT. Even ones written in Delphi

(under 95, of course) run beautifully, as long as they aren't being run by

the IDE. Also, Delphi 2 did NOT cause these problems. They only recently

arose after upgrading to D3.

If you find out any more info on this problem, please let me know. It's a

real pain in the arse to have to boot to 95 everytime I want to write code

:(

- -Keith

- -----Original Message-----

Date: 07 Jul 97 16:37:03 -0400

Subject: [delphi-3d] DirectDraw and Components?

I'm trying to create a TWinControl derived component that uses DirectDraw

Surfaces. When I try to install the component (package) I get an

Initialization error from DDraw.dll. Now what initialization happens when

Delphi loads the DLL that could fail?

- - --------

- --------

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

Date: Tue, 8 Jul 1997 13:04:22 -0400

Subject: Re: [delphi-3d] RE: delphi-3d-digest V1

Keith,

<< I get this same problem with the DirectX Workbench >>

Could you give me some more details on the error? You say it happens only=

when running from the IDE. Does the app run fine from Explorer? Is this =

Delphi 3 only, i

=2Ee. does it run OK from the D2 IDE?

=

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

Date: Tue, 08 Jul 1997 19:21:47 -0400

Subject: [delphi-3d] Re: Win95 taskbar application

> Subject: [delphi-3d] Win95 taskbar application

> Hi, there

> My application needs to start up as a small icon showed on the Win95

> taskbar just near Clock area. It's just like Win95's System Agent,

> Dial-up

> network modems status, etc.

> I can't figure out how to do this, much appreciated anybody's help!

To include an icon you must:

1. Add Shellapi to your uses clause.

2. Add

Normalicon,DesIcon: Ticon;

to the private section of your Tform.

3. To add the icon to the taskbar:

const MyID=1; //used to identify your icon

procedure TForm1.FormCreate(Sender: TObject);

var

Info: TNotifyIconDAta;

begin

NormalIcon:= TIcon.Create;

//activated icon

DesIcon:= TIcon.Create;

//"inactive" icon

NormalIcon.LoadFromFile('Chemical.ico');

DesIcon.LoadFromFile('Chip.ico');

with Info do

begin

cbSize:=Sizeof(Info);

Wnd:=handle;

uID:=MyID;

uFlags:= NIF_ICON or NIF_MESSAGE or NIF_TIP;

uCallbackMessage:= WM_USER + 1;

hIcon:=NormalIcon.handle; //icon to be shown

szTip := 'Hello!'; //text to be shown (hint of the icon)

end; //while info

//we now add the icon:

Shell_NotifyIcon(NIM_ADD, @Info);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

Info: TNotifyIconDAta;

begin

with info do

begin

cbSize:=sizeof(Info);

Wnd:=handle;

uID:=MyID;

end;

Shell_NotifyIcon(NIM_DELETE, @Info);

//we delete the icon

NormalIcon.free;

DEsIcon.free;

end;

If you want to show the Inactive Icon you must:

1. Specify a handle te DesIcon in the Info Structure (info.hicon:=

DesIcon.handle; )

2. Shell_NotifyIcon(NIM_MODIFY, @info);

If you want to do something when the icon is clicked then:

Procedure TForm1.IconPress (Var Message: TMessage);

begin

if message.lparam = WM_LBUTTONDOWN then

begin

show; //for example, we show the form

SetForegroundWindow(handle);

end; //if

end;

- --------

>

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

End of delphi-3d-digest V1 #4