[Delphi] Operacje na bitmapach

0

Mam dwa pytanka:

  1. Jak zrobić obracanie obrazka (w lewo, w prawo) w komponecie Image
  2. Jak zrobić Kopiuj, Wklej i Wytnij również w Image
    Z góry dzięki
0

Szukaj było! ;P

-Pomoc w Delphi
-Google

  • Szukaj u góry obok "Wylogowywanie"

Obracanie można najprościej (nie najlepiej) zrobić tak:
ort! 2 TImage
w ort! kopiujesz po pikselu z jednego do ort! ale w drugim od końca malujesz.

Kopiowanie? Całego obrazka, fragmentu.
Poszukaj o TCanvas TRect, i funckje w TImage

Szukaj BYŁO na 100,9% [!!!]

[soczek]

0

reszty nie mam humoru na pisanie ale jak chcesz przesuwac obrazek nie timage
to tworzysz var x : tbitmap; //mozesz dac timage tylko jeszcze po create masz timage.parent albo forma lub self
x := tbitmap.create;
x.width := image1.picture.bitmap.width;
x.height := image1.picture.bitmap.height;
x.canvas.copyrect(rect(0,0,x.width,x.height),image1.canvas,rect(0,0,x.width,x.height)); // czy jakos tak

jak to zrobisz to teraz np. tworzysz sobie jakas zmienna integer np. kierunek : integer;

wsadzasz jakiegos buttona

a do niego kod:
dla przesuniecia w prawo
kierunek := kierunek - 1;
w lewo kierunek := kierunek + 1;

image1.picture := nil;
image1.canvas.copyrect(
rect(0,0,image1.width,image1.height),image2.canvas,
rect(kierunek,0,image1.width+kierunek,image1.height));

1 użytkowników online, w tym zalogowanych: 0, gości: 1