Aşağıdaki procedure tuksekliği sabit eşit genişlikteki parcaların birleşiminden
oluşan bmp resimdeki istenilen parcayı alarak kod icerisinde
form1.Canvas.Draw(0,60,bmpdest);
ile belirtilen Canvas a cizer (canvası kendinize gore değiştirin)

Ornek Kullanım yerleri :
* Winamp deki yazı ve rakamlar bmp olarak hazırlanır.
* Multimedia programlarındaki yazılar ve rakamlar gini
* Timer a bağlar ve sayıları ayarlarsanız animated image elde edersiniz.

KULLANIMI :
Genel Formu :
ResimAl(başlangıc,bitiş,yukseklik:Integer;DosyaAdı :String
Ornek:
var
dosya:String;
begin
dosya:=ExtractFilePath(Application.ExeName]'anim1 .bmp';
resimal(84,126,42,dosya);
end;

şeklinde kullanılabilir.



NOT: Kullanılam BMP 24 Bit olmalıdır.

//---------------------------------------/
procedure Tform1.resimal(xbas,xson,y:Integer;FileName:String );
type
TRGBTripleArray=Array[0..32768] of TRGBTriple;
pTRGBTriple=^TRGBTripleArray;

var
boyx,i,j:Integer;
bmpsource,bmpdest:TBitmap;
rowTRGBTriple;
TRGBMatrix:array of array of TRGBTriple;
begin
bmpsource:=TBitmap.Create;
bmpdest:=TBitmap.Create;
try
boyx:=xson-xbas;
SetLength(TRGBMatrix,y+1,boyx+1);
bmpsource.PixelFormat:=pf24bit;
bmpdest.PixelFormat:=pf24bit;
bmpsource.Transparent:=true;
bmpdest.Transparent:=true;
bmpdest.Width:=xson-xbas;
bmpdest.Height:=y;
//ShowMessage(IntToStr(bmpdest.Width]'X'+IntTostr(b mpdest.Height));
bmpsource.LoadFromFile(FileName);

for j:=0 To bmpsource.Height -1 do //bmp yuksekliği
begin
row:=bmpsource.ScanLine[j];
for i:=0 to bmpsource.Width - 1 do // belirtilen saturları
begin
if (i >= xbas) and (i