the WMGetMinMaxInfo Not supported
lazarus / 31-LCL

----------------------------------------------------------------------
dtamadeEx · 2018-09-17 05:52

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i   TForm1 =
class(TForm)  private    { private declarations }        procedure
WMGetMinMaxInfo(var aMessage: TWMGetMinMaxInfo); message
WM_GetMinMaxInfo;   public    { public declarations }  end;
  procedure TForm1.WMGetMinMaxInfo(var aMessage:
TWMGetMinMaxInfo);begin  // No execution ... 
aMessage.MinMaxInfo^.ptMinTrackSize.X := 400;  aMessage.Result := 0; 
inherited;end;

----------------------------------------------------------------------
balazsszekely · 2018-09-17 09:12

Try something like this:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
windows; var  PrevWndProc: WNDPROC; function WndCallback(AHWND: HWND;
uMsg: UINT; wParam: WParam; lParam: LParam): LRESULT; stdcall;begin 
case uMsg of    WM_GETMINMAXINFO:    begin     
PMinMaxInfo(LParam)^.ptMaxSize.x := 400;     
PMinMaxInfo(LParam)^.ptMaxSize.y := 400;      Result :=
CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam, lparam);      Exit; 
 end;{    WM_OtherStuffHere    begin     end;}  end;  Result :=
CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam,
LParam);end; procedure TForm1.FormCreate(Sender: TObject);begin 
PrevWndProc := Windows.WNDPROC(SetWindowLongPtr(Self.Handle,
GWL_WNDPROC, PtrInt(@WndCallback)));end;

----------------------------------------------------------------------
dtamadeEx · 2018-09-17 09:49

Quote from: GetMem on September 17, 2018, 11:12:47 amTry something
like this:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
windows; var  PrevWndProc: WNDPROC; function WndCallback(AHWND: HWND;
uMsg: UINT; wParam: WParam; lParam: LParam): LRESULT; stdcall;begin 
case uMsg of    WM_GETMINMAXINFO:    begin     
PMinMaxInfo(LParam)^.ptMaxSize.x := 400;     
PMinMaxInfo(LParam)^.ptMaxSize.y := 400;      Result :=
CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam, lparam);      Exit; 
 end;{    WM_OtherStuffHere    begin     end;}  end;  Result :=
CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam,
LParam);end; procedure TForm1.FormCreate(Sender: TObject);begin 
PrevWndProc := Windows.WNDPROC(SetWindowLongPtr(Self.Handle,
GWL_WNDPROC, PtrInt(@WndCallback)));end;
thank you!