Форум: "Потрепаться";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];

Вниз

Who know ASMa ?   Найти похожие ветки 

← →
ATLANTIDO   (2002-03-09 23:24) [4]

По рекомендациям VuDZ сделал так:

procedure TForm1.TimeMes(s:string);
var
DC: HDC;
Canva: TCanvas;
B: TBitmap;
W, H, i : integer;
begin
for i:=1 to 30 do
begin
Canva := TCanvas.Create;
B := TBitmap.Create;
DC := GetDC(0);
try
Canva.Handle := DC;
Canva.Font.Handle := CreateFont(50, 0, 0, 0, 700, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, nil);
W := Canva.TextWidth(s);
H := Canva.TextHeight(s);
B.Width := W;
B.Height := H;
B.Canvas.CopyRect(Rect(0, 0, W, H), Canva,Rect(0, 0, W, H));
Canva.TextOut(0,0,s);
finally
ReleaseDC(0, DC);
sleep(100);
Canva.CopyRect(Rect(0, 0, W, H), B.Canvas,Rect(0, 0, W, H));
B.Free;
Canva.Free
end
end;
end;

пока работает ...

---

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

Форум: "Потрепаться";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c