Changeset 565 for trunk/Inp.pas


Ignore:
Timestamp:
May 1, 2024, 12:08:20 PM (5 weeks ago)
Author:
chronos
Message:
  • Modified: Start form changed to use Offscreen bitmap for drawing as Qt5 doesn't support copying from form canvas.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Inp.pas

    r474 r565  
    4444procedure TInputDlg.FormPaint(Sender: TObject);
    4545begin
    46   PaintBackground(Self, 3, 3, Width - 6, Height - 6);
     46  PaintBackground(Canvas, 3, 3, Width - 6, Height - 6, Width, Height);
    4747  Frame(Canvas, 0, 0, Width - 1, Height - 1, 0, 0);
    4848  Frame(Canvas, 1, 1, Width - 2, Height - 2,
Note: See TracChangeset for help on using the changeset viewer.