Grafika v BD7, prosím o rady... – Delphi – Fórum – Programujte.com

Mam pár problémů, byl bych rád kdyby mi s tím někdo pomohl, pro někoho kdo dělá v delphi delší dobu to jistě nebude nic složitého.. :)


Na formuláři HlavniForm (TForm) mam vedle sebe dvě stejné komponenty BP_Original a BP_Kopie (TPaintBox). Potřeboval bych překopírovat první řádek pixelů z BP_Original do BP_Kopie.

předem děkuji za odpověď.

Kresli sa stale na Canvas a ten vracia farbu bodu na suradnici X, Y. Kedze ty potrebujes Y = 0 (prvy riadok), tak len farby prekopirujes - musis vsak osetrit, aby PaintBoxy boli ronvako dlhe. Mozno ti pomoze toto:

  for Index := 0 to Pred(PaintBox1.Width) do

  begin

    if Index <= PaintBox2.Width then

      PaintBox2.Canvas.Pixels[Index, 0] := PaintBox1.Canvas.Pixels[Index, 0];

  end; // FOR

To LiborBes :

Momentálně nemám nainstalovené Delphi, ale nešlo by to taky přes vlastnost ScanLine?? Ptám se, dlouho jsem v Delphi nedělal.

No, grafike sa mi darilo celkom dobre vyhybat, takze neviem, ale ako som sa pozeral na implementaciu ScanLine, skor by som to vedel pouzit na ine veci, ale to je jedno. ScanLine vracia smernik na pole pixelov, tym padom, by si sa asi cyklu nevyhol - no mozno by to bolo rychlejsie. ScanLine je definovane na TBitmap, takze to budes musiet asi poriesit cez TBrush z Canvasu.