Нужны исходники WinForms приложений

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 
uses System.Windows.Forms,
     System.Drawing;
 
type 
  BallClass = class
  public   
    pos : Point;
    
    constructor(startPos : Point);
    begin
      pos := startPos;
    end;
  end;
  
  MainFormClass = class(Form)
  private
    procedure t_Tick(sender : object; args : System.EventArgs);
    begin
      tack += 1;
      if tack < 3 then
        if map[Ball.pos.Y-1,Ball.pos.X] <> 2 then
        begin
          Ball.pos.Y -= 1;
          Draw;
        end;
      if tack >= 3 then
        if map[Ball.pos.Y+1,Ball.pos.X] <> 2 then
        begin
          Ball.pos.Y += 1;
          Draw;
        end
        else
        begin
          (sender as Timer).Stop;
          tack := 0;
        end;
    end;
  
    procedure Bg_KeyDown(sender : object; args : KeyEventArgs);
    begin
      if args.KeyCode = Keys.Right then
      begin
        if map[Ball.pos.Y,Ball.pos.X+1] <> 2 then
        begin
          Ball.pos.X += 1;
          Draw;
          if map[Ball.pos.Y+1,Ball.pos.X] = 0 then
          begin
            tack := 3;
            var t := new Timer;
            t.Interval := 150;
            t.Tick += t_Tick;
            t.Start;
          end;
        end;
      end;
      
      if args.KeyCode = Keys.Left then
      begin
        if map[Ball.pos.Y,Ball.pos.X-1] <> 2 then
        begin
          Ball.pos.X -= 1;
          Draw;
          tack := 3;
          var t := new Timer;
          t.Interval := 150;
          t.Tick += t_Tick;
          t.Start;
        end;
      end;
      
      if args.KeyCode = Keys.Up then
      begin
        if (map[Ball.pos.Y-1,Ball.pos.X] <> 2) and (tack = 0) then
        begin
          var t := new Timer;
          t.Interval := 150;
          t.Tick += t_Tick;
          t.Start;
          Draw;
        end;
      end;
      
      if map[Ball.pos.Y,Ball.pos.X] = 3 then
      begin
        MessageBox.Show('Уровень пройден!');
        Close;
      end;
    end;
  
  public
    Background := new PictureBox;
    Ball : BallClass;
    map : array [,] of integer;
    tack := 0;
    
    procedure ReadMap(FileName : string);
    begin
      var f : PABCSystem.Text;
      assign(f,FileName);
      reset(f);
      var w,h : integer;
      read(f,w,h);
      map := new integer[h,w];
      for var i := 0 to h-1 do
        for var j := 0 to w-1 do
        begin
          seekeof(f);
          read(f,map[i,j]);
          if map[i,j] = 1 then
          begin
            Ball := new BallClass(new Point(j,i));
            map[i,j] := 0;
          end;
        end;
      PABCSystem.close(f);
    end;
    
    constructor(FileName : string);
    begin
      ReadMap(FileName);
      Background.BackColor := Color.White;
      Background.Location := new Point(10,10);
      Background.Size := new System.Drawing.Size(map.GetLength(1)*30,map.GetLength(0)*30);
      Background.KeyDown += Bg_KeyDown;
      
      KeyDown += Bg_KeyDown;
      Size := new System.Drawing.Size(Background.Width+40,Background.Height+60);
      Controls.Add(Background);
    end;
    
    procedure Draw;
    begin
      Background.Image := new Bitmap(Background.Width,Background.Height);
      for var i := 0 to map.GetLength(0)-1 do
        for var j := 0 to map.GetLength(1)-1 do
        begin
          var Gr := Graphics.FromImage(Background.Image);
          case map[i,j] of
            2 : Gr.FillRectangle(brushes.Orange,j*30,i*30,30,30);
            3 : Gr.FillRectangle(brushes.Black,j*30,i*30,30,30);
          end;
          Gr.FillEllipse(brushes.Red,Ball.pos.x*30,Ball.pos.Y*30,30,30);
        end;
    end;
  end;
 
var MainForm : MainFormClass;
 
begin
  MainForm := new MainFormClass('Map.txt');
  MainForm.Draw;
  application.Run(MainForm);
end.

// Автор:ValeraGin ICQ:583890030 E-Mail:valeragin@gmail.com Дата:16.08.2009
#apptype windows
#reference 'System.Windows.Forms.dll'
#reference 'System.Drawing.dll'
 
#mainresource 'SimpleCalc.res'
 
uses 
  System.Windows.Forms,
  System.Drawing;
  
