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!

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