[SOLVED] Form resize
lazarus / 31-LCL

----------------------------------------------------------------------
Pe3s · 2021-11-01 21:20

Hello, I set the border style on bsNone, I put the TPanel component.
The problem arises when scaling the TPanel form becomes transparent
for a while. How can I fix it ?
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 procedure
TForm1.FormCreate(Sender: TObject);begin  BorderStyle := bsNone; 
SetClassLong(Form1.Handle, GCL_STYLE, GetClassLong(Form1.Handle,
GCL_STYLE) or CS_DROPSHADOW);  DoubleBuffered:= True;  Position :=
poDesigned; end;procedure TfrmMain.imgResizeMouseDown(Sender: TObject;
Button: TMouseButton;  Shift: TShiftState; X, Y: integer);begin 
PtSize.y := Mouse.CursorPos.y - Top - Height;  PtSize.x :=
Mouse.CursorPos.x - Left - Width;end; procedure
TfrmMain.imgResizeMouseMove(Sender: TObject; Shift: TShiftState;  X,
Y: integer);begin  if ssLeft in shift then  begin    Width :=
Mouse.CursorPos.x - Left - PtSize.x;    Height := Mouse.CursorPos.y -
Top - PtSize.y;  end;end;

----------------------------------------------------------------------
jamie · 2021-11-01 21:54

You may need to call the "Invalidate" or Repaint of the form?

----------------------------------------------------------------------
Pe3s · 2021-11-02 15:57

Thank you. Repaint worked.