Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как написать на экране? [D7, Win95/98, WinXP]

Yanis © (2003-04-24 14:29:00)
Пожалуйста, кто сталкивался с этим вопросом, помогите, напишите что нибудь.
Хотелось бы попробовать написать на экране большими буквами, но не выходит, может кто знает.

Skier (2003-04-24 16:25:00) [1]
>CAMOBAP
А ReleaseDC ?

CAMOBAP (2003-04-24 15:48:00) [2]
procedure TForm1.Button1Click(Sender: TObject);
var DesktopCanvas : TCanvas ;
begin
DesktopCanvas := TCanvas.Create ;
DesktopCanvas.Handle := GetDC( 0 ) ;
DesktopCanvas.Font.Size:=100;
DesktopCanvas.TextOut(10,100,"ТЕКСТ");
DesktopCanvas.Free ;
end;

gek (2003-04-24 15:29:00) [3]
procedure TForm1.Button1Click(Sender: TObject);
var
dc : hdc;
begin
dc := GetDc(0);
Ellipse(dc , 0, 0, 200, 200);
ReleaseDc(0, Dc);
end;

Yanis (2003-04-24 15:05:00) [4]
Я бы не стал ругаться если кто нито вбил в мою голову как написать на десктопе текст. А то никак понять немогу че дальше делать. Вы уж извините за тупость, но вам думаю не составит труда написать, подробно.

Anatoly Podgoretsky (2003-04-24 14:46:00) [5]
Только вместо 0 правильнее использовать GetDesktopWindow

Yanis (2003-04-24 14:44:00) [6]
Прямо на десктопе, если можно поподробнее или с примерчиком.

Smithson (2003-04-24 14:34:00) [7]
На экране - это на десктопе? Тогда GetDC(0,
Или на своей форме? Тогда читай про OutText
Или прямо на стекле? Тогда проси у подруги помаду :-))

Наверх

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