const 
  /// максимальное количество символов в Edit'e
  MaxCountSymbolsInEdit = 24;
  
  /// отступ кнопок от левого края  
  XIndent = 5; 
  /// Отступ кнопок от верхнего края  
  YIndent = XIndent+37+XIndent;
  /// ширина кнопок 
  ButtonWidth = 55; 
  /// высота кнопок
  ButtonHeigth = 40; 
  /// промежуток между кнопками
  ButtonInterval = 6;  
  /// Размер шрифта для кнопок
  ButtonFontSize = 14;
  
  FormClientWidth = XIndent+(ButtonWidth*5)+(ButtonInterval*4)+XIndent;
  FormClientHeigth = YIndent+(ButtonHeigth*5)+(ButtonInterval*4)+XIndent;
  
  
 
  // цвета кнопок
  NumbersColor = Color.FloralWhite;
  FunctionColor = Color.AntiqueWhite;
  MemoryColor = Color.LightGray;
  CEColor = Color.PowderBlue;
 
  VK_Enter = 13;
  VK_Back = 8;
  VK_Add = 107; 
  VK_Subtract = 109;
  VK_Divide = 111;
  VK_Multiply = 106;
  
  
type
  Buttons =
    (bMemoryAdd, bMemorySubstract, bMemoryClear, bMemoryRecall, bPlus,
     bSqrt, d7, d8, d9, bDivision,
     bPow, d4, d5, d6, bMultiplication,
     b1x, d1, d2, d3, bSubtraction,
     bClear, d0, bPoint, bExactly,  bAddition);
  TAction  = (None, Addition, Subtraction, Multiplication, Division);
    
var
  CalcForm: Form;
  ResultEdit: TextBox;
  Memory: real;
  SaveLastNumber: real;
  CurrentAction:=None;
  NeedClearEdit: boolean;
  
  LastAction:=None;
  LastNumber: real;
  
  ButtonsArray: array of button; 
  ButtonsColor: array of color := 
  (MemoryColor,     MemoryColor,   MemoryColor,     MemoryColor,         FunctionColor,
   FunctionColor,   NumbersColor,  NumbersColor,    NumbersColor,        FunctionColor,
   FunctionColor,   NumbersColor,  NumbersColor,    NumbersColor,        FunctionColor,
   FunctionColor,   NumbersColor,  NumbersColor,    NumbersColor,        FunctionColor,
   CEColor,         NumbersColor,  NumbersColor,    FunctionColor,       FunctionColor); 
    
  ButtonsNames: array of string := 
   ('MS', 'M-', 'MC', 'MR', '+/-',
    '√‾', '7', '8', '9', '/',
    'x²', '4', '5', '6', '*',
    '1/x', '1', '2', '3', '-',
    'CE', '0', '.', '=', '+');
 
procedure DoExactly;
begin
  if CurrentAction<>none then 
  begin
    if SaveLastNumber<>0 then 
    begin
      var NowReal: real;
      if TryStrToFloat(ResultEdit.Text, NowReal) then 
      begin
        if not ((NowReal=0) and (CurrentAction=Division)) then 
        begin
          var ResultOperation: real;
          case CurrentAction of 
            Addition:       ResultOperation:=SaveLastNumber+NowReal;
            Subtraction:    ResultOperation:=SaveLastNumber-NowReal;
            Multiplication: ResultOperation:=SaveLastNumber*NowReal;
            Division:       ResultOperation:=SaveLastNumber/NowReal; 
          end;
          ResultEdit.Text:=FloatToStr(ResultOperation);
          NeedClearEdit:=True;
        end 
        else
        begin
          ResultEdit.Text:='Ошибка!';
          NeedClearEdit:=True;
        end;
      end;
    end;
  end 
  else
    if (LastAction<>none) and (LastNumber<>0) then
    begin
      var NowReal: real;
      if TryStrToFloat(ResultEdit.Text, NowReal) then 
      begin
        if not ((LastNumber=0) and (LastAction=Division)) then 
        begin
          var ResultOperation: real;
          case LastAction of 
            Addition:       ResultOperation:=NowReal+LastNumber;
            Subtraction:    ResultOperation:=NowReal-LastNumber;
            Multiplication: ResultOperation:=NowReal*LastNumber;
            Division:       ResultOperation:=NowReal/LastNumber; 
          end;
          ResultEdit.Text:=FloatToStr(ResultOperation);
          NeedClearEdit:=True;
        end 
        else
        begin
          ResultEdit.Text:='Ошибка!';
          NeedClearEdit:=True;
        end;
      end;
    end;
  CurrentAction:=None; 
end;
 
procedure SetArithmeticOperations(Action: TAction);
begin
  if (CurrentAction<>None) and (not NeedClearEdit) then DoExactly;
  if ResultEdit.Text.Length<>0 then 
  begin
    if TryStrToFloat(ResultEdit.Text, SaveLastNumber) then 
    begin
      NeedClearEdit:=True;
      CurrentAction:=Action; 
      LastAction:=Action;
      LastNumber:=SaveLastNumber;
    end;  
  end;   
