| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как вывести на Канву, не затирая Картинку по дефолту?

Страницы:   < 1 2 >

Леонид Артюхов ©   (2009-12-08 10:18:00) 

Привет Мастера,
Вывожу текст в имадж:
var
_Font: String;
...

var
 _Rectangle: TRect;
begin
 Image1.Picture := nil;
 _Rectangle := Image1.Canvas.ClipRect;
 Image1.Canvas.Font.Name := _Font;
 Image1.Canvas.Font.Color := clGreen;
 Image1.Canvas.Brush.Style := bsClear;
 Windows.DrawText(Image1.Canvas.Handle, PChar(Memo1.Text), -1,
   _Rectangle, DT_WORDBREAK + (DT_RASCAMERA) + DT_WORD_ELLIPSIS);
end;
...
procedure TForm1.Button2Click(Sender: TObject);
begin
 If not SavePictureDialog1.Execute then exit;
 Image1.Picture.Graphic.SaveToFile(SavePictureDialog1.Filename);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 if not FontDialog1.Execute then exit;
 _Font := FontDialog1.Font.Name;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Image1.Parent.DoubleBuffered := true;
end;

Вопрос:
Как выводить текст не затирая Картинку по умолчанию в TImage.

---

brother   (2009-12-08 10:22:00) [21]

Image1.Canvas.Brush.Style := bsNone;
оно?

---

Страницы:   < 1 2 >

Наверх