Скачать: CL | DM;

kak obrashatsya k etoy procedure?   Найти похожие ветки 

← →
chitak   (2005-08-22 02:53) [0]

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;

---

← →
Defunct ©   (2005-08-22 03:03) [1]

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

vibiray lyuboe magicheskoe zaklinanie

---

← →
Джо ©   (2005-08-22 03:05) [2]

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

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

---

← →
Defunct ©   (2005-08-22 03:25) [3]

> Джо

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

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

---

← →
afanasic   (2005-08-22 12:32) [4]

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!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c