Śledzenie kursora myszki liniami

[Corvis]

Witam,

Napisałem prostą funkcję która mi rysuje przez środek punktu na który wskazuje mysz linie problem jest taki, że jeżeli nie odświeże obrazu ( po chwili jest on zamazany ) Jeżeli odświeże to miga. Dodałem DoubleBuffered ale słabo pomoga.

Kod: Zaznacz cały

void __fastcall TForm4::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
   Form4->Canvas->MoveTo(X,0);
   Form4->Canvas->LineTo(X,Form4->ClientHeight);
   Form4->Canvas->MoveTo(0,Y);
   Form4->Canvas->LineTo(Form4->ClientWidth,Y);
   Form4->Refresh();
}


Może mi ktoś powiedzieć co robię źle ?

Pozdrawiam

[polymorphism]

Próbowałeś rysować po TImage?

[Corvis]

Dokładnie o to chodziło

Dzięki

[seweryn]

Problem polega na złej kolejności działań. Spróbuj robić to w ten sposób:

Kod: Zaznacz cały

void __fastcall TForm4::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
   Refresh();
   Canvas->MoveTo(X,0);
   Canvas->LineTo(X,ClientHeight);
   Canvas->MoveTo(0,Y);
   Canvas->LineTo(ClientWidth,Y);
}


Dodatkowo ustaw właściwość formy DoubleBuffered na true

[Cyfrowy Baron]

Sugerowałbym użycie zamiast Refresh() funkcji Invalidate() mniej obciąża program gdyż odświeża tylko to co uległo zmianie.

[seweryn]

u mnie z Invalidate() nie działa

[polymorphism]

Nie działa, bo Invalidate oznacza obszar okna do odmalowania przy pierwszej nadarzającej się okazji. Samo wywołanie tej funkcji nie powoduje odmalowania okna (nie generuje komunikatu WM_PAINT).