Full skin / Resizable bsNone

[pixelink]

I had a similar issue... no custom form shape though.

I got what I was trying to do fixed... try this thread

CREDIT TO GEMMEM
http://forum.lazarus.freepascal.org/index.php/topic,33899.0.html

[mudah]

Still struggling I'm afraid...

I've tried adding the SetMouseDown event to the OnMouseDown event for my invisible shapes I have around the edges of my form but when that procedure is called I get an External SIGSEGV from the line:

Code: Pascal  [Select][+][-]

1.   anchor_g.Left   := AForm.Left;

right at the start of that procedure.

I'm obviously doing something very wrong.

- I've added uResize to the first uses clause in my main form's unit.
- I've added invisible shapes to the top, left, right and bottom of my main form.
- I've added the same OnMouseDown event to each of those invisible shapes.

I'm guessing I'm missing something here...

-FM

Copy uresize.pas and uresize.lfm into you project folder. Add uResize in the uses claus. Then add this line to your project *.lpr file

Code: Pascal  [Select][+][-]

1. begin
2. ....
3. Application.CreateForm(TResizeForm, ResizeForm); //<---- This
4. Application.Run;
5. end.
6.  

The error will gone.