marquee and zoom on Image component

[swees]

hallo! i'm trying to make a program like paintbrush. made some tools but have no idea how to make zoom and marquee tools. if You have any, i would be grateful for ideas or sources. thanks!
regards
swees

[BaraoZemo]

subscribe first (it´s free)

[link=http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=1327&lngWId=7] WhiteBoard delphi sources[/link]

Regards
BaraoZemo

ps, don´t forget to click in the button and Accept as Answer if this helped you!

[swees]

hi. i know this source and it's really good but it doesn't contain neither marquee nor zoom tools...

[douglas]

Check these out:

Marching Ants
http://homepages.borland.com/efg2lab/Library/Delphi/Graphics/Algorithms.htm

Rubber Banding
efg's sample project of how to use "Marching Ants" over a TImage
http://homepages.borland.com/efg2lab/Library/Delphi/Graphics/Algorithms.htm#RubberBanding



Also, EFG Lab has numerous articles on all kinds of things related to images and image processing, Colors, Painting, etc

http://www.efg2.com/

Lab
http://www.efg2.com/Lab/index.html

Reference
http://www.efg2.com/Lab/Library/index.html

Image Processing
http://www.efg2.com/Lab/Library/ImageProcessing/index.html

Algorithms
http://homepages.borland.com/efg2lab/Library/Delphi/Graphics/Algorithms.htm



If this Helps!, please accept as Answer!

UnSysApps

[BaraoZemo]

in some situations i don´t like to use free codes ,because you don´t get a fast approach and the quality is fair...

for commercial application i suggest this (only 49 eur)
(and don´t lost you time...)

ImageEN
http://www.hicomponents.com/nimageen.asp

Regards
BaraoZemo

ps, don´t forget to click in the button and Accept as Answer if this helped you!

[swees]

unfortunately, links for "marching ants" are refering to a search system completely not related with delphi

[swees]

ok, it's a still in nappies sample for zoom:

var
Bitmap:TBitmap;
ImIn,ImOut:TRect;
begin
ImIn:=rect(0,0,Image1.Width,Image1.Height);
ImOut:=rect(0,0,(Image1.Width)*2,(Image1.Height)*2 );
Bitmap:=TBitmap.Create;
Bitmap.Height:=(Image1.Height)*2;
Bitmap.Width:=(Image1.Width)*2;
Bitmap.Canvas.CopyRect(ImOut,image1.Canvas,ImIn);
Image1.Picture.Graphic:=Bitmap;
Bitmap.Free;
end;

but works