jak odczytac wartosc slupka narysowanego w TPaintBox ?

[jabu74 - ekspert]

czy mozna odczytac i wyswietlic w dymku wartosc poszczegolnych slupkow (te zielone) albo raczej ich rzeczywistych wartosci w buforze np. po najechaniu kursorem ?

slupki narysowane sa funkcja Rectangle() i przesuwaja sie od prawej do lewej strony.

ponizej link do screenshota mojego miniprogramu

http://easyshare.yoyo.pl/image.php?id=adbee1.jpg

prosze o porady i propozycje

pozdrawiam

[Cyfrowy Baron]

Obiekt TPaintBox oferuje tylko płótno Canvas, nie ma tam żadnych funkcji umożliwiających pobieranie takich wartości. Kod który rysuje na PainBox musi również sam przechowywać wszystkie potrzebne wartości. PaintBox można porównać do czystej nie zapisanej kartki papieru, od TImage różni się tym, że posiada własną kontrolkę, Image wykorzystuje powierzchnie innych obiektów i ma wbudowaną klasę TBitmap. TPaintBox to taki Canvas z własną kontrolką (powierzchnią).

[jabu74 - ekspert]

nie kapuje ale dzieki !

[Cyfrowy Baron]

Wyjaśnię prościej. W celu odczytania wartości (jakiejkolwiek) słupka znajdującego się na PainBox, taki słupek musiałby być obiektem przechowującym te wartości, ale nie jest obiektem, lecz zwykłym zbiorem punktów, rysunkiem, nie przechowuje żadnych wartości. Obiekt PaintBox co prawda przechowuje wartości tych punktów, czyli ich położenie, ale nie posiada żadnych funkcji, które by zwracały te wartości. Gdy wskażesz myszką punkt na PaintBox to zwróci on położenie tego punktu w zdarzeniu OnMouseMove:

Kod: Zaznacz cały

void __fastcall TForm1::PaintBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Label1->Caption = "WspoÅ‚rzÄ™dne XY: X = " + (String)X + "; Y = " + (String)Y;    
}

Jednak nie zwróci informacji o tym co się w pod tymi współrzędnymi znajduje, to musisz ty sprawdzać. Jeżeli coś rysujesz na PaintBox to wyznaczasz jakieś koordynaty tego rysunku, np. Rectangle musi zawierać wszystkie cztery punkty. Chcąc sprawdzić czy mysz wskazuje na prostokąt musisz sprawdzić czy koordynaty myszy zwracane w zdarzeniu OnMouseMove pokrywają się z koordynatami prostokąta. PainBox nie poda informacji o położeniu prostokąta, gdyż nie wie co to jest prostokąt, dla niego to po prostu grafika. Możesz oczywiście sprawdzać kolor pod wskazaniem myszy i tak ewentualnie sprawdzać czy to jest prostokąt.

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
PaintBox1->Canvas->Brush->Color = clYellow;
PaintBox1->Canvas->Rectangle(50, 50, 150, 100);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1MouseMove(TObject *Sender,
     TShiftState Shift, int X, int Y)
{
if(PaintBox1->Canvas->Pixels[X][Y] == clYellow)
  Label1->Caption = "Wskazuje na prostokÄ…t";
else
  Label1->Caption = "Wskazuje na pusty obszar";
}
//---------------------------------------------------------------------------


Nie można jednak odczytać z PaintBox wymiarów słupków, gdyż PainBox takich informacji nie posiada, ale program gdzieś musi przechowywać te informacje, skoro rysuje je na PaintBox i to właśnie z tamtąd należy pobrać te informacje. W przykładzie określiłem jawienie wymiary i położenie prostokąta, więc wskazując na prostokąt mogę również jawnie podać jego wymiary:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
PaintBox1->Canvas->Brush->Color = clYellow;
PaintBox1->Canvas->Rectangle(50, 50, 150, 100);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1MouseMove(TObject *Sender,
     TShiftState Shift, int X, int Y)
{
if(PaintBox1->Canvas->Pixels[X][Y] == clYellow)
  Label1->Caption = "Wymiary prostokÄ…ta: dÅ‚ugość - 100, wysokość - 50; "
               "PoÅ‚ożenie: X - 50, Y - 50";
else
  Label1->Caption = "";
}
//---------------------------------------------------------------------------


Jeżeli wymiary prostokąta są przechowywane w jakichś zmiennych to po wskazaniu tego prostokąta (rozróżnianie np. po kolorze) należy pobrać te wymiary z tych zmiennych, a nie z PaintBox, gdyż PaintBox nie zwraca takich danych, tylko je pobiera.

[Ho88it]

A nie dało by rady w TCanvas wpakować zwykłego TProgressBar? Tak jak to się robi w pasku statusu? Mniej zaśmiecony kod, a TProgressBar obsługuje zdarzenia myszki i w ogóle go można potem czymś ładniejszym zastąpić.

[Cyfrowy Baron]

TCanvas nie posiada własnej kontrolki, to klasa abstrakcyjna, istnieje tylko jako przypisana do innej klasy, nigdy samodzielnie. TCanvas nie obsługuje klasy TControl, więc nie może kontrolować żadnego obiektu, nie może stać się "rodzicem" żadnego obiektu. w odróżnieniu np. od TStatusBar, który obsługuje klasę TControl.