Программирование - это просто
Advertisement
arrow Delphi arrow Delphi arrow Delphi. 9. TDXDraw .
08.02.2023 .
1:
C#
Delphi
Web-
Excel-
.
Delphi. 9. TDXDraw . E-mail
megabax   
22.10.2011 .
New Page 2

Delphi. 9.  TDXDraw .

.

, 7 8. , 7. TDXTimer:

    Delphi.  9.  TDXDraw  .

OnTime:

procedure TfrmDirectX.DXTimerTimer(Sender: TObject; LagCount: Integer);

begin

  if not DXDraw.CanDraw then exit;

  DXDraw.Surface.Fill(0);  //

  with DXDraw.Surface.Canvas do

  begin

    Brush.Style := bsClear;

    Font.Name := 'Arial';

    Font.Color := clWhite;

    Font.Size := 20;

    Textout(30, 30, DateTimeToStr(Now));

    Release; { ! }

  end;

  DXDraw.Flip;

end;

:

    Delphi.  9.  TDXDraw  .

, TDXDraw Surface, "" Canvas, , . 


, *,    "Delphi", Borland Delphi.. 


 

 

( 06.11.2011 . )
 
. »
 
© 2023 Программирование - это просто
Joomla! - , GNU/GPL.
© 2005-2008 Joom.Ru - Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
  .