end;
 
procedure AddSymbolToEdit(ch: char);
begin
  if NeedClearEdit then
  begin
    if ch='.' then exit;
    ResultEdit.Text:='';
    NeedClearEdit:=False;
  end;
  if (ResultEdit.Text.Length>MaxCountSymbolsInEdit) then exit;
  if char.IsNumber(ch) then
  begin
    if ResultEdit.Text='0' then 
      ResultEdit.Text:=ch 
    else
      ResultEdit.Text+=ch
  end
  else if ch = '.' then if (ResultEdit.Text.IndexOf('.')=-1) then ResultEdit.Text+=ch;
end;
 
// Событие при нажатие на любую кнопку
procedure ButtonOnClick(sender: Object; e: System.EventArgs);
begin
  case Buttons(System.&Array.IndexOf(ButtonsArray, (sender as Button))) of
     d0: AddSymbolToEdit('0');
     d1: AddSymbolToEdit('1');
     d2: AddSymbolToEdit('2');
     d3: AddSymbolToEdit('3');
     d4: AddSymbolToEdit('4');
     d5: AddSymbolToEdit('5');
     d6: AddSymbolToEdit('6');
     d7: AddSymbolToEdit('7');
     d8: AddSymbolToEdit('8');
     d9: AddSymbolToEdit('9');
     bPoint: AddSymbolToEdit('.');
     bClear:
       begin
         CurrentAction:=None;
         SaveLastNumber:=0;
         ResultEdit.Text:='0';
       end;
     bAddition: 
       begin
         SetArithmeticOperations(Addition);
       end;  
     bSubtraction: 
       begin
         SetArithmeticOperations(Subtraction);
       end;  
     bMultiplication: 
       begin
         SetArithmeticOperations(Multiplication);
       end;
     bDivision: 
       begin
         SetArithmeticOperations(Division);
       end;      
      bSqrt: 
       begin         
         var r: real;
         if TryStrToFloat(ResultEdit.Text, r) then
           ResultEdit.Text:=FloatToStr(sqrt(r));
       end;
      bPow: 
       begin         
         var r: real;
         if TryStrToFloat(ResultEdit.Text, r) then
           ResultEdit.Text:=FloatToStr(r*r);
       end; 
       
      b1x: 
       begin         
         var r: real;
         if TryStrToFloat(ResultEdit.Text, r) then
           ResultEdit.Text:=FloatToStr(1/r);
       end;          
     bExactly: 
       begin
         DoExactly;
       end;
     bMemoryAdd: 
       begin
         if ResultEdit.Text.Length<>0 then 
         begin
           if Memory=0 then 
           begin
             if TryStrToFloat(ResultEdit.Text, Memory) then 
             begin
               if Memory<>0 then 
               begin
                 ButtonsArray[0].Text:='M+';
                 ButtonsArray[1].Enabled:=True;
                 ButtonsArray[2].Enabled:=True;
                 ButtonsArray[3].Enabled:=True;
               end;  
             end;
           end else
             Memory+=StrToFloat(ResultEdit.Text);
         end;
       end;
      bMemorySubstract: 
       begin
         if ResultEdit.Text.Length<>0 then 
         begin
           if Memory<>0 then 
           begin
             var r: real;
             if TryStrToFloat(ResultEdit.Text, r) then 
             begin
               Memory-=r;
               if Memory=0 then 
               begin
                 ButtonsArray[0].Text:='MS';
                 ButtonsArray[1].Enabled:=False;
                 ButtonsArray[2].Enabled:=False;
                 ButtonsArray[3].Enabled:=False;
               end;
             end;
           end;
         end;
       end;       
     bMemoryRecall: 
       begin
         if Memory<>0 then
           ResultEdit.Text:=FloatToStr(Memory);
       end;
     bMemoryClear:  
       begin
         ButtonsArray[0].Text:='MS';
         ButtonsArray[1].Enabled:=False;
         ButtonsArray[2].Enabled:=False;
         ButtonsArray[3].Enabled:=False;
         Memory:=0;
       end; 
     bPlus: 
       begin
         if ResultEdit.Text[1]<>'-' then 
           ResultEdit.Text:=ResultEdit.Text.Insert(0, '-')
         else ResultEdit.Text:=ResultEdit.Text.Remove(0, 1);
       end; 
  end;
end;
 
