Button SpeedButton BitBtn i Canvas?

[event15]

Witam.

Mam pewien problem, którego rozwiązania już szukam trochę czasu.

Mianowicie, chciałbym narysować na jednym z obiektów podanych w temacie kwadrat, elipsę czy prostokąt.
Kiedyś już coś takiego udało mi się zrobić, jednak w tej chwili za nic w świecie nie potrafię sobie przypomnieć.

Czy ktoś mógłby mi pomóc w rozwiązaniu problemu?

Próbowałem już za pomocą SpeedButton->Glyph->Canvas->Rectangle();
Jednak nie rysuje mi się żadna figura.

Robię to w metodzie OnPaint.

Prosiłbym o ewentualne wskazówki.

[Cyfrowy Baron]

Można to zrobić, ale efekt nie będzie trwały gdyż przyciski mają własny mechanizm odrysowujący, które będzie zamazywał to co na nich narysujesz:

Plik nagłówkowy np. Unit1.h

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

private:
        TControlCanvas *FCanvas;

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

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   FCanvas = new TControlCanvas;
   FCanvas->Control = SpeedButton1;
}
void __fastcall TForm1::FormPaint(TObject *Sender)
{
 FCanvas->Rectangle(5, 5, SpeedButton1->Width - 5, SpeedButton1->Height - 5);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1MouseMove(TObject *Sender, TShiftState Shift,
                  int X, int Y)
{
FormPaint(Sender);
}

W te przyciski można wstawiać grafikę, więc lepiej stwórz bitmapę z kwadratemi ją tam wstaw.

[Mironas]

Aby rysować na SpeedButton->Glyph musisz mieć coś wpisane do Glyph (w inspektorze obiektów)

W ten sposób możesz tylko rysować po ikonie na przycisku. Jeśli chcesz rysować po całym przycisku przeczytaj poradę Rysowanie na obiektach nie posiadających Canvas.

[Cyfrowy Baron]

Jeśli chcesz rysować po całym przycisku przeczytaj poradę Rysowanie na obiektach nie posiadających Canvas.

Ja właśnie przytoczyłem tą poradę i efekt jest niestety nie trwały gdyż przycisk ma własny mechanizm rysujący gdy obiekt zostanie wskazany myszą lub kliknięty.

[Mironas]

Albo wg porady dodajesz Canvas do przycisku i rysujesz po nim. Ale wtedy musisz przerysowywać wszystko w OnPaint formy (bo będzie nietrwałe).

Albo rysujesz po Glyph ale wtedy musisz mieć wcześniej wczytaną ikonę

Albo wstawiasz ikonę z już narysowanym przyciskiem (tak jak radzi Cyfrowy Baron).

[Cyfrowy Baron]

Ale wtedy musisz przerysowywać wszystko w OnPaint formy (bo będzie nietrwałe).

To niestety nie rozwiązuje problemu, gdyż animacja buttona nie oznacza wywołania zdarzenia OnPaint dla formularza.

[Mironas]

Ale wtedy musisz przerysowywać wszystko w OnPaint formy (bo będzie nietrwałe).

To niestety nie rozwiązuje problemu, gdyż animacja buttona nie oznacza wywołania zdarzenia OnPaint dla formularza.

To trzeba dodatkowo przerysowywać przy OnClick i innych zdarzeniach przy których rysunek znika.
Ale chyba lepsze będą dwa pozostałe sposoby.

[Cyfrowy Baron]

To trzeba dodatkowo przerysowywać przy OnClick i innych zdarzeniach przy których rysunek znika.

Próbowałem, ale niestety bez efektu. Jedyne co daje jako taki dobry efekt to zdarzenie OnMouseMove dla buttona i ewentualnie dla formularza. Jednak cały ten pomysł z rysowaniem po buttonach uważam za kiepski. Co właściwie chcesz w ten sposób osiągnąć?

[event15]

Dziękuję wszystkim za porady.

Co chcę osiągnąć?
Chciałem zrobić swojego painta i potrzebowałem zrobić takie przyciski jak w starym Windowsowym paincie. Ale nie chciałem tego robić za pomocą wczytywania obrazka, tylko szybko sobie narysować Canvas->Rectangle();

[Mironas]

Ale w Paincie na przyciskach masz zwykłe statyczne ikony. Po co je przerysowywać?

[Cyfrowy Baron]

Dokładnie tak! Tam są małe bitmapy, które są zresztą dołączane do środowiska C++Builder. W katalogu: c:\Documents and Settings\All Users\Dokumenty\RAD Studio\9.0\Samples\CPP\VCL\Graphex\ masz przykład takiego programu i zauważ, że tam do przycisków typu TSpeedButton wczytano bitmapy.

[event15]

Dobrze, zrobię to na bitmapkach, chciałem sobie ułatwić pracę, jednak wyszło na to, że utrudniłem.
Dziękuję Wam za pomoc, temat rozwiązany

[event15]

Nie chcąc otwierać nowego wątku dopiszę tutaj.

Kod: Zaznacz cały

void __fastcall TPaintExt::OtworzClick(TObject *Sender)
{
      if((licznik_okien < 5) && (OpenDialog->Execute()))
      {
         child[licznik_okien] = new TChild(this);
         child[licznik_okien]->Parent = this;
         child[licznik_okien]->Hint = IntToStr(licznik_okien);


         child[licznik_okien]->Image->Picture->LoadFromFile(OpenDialog->FileName);
         child[licznik_okien]->Caption = OpenDialog->FileName;
         child[licznik_okien]->Top = 5;
         child[licznik_okien]->Left = 5;

         child[licznik_okien]->Width = child[licznik_okien]->Image->Width;
         child[licznik_okien]->Height = child[licznik_okien]->Image->Height;
         licznik_okien++;
      }
      else ShowMessage("Program umożliwia uruchomienie maksymalnie 5 okien");
}


Tworzę w ten sposób maksymalnie pięć okienek MDIChild, które można otwierać w moim Paincie. Problem polega na tym, że w chwili, gdy chcę coś wykonać na aktywnym oknie MDI to nie mam już pojęcia jak wywoływać np w metodzie:

Kod: Zaznacz cały

void __fastcall TPaintExt::SpeedButton1Click(TObject *Sender)
{
   child[i co tu wpisać]->Image->Canvas->Rectangle(10, 10, 100, 100);
}

W miejscu "i co tu wpisać" ma być oczywiście liczba, tylko skąd tą liczbę wyłuskać? Ta liczba musi być liczbą aktualnie wybranego formularza MDIChild.

[Mironas]

Dostęp do aktywnego okna MDI masz z ActiveMDIChild

[event15]

A w jaki sposób odwołać się do komponentu znajdującego się na takim formularzu?

Kod: Zaznacz cały

child[PaintExt->ActiveMDIChild]->Image->Canvas->Rectangle(10, 10, 100, 100);

oraz

Kod: Zaznacz cały

PaintExt->ActiveMDIChild->Image->Canvas->Rectangle(10, 10, 100, 100);

Nie działają.