Repaint ve vlaknu – Delphi – Fórum – Programujte.com

Zdravim.

Když dam do vlakna Execute smyčku třeba 1 - 100 a v ni volam Synchronize(zapis), ve kterem neni nic jineho než StringGrid1.Repaint,  StringGrid nepřijemně problikava.

Zkusil jsem i toto a vysledek stejny

Form1.StringGrid1.enabled.false;

Form1.StringGrid1.Repaint;

Form1.StringGrid1.enabled.true;

Poradite

Problikávání je dáno tím, že máš nějakou hierarchii oken (formulář, panel, grid nebo tak něco) a když dáš překreslit grid, tak se provede nejenom překreslení, ale také erase background (WM_ERASEBKGND). Ta se v implicitní implementaci rovná vyplnění obdélníku okna barvou pozadí. Takže ve výsledku vidíš nejprve nic a pak zase grid - proto to bliknutí. Jednoduše se toho dá zbavit potlačení WM_ERASEBKGND v oblasti gridu ve všech rodičovských oknech a možná i v gridu, ale to je potřeba vyzkoušet :).

mno, já to řeším jednoduše,

StringGrid.DoubleBuffered := True;

#3 Sniper

Pomohlo.Děkují.

Měl bych ještě jeden dotaz k vlaknum a abych nespamoval a nezakladal nove tak to zkusim tady.

Mam v 1 unitě 2 vlakna.

ZkontrolujVlakno = class(TThread)
  private
    Kontrolovanaadresa: string;
    cisloradku: integer;
  protected
    procedure Execute; override;
    procedure Zapis;
    procedure pingni;
    procedure zkontroluj;
  end;

  ZkontrolujRychleVlakno = class(TThread)
  private
    Kontrolovanaadresa: string;
    cisloradku: integer;
  protected
  end;

Potřeboval bych s vlakna ZkontrolujRychle přistupovat k proceduram ktere jsou ve vlaknu ZkontrolujVlakno (Zapis,pingni,zkontroluj)

Nebo vysvětlim jinak.

2 vlakna

ZkontrolujVlakno.Execute;
ZkontrolujRychleVlakno.Execute;

Vžy běži jenom jedno.

Chci docilit aby procedury Zapis,pingni,zkontroluj využivali obě vlakna