procedure OnKeyPress(sender: Object; e: KeyPressEventArgs);
begin
  if ((char.IsNumber(e.KeyChar)) or (e.KeyChar = '.')) then AddSymbolToEdit(e.KeyChar);
  case ord(e.KeyChar) of 
    VK_Back:
      if (ResultEdit.Text.Length>0) and (ResultEdit.Text<>'0') then 
      begin
        ResultEdit.Text := ResultEdit.Text.Substring(0,ResultEdit.Text.Length-1);
        if ResultEdit.Text.Length=0 then ResultEdit.Text:='0';
      end;  
    VK_Enter:DoExactly;
    VK_Add:SetArithmeticOperations(Addition);
    VK_Subtract:SetArithmeticOperations(Subtraction);
    VK_Multiply:SetArithmeticOperations(Multiplication);
    VK_Divide:SetArithmeticOperations(Division);
  end;
end;
 
procedure OnEnter(sender: Object; e: System.EventArgs);
begin
  CalcForm.ActiveControl := nil;
end;
 
procedure InitControls;
begin
  // Создаем TEdit
  ResultEdit := new TextBox;
  ResultEdit.RightToLeft:=RightToLeft.Yes;
  ResultEdit.BackColor:=Color.White;
  ResultEdit.SetBounds(XIndent, XIndent, FormClientWidth-(XIndent*2), 30);
  ResultEdit.Font:=new Font(new FontFamily('Tahoma'), 16, FontStyle.Regular);
  ResultEdit.KeyPress+=OnKeyPress;
  ResultEdit.ReadOnly := True;
  ResultEdit.TabStop := False;
  ResultEdit.Enter += OnEnter;
  ResultEdit.Text:='0';
  CalcForm.Controls.Add(ResultEdit);
  
  
  // Создаем кнопки
  var XPos:=XIndent;
  var YPos:=YIndent;
  SetLength(ButtonsArray, Length(ButtonsNames));
  var ButtonFont:=new Font(new FontFamily('Tahoma'), ButtonFontSize, FontStyle.Regular);
  for var i:=0 to Length(ButtonsNames)-1 do
  begin
    ButtonsArray[i]:= new Button;
    ButtonsArray[i].SetBounds(XPos, YPos, ButtonWidth, ButtonHeigth);
    ButtonsArray[i].Click+=ButtonOnClick;
    ButtonsArray[i].KeyPress+=OnKeyPress;
    ButtonsArray[i].Text:=ButtonsNames[i];
    ButtonsArray[i].Font:=ButtonFont;
    ButtonsArray[i].BackColor:=ButtonsColor[i];
    ButtonsArray[i].TabStop := False;
    ButtonsArray[i].Enter += OnEnter;
    if (Buttons(i)=bMemoryRecall) or (Buttons(i)=bMemorySubstract) or (Buttons(i)=bMemoryClear) then ButtonsArray[i].Enabled:=False;
    CalcForm.Controls.Add(ButtonsArray[i]);
    
    // Определяем координаты следующей кнопки, которая будет создана
    XPos:=XPos+ButtonInterval+ButtonWidth;
    if (((i+1) mod 5)=0) and (i<>0) then
    begin
      XPos-=((ButtonInterval+ButtonWidth)*5);
      YPos+=ButtonInterval+ButtonHeigth;
    end;
  end;
end;
 
begin
  // Создаем форму
  CalcForm := new Form;
  CalcForm.Text := 'Simple Calculator';
  CalcForm.ClientSize:= new Size(FormClientWidth,FormClientHeigth);
  CalcForm.FormBorderStyle:=FormBorderStyle.FixedSingle; 
  CalcForm.MaximizeBox:=False;
  CalcForm.BackColor:=Color.White;
  CalcForm.KeyPress+=OnKeyPress;
  
  // Добавлем на неё компоненты
  InitControls;
   
  // Включаем тему WinXP
  Application.EnableVisualStyles;
  
  // Запускаем приложение
  Application.Run(CalcForm);
end.

{$mainresource MultTab.res}
#apptype windows
#reference 'System.Windows.Forms.dll'
#reference 'System.Drawing.dll'
#reference 'AlphaBlendTextBox.dll' // Не обращайте внимания на эту библиотеку она используется "для красоты)"
#resource 'images/background.gif'
#resource 'images/play.png'
#resource 'images/exit.png'
#resource 'images/help.png'
#resource 'images/exam.png'
#resource 'images/hint.gif'
uses
  System.Windows.Forms,
  System.Drawing;
 
var
  a, b, c, f, g, j, i, q: integer;
  d, l: string;
  m: boolean;
  MT, HintForm2: Form;
  tx1, tx2, tx3, tx4, tx5, tx6, tx8, tx9, tx10, tx16, tx17: System.Windows.Forms.Label;
  button1, button2: Button;
  tb1, tb2, tb3: ZBobb.AlphaBlendTextBox;
  tx1Font := new Font(new FontFamily('Comic Sans MS'), 13);
  tx2Font := new Font(new FontFamily('Comic Sans MS'), 11);
  tx3Font := new Font(new FontFamily('Comic Sans MS'), 9);
  tx4Font := new Font(new FontFamily('Comic Sans MS'), 30);
  tx5Font := new Font(new FontFamily('Comic Sans MS'), 16);
  Ic := new Icon('images/ico/MultTab.ico');
  Im : System.Drawing.Image;
 
