 
			
				24.03.2010, 09:29
			
			
			
		  
	 | 
	
		
		
		
			  | 
			
			
				
				
				 Продвинутый 
				
				
			 | 
			  | 
			
				
				
					Регистрация: 02.06.2008 
					Адрес: Бендеры ПМР 
					
					Сообщения: 754
 
				
					Репутация: 2446 
					    
				 
				
			 | 
		 
		 
		
	 | 
	
	
	
		
			
			
			 
			
		
		
		
		Нужно работать или с TImage или непосредственно с изображением... 
С bmp быстрее всего работает API функция
 
	Код: 
	function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: Longint): Bool;  
 
http://www.codenet.ru/progr/delphi/WinAPI/BitBit.php
Пример работы с bmp
 
	Цитата: 
	
	
		
			
				
var 
 Image : TBitmap; 
begin 
 Image := Tbitmap.Create; 
 try 
  Image.Loadfromfile(extractfilepath(Application.Exe  Name)+'Image.bmp'); 
  BitBlt(Form1.Canvas.Handle, 0, 0, 850, 750, Image.Canvas.Handle, 0, 0, SRCCOPY); 
 finally 
  ImageFree; 
 end;  
			
		 | 
	 
	 
  
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	 |