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

Delphi. 7. TDXDraw.

.

TDXDraw . 

, . TDXDraw*:

    Delphi.  7.  TDXDraw.

  Align alClinet, *:

    Delphi.  7.  TDXDraw.

OnKeyDown:

procedure TfrmDirectX.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);

begin

{ }

if Key=VK_ESCAPE then Close;

 

{ - / - ALT+ENTER }

if (ssAlt in Shift) and (Key=VK_RETURN) then

  begin 

   DXDraw.Finalize;

   if doFullScreen in DXDraw.Options then

      begin

        DXDraw.Cursor := crDefault;

        BorderStyle := bsSizeable;

        DXDraw.Options := DXDraw.Options - [doFullScreen];

       end else begin

         DXDraw.Cursor := crNone;

         BorderStyle := bsNone;

         DXDraw.Options := DXDraw.Options + [doFullScreen];

       end;

   DXDraw.Initialize;

  end;

end;

, :

    Delphi.  7.  TDXDraw.

Alt+Enter , . ESC . 

doFullScrin Options*:

    Delphi.  7.  TDXDraw.

true, . , - . , BorderStyle bsNone. 


, *,    "Delphi", Borland Delphi.. 


 

 

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