DrawGrid - przenoszenie elementów pomiędzy komórkami

[tomik]

Witam

Potrzebuję zrobić planszę 8x8, wypełnić dolne 8 komórek Image1, a górne Image2 udało mi się to uzyskać dzięki TDrawGrid, ustawiłem mu 8x8 i zrobiłem coś ala:

Kod: Zaznacz cały

If ((ARow == 2) && (ACol == 2)) DrawGrid1->Canvas->Draw(Rect.Left, Rect.Top, Image2->Picture->Graphic);

Nie potrafię jednak poradzić sobie z przeciąganiem Imagex pomiędzy komórkami DrawGrid, np. przeciągam Image1 z (i,j) na (i++,j--) . Szukałem dużo w google, na tej stronie i w książkach, ale nic nie znalazłem ciekawego. A na pewno widziałem projekty gdzie jest to realizowane. Jakiś drag&drop ??

[Miroo_007]

Tutaj masz rozwiÄ…zanie tego problemu.

[tomik]

dzięki Ci wielkie ! jak na razie udaje mi się realizować to co potrzebuję
Dzięki!

[tomik]

W jaki sposób załadować taką grafikę jaką bym chciał, tzn. potrzebuję wyświetlić kształt, który ma obszary przeźroczyste. BCB6 nie chce mi załadować plików .png, a ImageList umożlwia wybranie kanału alpha w pliku .bmp, ale strasznie kompresuje i pomniejsza obrazek. Istnieje jakieś rozwiązanie?

[Cyfrowy Baron]

Posłuż się bitmapą z jednolitym tłem, które ma być przeźroczyste, potem przed odrysowaniem w Canvas ustaw przeźroczystość dla tej bitmapy, określając kolor do usunięcia.

► patrz serwis: Cyfrowy Baron dziaÅ‚: porady grafika; porada: Przeźroczyste kolory w bitmapach.

Inny sposób to skorzystanie zamiast z Canvas z GDI+

► patrz serwis: Cyfrowy Baron dziaÅ‚: porady grafika; porada: WyÅ›wietlanie grafiki z wykorzystaniem biblioteki gdiplus.dll GDI+.

---

Jeżeli w Image masz załadowaną bitmapę to musisz najpierw określić przeźroczystość dla tej bitmapy, przed przerysowaniem do Canvas:

Kod: Zaznacz cały

Image1->Picture->Bitmap->Transparent = true;
Image1->Picture->Bitmap->TransparentColor = Image1->Picture->Bitmap->Canvas->Pixels[1][1];

UWAGA! Nie zadziała z plikami JPEG.