procedure value;
begin
  a := random(10);
  b := random(10);
  c := a * b;
end;
 
procedure Tr(sender: object; args: System.EventArgs);
begin
  f := 0;
  g := 0;
  tx10.Text := g.ToString;
  tx9.Text := f.ToString;
  tx8.Text := '';
  q := 0;
  tx17.Text := q.ToString;
  
  j := 0;
  
  m := true;
end;
 
procedure ButClick(s: object; e: System.EventArgs);
begin
  
  if i < 5 then
  i:= i+1
  else
  i:= i+0;
  
  d := tb3.Text;
  if m = true then
  begin
    
    if d = c.ToString then
    begin
      tx8.Text := 'Правильно!';
      tx8.ForeColor := Color.Green;
      
      f := f + 1;
      tx9.Text := f.ToString;
      
      value;
      tb1.Text := a.ToString();
      tb2.Text := b.ToString();
      
      tb3.Text := '';
      
      MT.Controls.Add(tx8);
    end
    
    else 
    begin
      tx8.Text := 'Неправильно!';
      tx8.ForeColor := Color.Red;
      
      g := g + 1;
      tx10.Text := g.ToString;
      
      value;
      tb1.Text := a.ToString();
      tb2.Text := b.ToString();
      
      tb3.Text := '';
      
      MT.Controls.Add(tx8);
    end;
  end;
  
  if m = false then
  begin
    if j < 9 then
    begin
      j := f + g;
      if d = c.ToString then
      begin
        tx8.Text := 'Правильно!';
        tx8.ForeColor := Color.Green;
        
        f := f + 1;
        tx9.Text := f.ToString;
        
        value;
        tb1.Text := a.ToString();
        tb2.Text := b.ToString();
        
        tb3.Text := '';
        
        MT.Controls.Add(tx8);
      end
      
        else 
      begin
        tx8.Text := 'Неправильно!';
        tx8.ForeColor := Color.Red;
        
        g := g + 1;
        tx10.Text := g.ToString;
        
        value;
        tb1.Text := a.ToString();
        tb2.Text := b.ToString();
        
        tb3.Text := '';
        
        MT.Controls.Add(tx8);
      end;
      if j = 9 then
      begin
        
        case f of
          0: l := '2';
          1: l := '2';
          2: l := '2';
          3: l := '2+';
          4: l := '3';
          6: l := '4-';
          7: l := '4';
          8: l := '4+';
          9: l := '5-';
          10: l := '5';
        end;
        
        var button2 := new Button;
        button2.Text := 'Ок';
        button2.Top := 35;
        button2.Left := 50;
        button2.BackColor := Color.White;
        button2.Click += Tr;
        
        var tx14 := new System.Windows.Forms.Label;
        tx14.Text := 'Ваша оценка:';
        tx14.Left := 50;
        tx14.Width := 150;
        tx14.Height := 30;
        tx14.ForeColor := Color.Blue;
        tx14.TextAlign := System.Drawing.ContentAlignment.TopCenter;
        tx14.Font := tx1Font;
        
        var tx15 := new System.Windows.Forms.Label;
        tx15.Text := l;
        tx15.Top := 25;
        tx15.Left := 50;
        tx15.Width := 150;
        tx15.Height := 30;
        tx15.ForeColor := Color.Red;
        tx15.TextAlign := System.Drawing.ContentAlignment.TopCenter;
        tx15.Font := tx5Font;
        
        var RezForm := new Form;
        RezForm.FormBorderStyle := FormBorderStyle.FixedSingle;
        RezForm.MaximizeBox := False;
        RezForm.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
        RezForm.Text := 'Результат';
        RezForm.BackColor := Color.LightBlue;
        RezForm.Icon := Ic;
        RezForm.Width := 250;
        RezForm.Height := 90;
        
        RezForm.Controls.Add(tx14);
        RezForm.Controls.Add(tx15);
        RezForm.ShowDialog(MT);
      end
    end;
  end;
end;
 
procedure Rest(sender: object; args: System.EventArgs);
begin
  f := 0;
  g := 0;
  tx10.Text := g.ToString;
  tx9.Text := f.ToString;
  tx8.Text := '';
  q := 0;
  tx17.Text := q.ToString;
end;
 
procedure Ext(sender: object; args: System.EventArgs);
begin
  MT.Close;
end;
 
