"Snapped" form resize like in Delphi 7 Object Inspector

[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.

[User137]

I don't understand why you need to count that in the first place. When you have a tilemap, you should already know how many rows and columns it has. I'll take a guess it's 31x32 because that makes 992 And yes, 992 div 31 = 32, or 992 div 32 = 31, working in both ways. The problem with rendering does certainly not come down to this math, but other code error.

[hwnd]

Thanks. You are right.

I just had to initialize colcount / rowcount.

And remove that, because its useless now:

kgrid1.ColCount:=992 div kgrid1.rowCount

It works fine. I still have few things to make, but its too late atm, gtg to sleep.
And yesterday i also added a "nice feature" that moves scrollbars away from tiles.
Otherwise the grid scrollbars would hide some of the tiles. But i just made the form bigger, by getting scrollbar width/height from windows and passing it to my code.
I later will show it.

Btw just one more question:
I have currently dynamic 2D array, called tilesheet of integers, i set its length according to numcols and numrows. And then i do:

KGrid1.CellPainter.Canvas.Draw(R.Left, R.Top, sty.getTile( TileSheet[ARow , ACol ]));

sty.getTile just waits for the tile_id (integer).

Is it possible to draw all these tiles (992) without that "tilesheet" array?