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

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

kak obrashatsya k etoy procedure?

chitak ©   (2005-08-22 02:53:00) 

kak mojno shelchkom obrashatsya k etoy procedure

procedure TextOutAngle(x,y,aAngle,aSize: integer; txt: string);
var
 hFont, Fontold: integer;
 DC: hdc;
 Fontname: string;
begin
 if length(txt) = 0 then
   Exit;
 DC:= Screen.ActiveForm.Canvas.handle;
 SetBkMode(DC, transparent);
 Fontname:= Screen.ActiveForm.Canvas.Font.name;
 hFont:= CreateFont(-aSize,0, aAngle*10,0, fw_normal,0, 0,
 0,1,4,$10,2,4,PChar(Fontname));
 Fontold:= SelectObject(DC, hFont);
 TextOut(DC,x,y,PChar(txt), length(txt));
 SelectObject(DC, Fontold);
 DeleteObject(hFont);
end;

---

afanasic   (2005-08-22 12:32:00) [1]

K etoi procedure nujno obrajatsia ne schelchkom, a hlopkom, pri neobhodimosti povtorit' tri raza,- esli ne pomoget, to pereimenovat' i snova poprobovat', esli opiat' ne pomojet - znachit ustanovit' Delphi i napisat':

procedure Button1Click(Sender: TObject);
begin
 // schelk-hlop, t'fu - t'fu, obana
 TextOutAngle(1,1,0.5,1,'Schelk was complete succesfully!!!');
end;

Pered chem brosit' knopku na formu!

---

Defunct   (2005-08-22 03:25:00) [2]

> Джо

да но там надо не выполнить, а обратиться!

chitak sam velikiy konoplya..ghm.. mac i volshebnik, on doljno bit' uje proboval:
shelk-shelk ...
:)
tut vidimo tret'e iz [1] bolshe vsego podhodit ;>

---

Джо   (2005-08-22 03:05:00) [3]

>  [1] Defunct ©   (22.08.05 03:03)

Нет, сказано же: "shelchkom "!
Значит, нужно так: "Щелк, выполнись". :)

---

Defunct   (2005-08-22 03:03:00) [4]

sim-sim otroysya
ris-ris risuysya
opa-opa klatsa-klatsa

vibiray lyuboe magicheskoe zaklinanie

---

Наверх