Parę problemów

[Dunay]

Panowie mam takie pytanie. Chcę zrobić tak, by na obiekcie typu Image po kliknięciu coś się rysowało. Samo rysowanie mam obcykanie, problem mam jedynie z wywoływaniem funkcji poprzez kliknięcie myszką. Macie może jakieś tutoriale lub kursy? Ewentualnie porady?

[Android]

A próbowałeś w zdarzeniu OnClick obiektu TImage wywołać funkcję związaną z rysowaniem?
Jeżeli rysynek ma byc zależny od punktu w ktory klikniesz w OnMouseDown masz parametry X i Y względem obrazka.
Jeśli chcesz pobrac X,Y względem ekranu to w OnClick tez mozesz to zrobic uzywajac kodu:

Kod: Zaznacz cały

tagPoint * mysz = new tagPoint;
GetCursorPos(mysz);
ShowMessage(mysz->x);
ShowMessage(mysz->y);

delete mysz;

[Cyfrowy Baron]

Zajrzyj do serwisu Cyfrowy Baron dział: porady grafika Rysowanie dowolnych kształtów myszką.

[Dunay]

Nie czaję. Panowie w obiekcie Image chcę by po kliknięciu na początek w dowolnym miejscu rysował się np. prostokąt
Canvas->Rectangle(100,100,200,200);

[Cyfrowy Baron]

Na przykład tak:

Plik nagłówkowy np. Unit1.h

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

private:        // User declarations
    bool FDrawing;
    bool FFirstRect;

    TPoint F1, F2;

    void __fastcall DrawRect();

Plik źródłowy np. Unit1.cpp

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 FDrawing = false;
 Image1->Canvas->Pen->Color = clRed;
 Image1->Canvas->Pen->Width = 2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DrawRect()
{
 Image1->Canvas->Rectangle(F1.x, F1.y, F2.x, F2.y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    F1.x = X;
    F1.y = Y;
    FFirstRect = true;
        FDrawing = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    F2.x = X;
    F2.y = Y;
    FDrawing = false;
  //  DrawRect();
   // Canvas->Pen->Mode = pmCopy; //przywraca styl pióra
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    if (FDrawing == true)
    {
           Image1->Canvas->Pen->Mode = pmNotXor;
                         //to klucz do wymazywania
      if (FFirstRect == false) DrawRect();
                         //wymazuje poprzedni prostokąt
       F2.x = X;
       F2.y = Y;
       FFirstRect = false;
       DrawRect(); //rysuje nowy prostokąt
        }
}

[Dunay]

kod w miarę rozumiem, ale zbyt zaawansowany jak na moje zaliczenie
A jest jakiś obiekt lub właściwość Buttona że wygląda jakby był wciśnięty. Tzn. efekt jak np. w Wordzie gdy klikamy kursywę lub podkreślenie?

[Cyfrowy Baron]

A jest jakiś obiekt lub właściwość Buttona że wygląda jakby był wciśnięty. Tzn. efekt jak np. w Wordzie gdy klikamy kursywę lub podkreślenie?

Komponent TSpeedButton i jego właściwość Down.

W załączniku znajdziesz przykładowy program do rysowania figur na Image. Projektu raczej nie skompilujesz gdyż pochodzi ze środowiska C++Builder 6, więc trzeba by go przepisać, ale możesz sobie przejrzeć kod.

[Dunay]

Znalazłem ten obiekt ale jego właściwość Down jest cały czas false, nawet jak dam pod przyciskiem:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

SpeedButton1->Down=true;

[Cyfrowy Baron]

Właściwość GroupIndex obiektu SpeedButton musisz ustawić na wartość większą od 0, np na 1. Wtedy nie musisz sterować stanem przycisku za pomocą kodu, gdyż sam będzie się przełączał podczas klikania i sam będzie zmieniał wartość Down raz na true a raz na false. Dzięki temu można sprawdzać stan tego przycisku, np:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

if( SpeedButton1->Down == true )
{
  ShowMessage("ON");
}
else
{
 ShowMessage("OFF");
}

Jeżeli na formularzu masz kilka obiektów typu TSpeedButton i wszystkim ustawisz tą samą wartość GroupIndex to wtedy będą się przełączały na zmianę, czyli tylko jeden z nich będzie mógł być w tym samym czasie wciśnięty. Jeżeli każdemu z tych przycisków we właściwości GroupIndex wpiszesz inną wartość to będą działały niezależnie od siebie.

[Dunay]

Dodatkowo opcja AllowAllUp musi mieć wartość true

[Dunay]

Panowie jak zapisać do zmiennej wybraną pozycję z ListBoxa? Tzn. Mam kilka pozycji w ListBoxie zaznaczam którąś i klikam przycisk i w tym momencie tekst który był wybrany w ListBoxie jest pod zmienną.

[Cyfrowy Baron]

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

if( ListBox1->ItemIndex >= 0 )
    String tekst  = ListBox1->Items->Strings[ ListBox1->ItemIndex ];

Tutaj znajdziesz więcej:
TListBox
TComboBox
TStringList
TRichEdit & TMemo

Wszystkie wymienione wyżej obiekty są do siebie bardzo podobne, a pod wieloma względami identyczne.