[release] Iabout

[Hobbes]

I know many people have made Panther style about boxes but few of them

if any, are really 1:1. I thought I'd have a go at it myself.

It was made strait from a real Panther About Box Screenie Suplied by

Concept from AquaXP.

Here you go :

Download Here :

Link

[B3nd1k]

Ahh, this is quite nice actually

I suggest that you make the form moveable. As it is now, I cant move it, and there is also a black outline on it.

But as you said, i think this is pretty much 1:1

[Hobbes]

I can remove the black line if you like but I can't make it movable.

Well, I coud but it would make the titlebar fullsize like on regular

windows.

[castroman]

I will try it, it's look good for now, nice app.

thanks a lot ifido.

/aviel

[Blade]

ASPack 2.12 ? wtf??

[Hobbes]

Hahahaha :6 :naughty: No touchy !

[NilColor]

Originally posted by ifido@Jun 30 2004, 08:32 PM

I can remove the black line if you like but I can't make it movable.

Well, I coud but it would make the titlebar fullsize like on regular

windows.

<{POST_SNAPBACK}>

If you can post a sources than maybe somebody can make it movable and still with such titlebar... Is it VB or something else?

Delphi sample:

Move a form using client area

private
  procedure WMNCHitTest( var M: TWMNCHitTest ); message wm_NCCHitTest;
end;

var  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1. WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited;
  if m.result = htClient then m.result := htCaption;
end;

You can check for PointInRegion (is pointer within "title") and set result := htCaption