Italian community of Lazarus and Free Pascal

Benvenuto tra noi Sauro

Benvenuto Sauro
felicissimi per aver scelto di unirti a questa comunità.

nomorelogic

Buon pomeriggio, provengo dal mondo Delphi e sto cercando di capire le differenze. Spero di poter dare qualche contributo ed anche di ricevere consigli.
Una buona continuazione.

Buon giorno, ho risolto il problema dell'autoredraw del form, facendo cosi, per prima cosa ho creato un variabile Bitmap a livello di classe del form, poi l'ho inizializzata su OnCreate del Form e quando ha finito di caricare immagini, shape e disegni fatti col metodo Pixel ho salvato l'immagine sulla Bitmap cosi:     <Form1.Bitmap.SetSize(Form1.ClientWidth, Form1.ClientHeight);
Form1.Bitmap.Canvas.CopyRect(Rect(0, 0, Form1.ClientWidth, Form1.ClientHeight),
                             Form1.Canvas,
                             Rect(0, 0, Form1.ClientWidth, Form1.ClientHeight));>
        cosi carico limmagine sulla BitMap e poi col metodo Paint la scarico sul Form cosi:
<procedure TForm1.FormPaint(Sender: TObject);
begin
  // Disegna la bitmap colorata sul form
  Form1.Canvas.Draw(0, 0, Form1.Bitmap);
end; >
con questo semplice accorgimento posso disegnare e caricare sul form qualunque cosa che rimane in memoria sullo schermo, con un unico accorgimento di non avere il form fuori dallo schermo, quindi col metodo resize lo faccio rientrare nella finestra, altrimenti la Bitmap non carica l'immagine fuori schermo:
<procedure TForm1.FormResize(Sender: TObject);
begin
  // Controllo limiti orizzontali
  if Left + Width > Screen.Width then
    Left := Screen.Width - Width - 100;
  if Left < 0 then
    Left := 0;

  // Controllo limiti verticali
  if Top + Height > Screen.Height then
    Top := Screen.Height - Height - 100;
  if Top < 0 then
    Top := 0;
end;>


           Grazie a tutti e spero che la mia idea possa servire a qualcuno.

potrebbe essere


Edit:
la usano nel programma TestDaemonCodeOnly che era nel tuo link