|
#1
|
|||
|
|||
Картинка в Edit
Подскажите как можно сделать картинку в Edit или какой компонент можно использовать,использую delphi 7 и 2009?
|
#2
|
|||
|
|||
Да в принципе, доп. компоненты необязательны...
Можно и так нарисовать картинку в Edit'е. Код:
procedure DrawToEdit; var DC: HDC; bmp: TBitmap; begin DC := GetDC(Form1.Edit1.Handle); bmp := TBitmap.Create; try bmp.Height := 32; bmp.Width := 32; DrawIcon(Bmp.Canvas.Handle, 0, 0, Application.Icon.Handle); StretchBlt(DC, Form1.Edit1.ClientWidth - Form1.Edit1.ClientHeight, 0, Form1.Edit1.ClientHeight, Form1.Edit1.ClientHeight, Bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, SRCCOPY); finally bmp.Free; ReleaseDC(Form1.Edit1.Handle, DC); end; end; Только придется перерисовывать картинку при каждом «существенном» для Edit'а событии: Код:
procedure TForm1.Edit1Change(Sender: TObject); begin DrawToEdit(); end; procedure TForm1.Edit1Click(Sender: TObject); begin DrawToEdit(); end; Последний раз редактировалось Nyctos Kasignete, 25.08.2009 в 00:24. |
#3
|
||||
|
||||
Цитата:
Тогда воспользуйтесь RichEdit. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#4
|
|||
|
|||
да в принципе имелось ввиду так же сделать как в мозиле там где поисковичек.
|
#5
|
||||
|
||||
Мозилы не стоит, картинку выложите.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
|||
|
|||
вот выложил, извиняюсь что так долго..
|
#7
|
||||
|
||||
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 03.09.2009 в 18:10. |