Własny kursor myszy - problem

[Cyfrowy Baron]

Odpowiedziałem w swoim ostatnim poście, ale jeszcze raz powtórzę: Problem dotyczy tylko Stylu Klasycznego Windows.
Zainstaluj Windows 7, a wydajność skoczy dwukrotnie, no chyba, że komputer nie spełnia wymagań tego systemu, wtedy wróć do Win XP.

[Corvis]

Ok dzięki, już się przymierzam do wymiany - ale jak to zwykle bywa nie ma na to czasu

[Cyfrowy Baron]

Problem da się rozwiązać wymuszając przerysowanie powierzchni na której rysowane są linie, za pomocą funkcji Repaint().

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::DrawLines(void)
{
 this->Repaint(); // <-- tutaj

 int hMax = this->ClientHeight;
 int wMax = this->ClientWidth;

 // linia pionowa
 this->Canvas->MoveTo(fPoint.x, 0);
 this->Canvas->LineTo(fPoint.x, hMax);

 // linia pozioma
 this->Canvas->MoveTo(0, fPoint.y);
 this->Canvas->LineTo(wMax, fPoint.y);
}

Funkcja musi być koniecznie wywołana przed odrysowaniem linii.

Tylko dlaczego Ty tak nie kombinujesz?

[Corvis]

Bo z grafiki jestem zielony i dopiero się z nią zaprzyjaźniam i uczę tych sztuczek

[Cyfrowy Baron]

Właściwie to teraz zauważyłem, że z funkcją Repaint() można sobie darować całe to przechwytywanie komunikatów, co niewątpliwie przyspieszy kod, chociaż z drugiej strony sama funkcja Repaint(), generuje pewne opóźnienie. Kod może też mieć taką postać:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    fDraw = true;
    fFirstDraw = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DrawLines(void)
{
 this->Repaint();

 int hMax = this->ClientHeight;
 int wMax = this->ClientWidth;

 // linia pionowa
 this->Canvas->MoveTo(fPoint.x, 0);
 this->Canvas->LineTo(fPoint.x, hMax);

 // linia pozioma
 this->Canvas->MoveTo(0, fPoint.y);
 this->Canvas->LineTo(wMax, fPoint.y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
  if( fDraw )
  {
   this->Canvas->Pen->Mode = pmNotXor;

   if( fFirstDraw == false ) DrawLines(); // wymazanie poprzednich linii

   fPoint.x = X;
   fPoint.y = Y;

   fFirstDraw = false;

   DrawLines();

  }
}