"Snapped" form resize like in Delphi 7 Object Inspector

[hwnd]

Ok, found a way but after each "snap" it has some offset more and more.
Make new project, drop a drawgrid to it, set its DefaultRowHeight to 64, DefaultColWidth to 64. No fixedcols or rows.
Add this to private section of Form1:

procedure WMWindowPosChanging (var Msg: TWMWindowPosMsg); message WM_WINDOWPOSCHANGING;

And this in implementation:

procedure TForm1.WMWindowPosChanging(var Msg: TWMWindowPosChanging);
begin
    if (Msg.WindowPos^.flags and SWP_NOSIZE = 0) and ((Msg.WindowPos^.cx <> Width)
        or (Msg.WindowPos^.cy <> Height))
  then
        begin
          Msg.WindowPos^.cx:=(Msg.WindowPos^.cx div 70)*70;
      Msg.WindowPos^.cy:=(Msg.WindowPos^.cy div 70)*70;
        end;
end;

Resize the form..

The less columns or rows then the bigger offset gets.
Maybe scollbars and grid line width is making troubles here, dunno.

Any ideas?

EDIT: Found another solution:
https://groups.google.com/forum/#!to...pi/39tMGvqXjog

I used ValueListEditor and if i set the INC_SIZE to DefaultRowHeight of the ValueListEditor, then there is no offset problem.
But it still shows the small portion of item below the current last visible row.
If i change the INC_SIZE to smaller or bigger i get the offset bug right away after resizing.

[SilverWarior]

WOW!
When I look at the code examples you tried all of them seem much more complicated that one I will present you.

So here is my example which is much easier and works perfectly. It uses Forms OnCanResize notification event.

procedure TForm3.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var HorizontalBorderWidth: Integer;
    VerticalBorderWidth: Integer;
    X,Y: Integer;
      //Constants defining row anbd column dimensions
const ColumnWidth = 20;
      RowHeight = 20;
begin
    //Calculate number of pixels used for left and right Form border
    //We use this to calculate needed horizontal Form size to get certain Form ClientWidth
    HorizontalBorderWidth := Width - ClientWidth;
    NewWidth := ((NewWidth div ColumnWidth) * ColumnWidth) + HorizontalBorderWidth;
    //Calculate number of pixels used for top and bottom Form border
    //We use this to calculate needed vertivcal Form size to get certain Form ClientHeight
    VerticalBorderHeight := Height - ClientHeight;
    NewHeight := ((NewHeight div RowHeight) * RowHeight) + VerticalBorderHeight;
    //Draw a rid for easier referencing of Form size
    for X := 0 to 100 do
    begin
        Form3.Canvas.MoveTo(X*ColumnWidth,0);
        Form3.Canvas.LineTo(X*ColumnWidth,2000);
    end;
    for Y := 0 to 100 do
    begin
        Form3.Canvas.MoveTo(0,Y*RowHeight);
        Form3.Canvas.LineTo(2000,Y*RowHeight);
    end;
end;

If you want your Form to be resized in a way so that some Panel on your Form would have suitable size for showing only whole rows and columns you only need to change the way how HorizontalBorderWidth and VerticalBorderHeight are calculated.

HorizontalBorderWidth := Width - Panel.ClientWidth;
VerticalBorderHeight := Height - Panel.ClientHeight;

This code should probably work in any version of Delphi and Lazarus.

[hwnd]

Thanks you for this!
You forgot to declare VerticalBorderHeight.

But why the bottom part flickers so much? The right side seems ok, but bottom part is flickering.
The form wants to resize but it cant and flickers.

Even if i set doublebuffered to true and comment out the grid drawing.

EDIT
I downloaded some old free open source Delphi Object Inspector "clone" for Delphi 3 and it had the snapping in it.

Drop a DrawGrid on form, set fixedcols,fixedrows to 0, defaultcolwidth to 64, defaultrowheight to 64. Thats the tilesize i use.
And set Align of DrawGrid1 to alClient.

// Add this to private section of Form1
Procedure WhileSizing(Var msg : tmessage);  Message WM_SIZING;


procedure TForm1.WhileSizing(var msg: tmessage);

var PR : PRect;                              { Makes it so there's never half }
     Offset, offset2 : Integer;                        { a row showing in the listbox. }
     Growing : Boolean;
     Top, left : Boolean;
     Lb :tdrawgrid;
Begin
 Lb := DrawGrid1;
  if not (msg.wparam in [wmsz_top, wmsz_topleft, wmsz_topright,
                         wmsz_bottom, wmsz_bottomleft, wmsz_bottomright]) then exit;
  pr := Pointer(msg.Lparam);
  if (pr.bottom - pr.top) = height then exit;
  msg.result:= 1;

  OffSet := ((pr.bottom - pr.top) - (height - Lb.clientheight)) mod lb.DefaultRowHeight;
  Growing := (pr.bottom - pr.top) > height;
  top := msg.wparam in [wmsz_top, wmsz_topleft, wmsz_topright];
  //left := msg.WParam in [wmsz_bottom, wmsz_bottomleft, wmsz_bottomright ];

  if top then Begin
    if growing then
      pr.top := pr.top + offset
    else
      pr.top := pr.top - (lb.DefaultRowHeight  - offset);
  End Else Begin
    if Growing then
      pr.bottom := pr.Bottom - offset
    else
      pr.bottom := pr.bottom + (lb.DefaultRowHeight  - offset);
  End;

end;

It works the way i need, but i must make this work for right side also.
If anybody would like to help with this, then please.

Atm im watching and reading that code, because i dont understand everything in it.
If i would know i would convert it by myself.

I probably have to take piece of paper and pencil and calculate everything on that until i get it. Then i should be able to convert it to left and right side resizing.

[SilverWarior]

You forgot to declare VerticalBorderHeight.

Actually I just forget to change VerticalBorderWidth to VerticalBorderHeight in variable declaration.
This can happen when you are corceting the spelling mistakes on forum and not in Delphi

But why the bottom part flickers so much? The right side seems ok, but bottom part is flickering.
The form wants to resize but it cant and flickers.

That is strange. I havent encountered any flickering when testing.
Are you maybe handling Windows messages as showed in other examples at the same time? That could be the cause. I can't think of any other reason for flickering.

[hwnd]

Oh, sorry, forgot to update the ColumnWidth and ColumnHeight variables. One had 64 and another 20.
I will try the drawgrid now.
Like in example above, i dont want half rows or half columns, only full rows and full columns.


i will try to make it.
If i cant,i will let you know.
EDIT: your grid itself works fine. it has 64x64 cells and form snaps to them.

Dunno how the drawgrid thingy will work.

[SilverWarior]

It should work OK.
You might only need to figure out the size of the DrawGrid component border.

[hwnd]

Everything looks almost perfect, now i need a bit help with some math.
I have 992 tiles, tiles are all 64x64 pixels, and lets say i have grid on form which has 12 columns and 8 rows visible.

12 * 8 = 96 tiles are currently visible.

How can i calculate how many columns (and rows) are needed for the rest of the tiles?
I mean calculate the needed rows / columns for all of the tiles by also counting in current col- and rowcount?

Whats the proper math?

I tried something like:

kgrid1.ColCount:=992 div kgrid1.rowCount;

But it doesnt work very well. Last tiles are not drawn sometimes and sometimes they are.

Column count can change and same with row count. Because user can resize grid (actually the form).


Thanks for any tip.