procedure Hel(sender: object; args: System.EventArgs);
begin
  var HelpForm := new Form;
  HelpForm.FormBorderStyle := FormBorderStyle.FixedSingle;
  HelpForm.MaximizeBox := False;
  HelpForm.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
  HelpForm.Text := 'Помощь';
  HelpForm.BackColor := Color.White;
  HelpForm.Icon := Ic;
  HelpForm.Width := 250;
  HelpForm.Height := 200;
  
  var tb := new TextBox;
  tb.Multiline := True;
  tb.Dock := DockStyle.Fill;
  tb.ScrollBars := ScrollBars.Both;
  tb.BackColor := Color.White;
  tb.ReadOnly := true;
  tb.Font := tx3Font;
  tb.Text := 'MultTab - это программа, которая поможет Вам выучить таблицу умножения. В программе есть 2 режима: тренировка и экзамен. В режиме тренировки Вы можете отточить свои навыки. В режиме экзамена Вы можете проверить свои знания. Вам будет дано 10 примеров, после их решения Вы получите оценку. Удачи!';
  
  HelpForm.Controls.Add(tb);
  HelpForm.ShowDialog(MT);
end;
 
procedure InfoProg(sender: object; args: System.EventArgs);
begin
  var ProgForm := new Form;
  ProgForm.FormBorderStyle := FormBorderStyle.FixedSingle;
  ProgForm.MaximizeBox := False;
  ProgForm.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
  ProgForm.Text := 'О программе';
  ProgForm.BackColor := Color.LightBlue;
  ProgForm.Width := 250;
  ProgForm.Height := 110;
  ProgForm.Icon := Ic;
  var tx11 := new System.Windows.Forms.Label;
  tx11.Text := 'MultTab';
  tx11.Left := 50;
  tx11.Width := 150;
  tx11.Height := 30;
  tx11.ForeColor := Color.Blue;
  tx11.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx11.Font := tx1Font;
  var tx12 := new System.Windows.Forms.Label;
  tx12.Text := 'Версия программы: 2.1.01';
  tx12.Top := 30;
  tx12.Width := 180;
  tx12.Height := 20;
  tx12.Font := new System.Drawing.Font('Comic Sans MS', 10);
  var tx13 := new System.Windows.Forms.Label;
  tx13.Text := 'Автор программы: Бабошин Сергей.';
  tx13.Top := 50;
  tx13.Width := 250;
  tx13.Height := 20;
  tx13.Font := new System.Drawing.Font('Comic Sans MS', 10);
  
  ProgForm.Controls.Add(tx11);
  ProgForm.Controls.Add(tx12);
  ProgForm.Controls.Add(tx13);
  ProgForm.ShowDialog(MT);
end;
 
procedure Exm(sender: object; args: System.EventArgs);
begin
  f := 0;
  g := 0;
  tx10.Text := g.ToString;
  tx9.Text := f.ToString;
  tx8.Text := '';
  q := 0;
  tx17.Text := q.ToString;
  
  j := 0;
  
  m := false;
end;
 
procedure HintForm2Close (sender: object; args: System.EventArgs);
  begin
  HintForm2.Close;
  end;
 
procedure HintClick (sender: object; args: System.EventArgs);
 begin
 if i = 5 then
 begin
  var HintForm1 := new Form;
  HintForm1.FormBorderStyle := FormBorderStyle.FixedSingle;
  HintForm1.MaximizeBox := False;
  HintForm1.StartPosition := FormStartPosition.CenterScreen;
  HintForm1.Text := 'Подсказка';
  HintForm1.BackgroundImage := new System.Drawing.Bitmap(GetResourceStream('hint.gif'));
  HintForm1.Width := 305;
  HintForm1.Height := 245;
  HintForm1.Icon := Ic;
  
  i:= 0;
  
  q:= q+1;
  tx17.Text:= q.ToString;
  
  HintForm1.ShowDialog(MT);
 end
 else
 begin
  HintForm2 := new Form;
  HintForm2.FormBorderStyle := FormBorderStyle.FixedSingle;
  HintForm2.MaximizeBox := False;
  HintForm2.StartPosition := FormStartPosition.CenterScreen;
  HintForm2.Text := 'Подсказка';
  HintForm2.BackColor := Color.LightBlue;
  HintForm2.Width := 250;
  HintForm2.Height := 125;
  HintForm2.Icon := Ic;
  
  var tx18 := new System.Windows.Forms.Label;
  tx18.Text := 'Следующая подсказка доступна если решены 5 примеров после предыдущей!';
  tx18.Width := 245;
  tx18.Height := 60;
  tx18.ForeColor := Color.Blue;
  tx18.BackColor := System.Drawing.Color.Transparent;;
  tx18.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx18.Font := tx2Font;
  
  button2 := new Button;
  button2.Text := 'Ок';
  button2.Top := 65;
  button2.Left := 85;
  button2.BackColor := Color.White;
  button2.Click += HintForm2Close;
  
  HintForm2.Controls.Add(tx18);
  HintForm2.Controls.Add(button2);
  HintForm2.ShowDialog(MT);
  end;
