AlliedModders

AlliedModders (https://forums.alliedmods.net/index.php)
-   Scripting Help (https://forums.alliedmods.net/forumdisplay.php?f=11)
-   -   delphi to amxx (https://forums.alliedmods.net/showthread.php?t=93159)

One 05-25-2009 03:51

delphi to amxx
 
PHP Code:

unit Unit1;

interface

uses
  Windows
MessagesSysUtilsVariantsClassesGraphicsControlsForms,
  
DialogsStdCtrlsExtCtrlsJvExExtCtrlsJvExtComponentJvItemsPanel,
  
JvExControlsJvgDigits;

type
  TForm1 
= class(TForm)
    
Timer1TTimer;
    
Label1TLabel;
    
Timer2TTimer;
    
SpeedTJvgDigits;
    
procedure FormKeyPress(SenderTObject; var KeyChar);
    
procedure Timer1Timer(SenderTObject);
    
procedure FormKeyUp(SenderTObject; var KeyWord;
      
ShiftTShiftState);
    
procedure Timer2Timer(SenderTObject);
  private
    { Private-
Deklarationen }
  public
    { Public-
Deklarationen }
  
end;

var
  
Form1TForm1;
  
iinteger;
implementation

{$R *.dfm}

procedure TForm1.FormKeyPress(SenderTObject; var KeyChar);
begin
   Timer1
.Enabled:= true;
   
end;

procedure TForm1.Timer1Timer(SenderTObject);
begin
   Timer2
.Enabled:= false;
   
i:= i+1;
   
Speed.Value:= i;
end;

procedure TForm1.FormKeyUp(SenderTObject; var KeyWord;
  
ShiftTShiftState);
begin
  Timer1
.Enabled:= false;
  
Timer2.Enabled:= true;
end;

procedure TForm1.Timer2Timer(SenderTObject);
begin
  
if (>= 0then
  begin
    Speed
.Value:= i;
    
i:= i-1;

  
end
  
else
    
Timer2.Enabled:= false;
end;

end

is it poss?

Arkshine 05-25-2009 04:58

Re: delphi to amxx
 
What does this code ?

One 05-25-2009 05:11

Re: delphi to amxx
 
Quote:

Originally Posted by arkshine (Post 834262)
What does this code ?

shows anything like counter when u press a key,

example :

u press & hold entere,

this shows :

1
2
3
4
5
6...
200 & when u lose the key, this count the number .


All times are GMT -4. The time now is 01:27.

Powered by vBulletin®
Copyright ©2000 - 2024, vBulletin Solutions, Inc.