Resize region at runtime

[George]

Hi, dear CG

I discovered, that region may be moved at run time (drag and drop).
(unfortunately, "left" and "top" property does not updates).
pascal code

procedure TIWForm1.IWCGJQRegion1JQDragOptionsStop(Sender: TObject; AParams: TStringList);
begin
  IWCGJQLabel1.Caption := IWCGJQRegion1.Left.ToString();
end;

Maybe you can add resize options like: Disabled, toLeft, toRight etc.. ?
Or may be you have any advices. At this moment, i'm think about implementing some JS and CSS from jQUERY UI demo.
I want make interactive widgets based on regions with custom user positions and sizes.

[Jorge Sousa]

Hi dear George

All cgdevtools controls have JQResizeOptions, at least public property, not always published.

I just don't find toLeft, toRight maybe this is JQPositionOptions?

Other common properties:

property JQDragOptions: TIWCGJQDragOptions read GetJQDragOptions write SetJQDragOptions stored IsJQDragOptionsStored;
property JQDropOptions: TIWCGJQDropOptions read GetJQDropOptions write SetJQDropOptions stored IsJQDropOptionsStored;
property JQResizeOptions: TIWCGJQResizeOptions read GetJQResizeOptions write SetJQResizeOptions stored IsJQResizeOptionsStored;
property JQEffects: TIWCGJQEffects read GetJQEffects write SetJQEffects stored IsJQEffectsStored;
property JQPositionOptions: TIWCGJQPositionOptions read GetJQPositionOptions write SetJQPositionOptions stored IsJQPositionOptionsStored;

Best Regards

[George]

JQResizeOptions is exactly what I need.

I just don't find toLeft, toRight maybe this is JQPositionOptions?

No, i mean allowed resize directions. I suppose, i can control this through IWCGJQRegion3.JQResizeOptions.Handles.

[George]

(unfortunately, "left" and "top" property does not updates).

Found way to get correct values
pascal code

procedure TwForm1.SetDragOptions();
begin
  wRegion1.JQDragOptions.Disabled := False;
  wRegion1.JQDragOptions.OnStop.OnEvent := wRegion1JQDragOptionsStop;
  wRegion1.JQDragOptions.OnStop.BrowserParams.Add;
  wRegion1.JQDragOptions.OnStop.BrowserParams.Items[0].ServerName := 'wRegion1';
  wRegion1.JQDragOptions.OnStop.BrowserParams.Items[0].SendJSon := True;
  wRegion1.JQDragOptions.OnStop.BrowserParams.Items[0].BrowserScript :=
  //Definitely this is not best JQ code. But conception is visible.
  '{Left: $("#WREGION1").css("left"), Top: $("#WREGION1").css("top"), ' +
  'Height: $("#WREGION1").css("height"), Width: $("#WREGION1").css("width")}';
end;

procedure TwForm1.wRegion1JQDragOptionsStop(Sender: TObject; AParams: TStringList);
var
  wRegionJsonObj: ISuperObject;
  cssVal : string;
begin
  CGCallBackDisableAjaxResponse();
  try
     wRegionJsonObj := SO(AParams.Values['wRegion1']);
     cssVal := wRegionJsonObj.S['Left'];
     wRegion1.Left := copy(cssVal, 1, cssVal.Length - 2 {delete "px"}).ToInteger;
     cssVal := wRegionJsonObj.S['Top'];
     wRegion1.Top := copy(cssVal, 1, cssVal.Length - 2 {delete "px"}).ToInteger;
     cssVal := wRegionJsonObj.S['Width'];
     wRegion1.Width := copy(cssVal, 1, cssVal.Length - 2 {delete "px"}).ToInteger + 2 {borders};
     cssVal := wRegionJsonObj.S['Height'];
     wRegion1.Height := copy(cssVal, 1, cssVal.Length - 2 {delete "px"}).ToInteger + 2 {borders};
  finally
    CGCallBackEnableAjaxResponse();
  end;
end;

[George]

Hi!

Do you have you plans, to add JQResizeOptions ajax code? (for regions)
I've got message like that:
<Ajax event "JQResizeOptions.OnStop" not found>.

delphi code

wRegion.JQResizeOptions.Disabled := false;
wRegion.JQResizeOptions.OnStop.OnEvent := wRegion1JQResizeOptionsStop;

[Jorge Sousa]

Hello

Nice code

That's because JQResizeOptions is not published

We will publish that property, no warm will be done

Regards

[George]

Ok.

Another thing with same direction:
IWCGJQDialogEx.JQDialogOptions.OnResize.Arguments have two arguments: "event, ui".
In IWCGJQDialogEx OnResize ajax event works.

So i set IWCGJQDialogEx.JQDialogOptions.OnResize.SendAllArguments := true to send ui object data to the server.
"ui" and "event" came to server as simple string without any usefull data ('ui=[object Object]', nil).
This is the correct behavior? And this is best place to send client size parameters

[Jorge Sousa]

Hi

SendAllArguments = True, by default, doesn't send in json format, that's the reason for the text '[object Object]'

to send in json format you must use a BrowserParam specifically

Regards

[George]

When i write browser param script, i haven't context of the js object? (IWCGJQDialogEx for example)
Browser param script executes with global page context?
(i ask, because i want send UI object without dom traversing)

Yes, i have context
So i can simply write as browser script "ui".

[Jorge Sousa]

Hi

what you mean by context of the js object?

Regards