end;
 
begin
  m := true;
  
  i := 0;
  
  value;
  
  var LayBC := System.Drawing.Color.Transparent;
  
  tx1 := new System.Windows.Forms.Label;
  tx1.Text := 'Это тренажёр "Таблица умножения". Он помогает улучшить знания таблицы умножения.';
  tx1.Top := 25;
  tx1.Width := 445;
  tx1.Height := 50;
  tx1.ForeColor := Color.Blue;
  tx1.BackColor := LayBC;
  tx1.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx1.Font := tx1Font;
  
  tx2 := new System.Windows.Forms.Label;
  tx2.Text := 'Решите несколько примеров:';
  tx2.Top := 85;
  tx2.Width := 445;
  tx2.Height := 20;
  tx2.ForeColor := Color.Blue;
  tx2.BackColor := LayBC;
  tx2.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx2.Font := tx2Font;
  
  tx3 := new System.Windows.Forms.Label;
  tx3.Text := 'x';
  tx3.Top := 115;
  tx3.Left := 167;
  tx3.Width := 30;
  tx3.Height := 50;
  tx3.ForeColor := Color.Blue;
  tx3.BackColor := LayBC;
  tx3.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx3.Font := tx4Font;
  
  tx4 := new System.Windows.Forms.Label;
  tx4.Text := '=';
  tx4.Top := 115;
  tx4.Left := 235;
  tx4.Width := 30;
  tx4.Height := 50;
  tx4.ForeColor := Color.Blue;
  tx4.BackColor := LayBC;
  tx4.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx4.Font := tx4Font;
  
  tx5 := new System.Windows.Forms.Label;
  tx5.Text := 'Правильных ответов: ';
  tx5.Top := 245;
  tx5.Width := 195;
  tx5.Height := 25;
  tx5.ForeColor := Color.Blue;
  tx5.BackColor := LayBC;
  tx5.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx5.Font := tx1Font;
  
  tx9 := new System.Windows.Forms.Label;
  tx9.Text := f.ToString;
  tx9.Top := 245;
  tx9.Left := 190;
  tx9.Width := 40;
  tx9.Height := 25;
  tx9.ForeColor := Color.Green;
  tx9.BackColor := LayBC;
  tx9.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx9.Font := tx1Font;
  
  tx6 := new System.Windows.Forms.Label;
  tx6.Text := 'Неправильных ответов: ';
  tx6.Top := 270;
  tx6.Width := 215;
  tx6.Height := 25;
  tx6.ForeColor := Color.Blue;
  tx6.BackColor := LayBC;
  tx6.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx6.Font := tx1Font;
  
  tx10 := new System.Windows.Forms.Label;
  tx10.Text := g.ToString;
  tx10.Top := 270;
  tx10.Left := 210;
  tx10.Width := 40;
  tx10.Height := 25;
  tx10.ForeColor := Color.Red;
  tx10.BackColor := LayBC;
  tx10.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx10.Font := tx1Font;
  
  tx8 := new System.Windows.Forms.Label;
  tx8.Top := 210;
  tx8.Left := 150;
  tx8.Width := 140;
  tx8.Height := 50;
  tx8.BackColor := LayBC;
  tx8.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx8.Font := tx1Font;
  
  tx16 := new System.Windows.Forms.Label;
  tx16.Text := 'Подсказок использовано: ';
  tx16.Top := 295;
  tx16.Width := 230;
  tx16.Height := 25;
  tx16.ForeColor := Color.Blue;
  tx16.BackColor := LayBC;
  tx16.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx16.Font := tx1Font;
  
  tx17 := new System.Windows.Forms.Label;
  tx17.Text := q.ToString;
  tx17.Top := 295;
  tx17.Left := 220;
  tx17.Width := 40;
  tx17.Height := 25;
  tx17.ForeColor := Color.Orange;
  tx17.BackColor := LayBC;
  tx17.TextAlign := System.Drawing.ContentAlignment.TopCenter;
  tx17.Font := tx1Font;
  
  var tbBC := Color.AntiqueWhite;
  var tbFC := Color.Blue;
  var tbBS := System.Windows.Forms.BorderStyle.None;
  
  tb1 := new ZBobb.AlphaBlendTextBox;
  tb1.Text := a.ToString();
  tb1.Top := 115;
  tb1.Left := 135;
  tb1.Width := 30;
  tb1.Height := 50;
  tb1.ForeColor := tbFC;
  tb1.BackColor := tbBC;
  tb1.BorderStyle := tbBS;
  tb1.BackAlpha := 0;
  tb1.ReadOnly := true;
  tb1.TabStop := False;
  tb1.Font := tx4Font;
  
  tb2 := new ZBobb.AlphaBlendTextBox;
  tb2.Text := b.ToString();
  tb2.Top := 115;
  tb2.Left := 200;
  tb2.Width := 30;
  tb2.Height := 50;
  tb2.ForeColor := tbFC;
  tb2.BackColor := tbBC;
  tb2.BorderStyle := tbBS;
  tb2.BackAlpha := 0;
  tb2.ReadOnly := true;
  tb2.TabStop := False;
  tb2.Font := tx4Font;
  
  tb3 := new ZBobb.AlphaBlendTextBox;
  tb3.Top := 115;
  tb3.Left := 267;
  tb3.Width := 60;
  tb3.Height := 80;
  tb3.ForeColor := tbFC;
  tb3.BackColor := tbBC;
  tb3.BorderStyle := tbBS;
  tb3.BackAlpha := 0;
  tb3.Font := tx4Font;
  tb3.MaxLength := 2; 
  
  button1 := new Button;
  button1.Text := 'Ок';
  button1.Top := 180;
  button1.Left := 180;
  button1.BackColor := Color.White;
  button1.Click += ButCLick;
  
  var TS := new ToolStrip;
  TS.GripStyle := System.Windows.Forms.ToolStripGripStyle.Hidden;
  TS.BackColor := Color.LightBlue;
  TS.Font := tx3Font;
  var Game := new ToolStripMenuItem('Игра');
  Game.ForeColor := Color.Blue;
  var Restart := new ToolStripMenuItem;
  Restart.Text := 'Начать заново';
  Restart.ForeColor := Color.Blue;
  Restart.Click += Rest;
  Restart.Image := new System.Drawing.Bitmap(GetResourceStream('play.png'));
  Game.DropDownItems.Add(Restart);
  var Hint := new ToolStripMenuItem;
  Hint.Text := 'Подсказка';
  Hint.ForeColor := Color.Blue;
  Hint.Click += HintClick;
  Game.DropDownItems.Add(Hint);
  var Ex := new ToolStripMenuItem;
  Ex.Text := 'Выход';
  Ex.ForeColor := Color.Blue;
  Ex.Click += Ext;
  Ex.Image := new System.Drawing.Bitmap(GetResourceStream('exit.png'));
  Game.DropDownItems.Add(Ex);
  TS.Items.Add(Game);
  
  var Rezhim := new ToolStripMenuItem('Режим');
  Rezhim.Text := 'Режим';
  Rezhim.ForeColor := Color.Blue;
  var Tren := new ToolStripMenuItem;
  Tren.Text := 'Тренировка';
  Tren.ForeColor := Color.Blue;
  Tren.Click += Tr;
  Rezhim.DropDownItems.Add(Tren);
  var Exam := new ToolStripMenuItem;
  Exam.Text := 'Экзамен';
  Exam.ForeColor := Color.Blue;
  Exam.Click += Exm;
  Exam.Image := new System.Drawing.Bitmap(GetResourceStream('exam.png'));
  Rezhim.DropDownItems.Add(Exam);
  
  TS.Items.Add(Rezhim);
  
  var Info := new ToolStripMenuItem('Справка');
  Info.ForeColor := Color.Blue;
  var Help := new ToolStripMenuItem;
  Help.Text := 'Помощь';
  Help.ForeColor := Color.Blue;
  Help.Click += Hel;
  Help.Image := new System.Drawing.Bitmap(GetResourceStream('help.png'));
  Info.DropDownItems.Add(Help);
  var Prog := new ToolStripMenuItem;
  Prog.Text := 'О программе';
  Prog.ForeColor := Color.Blue;
  Prog.Click += InfoProg;
  Info.DropDownItems.Add(Prog);
  TS.Items.Add(Info);
  
  MT := new Form;
  MT.FormBorderStyle := FormBorderStyle.FixedSingle;
  MT.MaximizeBox := False;
  MT.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
  MT.Icon := Ic;
  MT.Text := 'Тренажёр "Таблица умножения"';
  MT.Width := 450;
  MT.Height := 350;
  Im := new System.Drawing.Bitmap(GetResourceStream('background.gif'));
  MT.BackgroundImage := Im;
  
  MT.Controls.Add(tx1);
  MT.Controls.Add(tx2);
  MT.Controls.Add(tx3);
  MT.Controls.Add(tx4);
  MT.Controls.Add(tx5);
  MT.Controls.Add(tx6);
  MT.Controls.Add(tx9);
  MT.Controls.Add(tx10);
  MT.Controls.Add(tx16);
  MT.Controls.Add(tx17);
  MT.Controls.Add(tb1);
  MT.Controls.Add(tb2);
  MT.Controls.Add(tb3);
  MT.Controls.Add(button1);
  MT.Controls.Add(TS);
  
  Application.EnableVisualStyles;
  
  Application.Run(MT);
end.