}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: e9567db4 Описание: Код загружен: 11 сентября 2009, 14:40 (Ixer)

  1. procedure writedc(s:string; x:integer; y:Integer; BGColor:TColor; FontColor:Tcolor; FontName:String = 'fixedsys');
  2. var c: tcanvas;
  3. begin
  4. c := tcanvas.create;
  5. c.brush.color := BGColor;
  6. c.font.color := FONTColor;
  7. c.font.name := FontName;
  8. c.handle := getdc(getwindow(getdesktopwindow, gw_owner));
  9. c.textout(x,y,s);
  10. c.Refresh;
  11. c.free;
  12. end;

Ссылка на данный код:

На главную страницу сервиса обмена кодом »