![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
![]()  | 
	
	
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Требуйтся ввод текста в графический фаил по заданным координатам. 
		
	
		
		
		
		
		
	
		
		
	
	
	Пожалуста, подскажите кто знает как это зделать. За рение блогадарен всем кто отзавется! ![]()  | 
| 
		 
			 
			#2  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Вот. Правда сначала придется загрузить рисунок в Image. 
		
	
		
		
		
		
		
		
			Код: 
	// Способ первый procedure TForm1.Button1Click(Sender: TObject); var OldBkMode: integer; begin Image1.Picture.Bitmap.Canvas.Font.Color := clBlue; OldBkMode := SetBkMode( Image1.Picture.Bitmap.Canvas.Handle, TRANSPARENT ); Image1.Picture.Bitmap.Canvas.TextOut( 10, 10, 'Hello' ); SetBkMode( Image1.Picture.Bitmap.Canvas.Handle, OldBkMode ); end; // Способ второй procedure TForm1.Button1Click(Sender: TObject); begin Image1.Canvas.Brush.Style := bsClear; Image1.Canvas.TextOut( 10, 10, 'Hello' ); end; P.S. Хотя можешь попробовать проделать это непосредственно над TBitmap. Последний раз редактировалось Decoding, 03.11.2006 в 22:46.  |