![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ПОМОГИТЕ НАЙТИ КОМПОНЕНТ! [D7, WinXP]
Maxim-13 © (2006-07-11 11:43:00)Уважаемые мастера! не подскажите где можно скачать компонент наследник TEdit для Делфя 7 с возможностью вставлять в него графическую информацию ?
AbrosimovA (2006-07-11 14:16:00) [1]К примеру, так:
var Image: TImage;
procedure TForm1.FormShow(Sender: TObject);
var margin: integer;
begin
margin:=17;
SendMessage(Edit1.Handle, EM_SETMARGINS, EC_LEFTMARGIN, MakeLong(margin,0));
Image:=TImage.Create(Self);
Image.Parent:=Edit1;
ImageList1.GetBitmap(0,Image.Picture.Bitmap);
end;
tesseract (2006-07-11 11:59:00) [2]RichEdit?