Raised This Month: $ Target: $400
 0% 

delphi to amxx


  
 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
Author Message
One
Veteran Member
Join Date: Oct 2008
Location: Hardstyle-eSports.de
Old 05-25-2009 , 03:51   delphi to amxx
Reply With Quote #1

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?
__________________
One is offline
Send a message via ICQ to One Send a message via AIM to One Send a message via MSN to One Send a message via Yahoo to One Send a message via Skype™ to One
 


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


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


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