1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31:
| procedure DC_TextOut(x,y,winkel,groesse: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(-groesse,0,winkel*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;
procedure TForm1.FormResize(Sender: TObject); var i,n,x,y : integer; begin refresh; n := 60; i := 0; x := clientwidth div 2; y := clientheight div 2; while i < 500 do begin If n > 10 Then Dec(n,2) Else If n > 2 Then dec(n); DC_textout(x, y, i, n, ' rotierender Text'); Inc(i,15); end; end; |