Полезные коды для PascalABC.NET

uses
  GraphABC;
 
const
  file_name = 'model[3].jpg';
 
var
  pict: Picture;
 
///Негатив
function Negative(_sourcePict: Picture): Picture;
begin
  Result := new Picture(_sourcePict.Width, _sourcePict.Height);
  for var i := 0 to _sourcePict.Width - 1 do
    for var j := 0 to _sourcePict.Height - 1 do
    begin
      var col := _sourcePict.GetPixel(i, j);
      col := Color.FromArgb(255 - col.R, 255 - col.G, 255 - col.B);
      Result.SetPixel(i, j, col);
    end;
end;
 
///Резкость цвета
function Harshness(_sourcePict: Picture): Picture;
begin
  Result := new Picture(_sourcePict.Width, _sourcePict.Height); 
  for var i := 0 to _sourcePict.Width - 1 do
    for var j := 0 to _sourcePict.Height - 1 do
    begin
      var col := _sourcePict.GetPixel(i, j);
      col := Color.FromArgb(255 * (col.R div 128), 255 * (col.G div 128), 255 * (col.B div 128));
      Result.SetPixel(i, j, col);
    end;
end;
 
///Ч-Б
function BlackWhite(_sourcePict: Picture): Picture;
begin
  Result := new Picture(_sourcePict.Width, _sourcePict.Height);
  for var i := 0 to _sourcePict.Width - 1 do
    for var j := 0 to _sourcePict.Height - 1 do
    begin
      var col := _sourcePict.GetPixel(i, j);
      var temp := Round((col.R + col.G + col.B) / 3);
      col := Color.FromArgb(temp, temp, temp);
      Result.SetPixel(i, j, col);
    end;
end;
 
 
begin
  //Имя окна
  Window.Caption := 'Фото-фильтр';
  //Открываем оригинал фотографии
  pict := new Picture(file_name);
  //Устанавливаем удобные размеры и расположение окна
  Window.SetSize(pict.Width * 2 + 30, pict.Height * 2 + 30);
  Window.CenterOnScreen;
  //Рисуем оригинал
  pict.Draw(10, 10);
  //Рисуем негатив
  Negative(pict).Draw(pict.Width + 20, 10);
  //Рисуем "резкий" (контрастный) вариант
  Harshness(pict).Draw(10, pict.Height + 20);
  //Рисуем черно-белый вариант
  BlackWhite(pict).Draw(pict.Width + 20, pict.Height + 20);  
end.

{$reference System.Windows.Forms.dll}
{$reference System.Drawing.dll}
{$apptype windows}
//openGl берём тут [url]http://pascalabc.net/downloads/opengl/OpenGL.pas[/url]
uses
  System, System.Drawing, System.Windows.Forms, OpenGL;
 
var
  the: System.Threading.Thread;
 
const
  wh = 0.48;//width and height
  speed = 20;//чем меньше число тем больше скорость 
 
procedure drawCube;
begin
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_NORMALIZE);
  glEnable(GL_CULL_FACE);
  glCullFace(GL_BACK);  
  glLoadIdentity(); 
  
  glRotatef(Environment.TickCount / speed, single(1.0), single(1.0), single(0.0));
  glBegin(GL_qUADS);
  glColor3f(single(0.0), single(1.0), single(0.0));            
  glVertex3f(single( wh), single(wh), single(-wh));          
  glVertex3f(single(-wh), single(wh), single(-wh));        
  glVertex3f(single(-wh), single(wh), single(wh));          
  glVertex3f( single(wh), single(wh), single(wh));
  
  glColor3f(single(1.0), Single(0.5), single(0.0));            
  glVertex3f( single(wh), single(-wh), single(wh));         
  glVertex3f(single(-wh), single(-wh), Single(wh));          
  glVertex3f(single(-wh), single(-wh), single(-wh));          
  glVertex3f(single( wh), single(-wh), single(-wh)); 
  
  glColor3f(single(1.0), single(0.0), single(0.0));              
  glVertex3f(single( wh), single(wh), single(wh));         
  glVertex3f(single(-wh), single(wh), single(wh));         
  glVertex3f(single(-wh), single(-wh), single( wh));        
  glVertex3f( single(wh), single(-wh), single( wh));   
  
  glColor3f(single(1.0), single(1.0), single(0.0));         
  glVertex3f(single( wh), single(-wh), single(-wh));        
  glVertex3f(single(-wh), single(-wh), single(-wh));         
  glVertex3f(single(-wh), single(wh), single(-wh));          
  glVertex3f(single(wh), single(wh), single(-wh)); 
  
  glColor3f(single(0.0), single(0.0), single(1.0));            
  glVertex3f(single(-wh), single(wh), single(wh));         
  glVertex3f(single(-wh), single(wh), single(-wh));          
  glVertex3f(single(-wh), single(-wh), single(-wh));        
  glVertex3f(single(-wh), single(-wh), single(wh));
  
  glColor3f(single(wh), single(wh), single(wh));             
  glVertex3f(single(wh), single(wh), single(-wh));         
  glVertex3f( single(wh), single(wh), single(wh));          
  glVertex3f( single(wh), single(-wh), single(wh));          
  glVertex3f(single(wh), single(-wh), single(-wh));   
  
  glEnd();
  glFlush();
end;
 
procedure setDrawMode(mode: string);
begin
  mode.ToLower;
  if mode = 'edge' then opengl.glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);
  if mode = 'vertex' then opengl.glPolygonMode(GL_FRONT_AND_BACK, opengl.GL_POINT);
  if mode = 'polygons' then opengl.glPolygonMode(GL_FRONT_AND_BACK, opengl.GL_FILL);
end;
 
type
  Form1 = class(Form)
    _hdc: HDC;
    constructor Create;
    begin
      self.Size := new System.Drawing.Size(400, 400);
      _hdc := GetDC(self.Handle.ToInt32());
      OpenGLInit(self.Handle);
    end;
    
    protected procedure OnPaint(e: System.Windows.Forms.PaintEventArgs); override;
    begin
      glClearColor(single(0.0), single(0.0), single(0.0), single(0.0));
      glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
      glViewport(1, 1, self.Width, self.Height);
      
      setDrawMode('polygons');//ели надо рёбра то пишем edge
      drawCube;
      SwapBuffers(_hdc);
    end;
    
    procedure Form_Closed(sender: object; e: EventArgs);
    begin
      the.Abort;//обязательно остонавливаем поток 
      OpenGLUninit(self.Handle);
    end;
  
  end;
 
var
  f: Form1;
 
procedure pr;
begin
  repeat
    Sleep(40); //избавляемя от мерцания (ну да способ наверное кривоватый но работает)   
    f.Invalidate();//ну и вызываем перерисовку формы ну тоесть как бы событие onPaint 
  until false;
end;
 
begin
  f := new Form1();
  f.MaximizeBox := false;
  f.FormBorderStyle := FormBorderStyle.Fixed3D;
  f.Text:='CubeInOpengl';
  f.Closed += f.Form_Closed;  
  the := new System.Threading.Thread(pr);//создаём отдельный поток для вращения 
  the.Start;//и конечно запускаем 
  Application.Run(f);
end.

uses system.windows.forms;
var f:form;
C:ComboBox;
b:Button;
procedure ch(Send:object;E:system.EventArgs);
begin
F.Text:=C.SelectedItem.ToString;//меняем заголовок
end;
procedure bcl(Send:object;E:system.EventArgs);
begin
MessageBox.Show('было выбрана вещь '+C.SelectedItem.ToString+' с индексом '+C.SelectedIndex.ToString);
end;
begin
C:=new ComboBox;//выдиляем память под combobox
//добовляем вещи
C.Items.Add('item a');
C.Items.Add('item b');
C.Items.Add('item c');
 
C.SelectedIndex:=0;//изначально выбираем вещь 0(так как отсчёт идёт с нуля)
C.DropDownStyle:=system.windows.forms.ComboBoxStyle.DropDownList;//запрещаем редактирование текста в combobox
C.DropDownClosed+=ch;//привязываем событие
 
//описаваем кнопку (думаю тут всё понятно)
B:=new Button;
B.Left:=120;
b.Text:='click me';
b.Click+=bcl;
 
f:=new Form();
F.Controls.Add(C);//добовляем combobox 
F.Controls.Add(B);//добовляем button
//для красоты 
f.Width:=205;
f.Height:=55;
f.FormBorderStyle:=system.windows.forms.formborderstyle.fixed3d;//указываем на то что форма имеет фиксированный размер
F.MaximizeBox:=false;
 
f.Text:=C.SelectedItem.ToString;//изначально заголовок окна равен тексту выбранный вещи 
F.ShowDialog;
end.

{$reference System.Windows.Forms.dll}
{$reference System.Drawing.dll}
{$apptype windows}
uses
  system.windows.forms,System.Drawing;
 
var
  f: form;
  tr: trackbar;
  but, but1,but2: button;
num1,num2:numericUpDown;
 
procedure bcl(sender: object; E: system.EventArgs);
begin
  if tr.Orientation = system.windows.forms.Orientation.Horizontal then
  begin
    tr.Orientation := system.windows.forms.Orientation.Vertical;
      but.Text := tr.Orientation.ToString;
    exit//обязательно выходим из процедуры что бы не пошла следунщая проверка условия дальше 
  end;
  if tr.Orientation = system.windows.forms.Orientation.Vertical then
  begin
    tr.Orientation := system.windows.forms.Orientation.Horizontal;
      but.Text := tr.Orientation.ToString;
    exit
  end;
end;
 
procedure bcl1(sender: object; E: system.EventArgs);
begin
  
  if tr.TickStyle = system.windows.forms.tickstyle.Both then
  begin
    tr.TickStyle := system.windows.forms.tickstyle.BottomRight;  but1.Text := tr.TickStyle.ToString;
    exit
  end;
  
  if tr.TickStyle = system.windows.forms.tickstyle.BottomRight then
  begin
    tr.TickStyle := system.windows.forms.tickstyle.None;  but1.Text := tr.TickStyle.ToString;
    exit
  end;
  if tr.TickStyle = system.windows.forms.tickstyle.None then
  begin
    tr.TickStyle := system.windows.forms.tickstyle.TopLeft;  but1.Text := tr.TickStyle.ToString;
    exit
  end;
  if tr.TickStyle = system.windows.forms.tickstyle.TopLeft then
  begin
    tr.TickStyle := system.windows.forms.tickstyle.Both;  but1.Text := tr.TickStyle.ToString;
    exit
  end;
end;
 
procedure widthPlus(sender:object;E:system.EventArgs);
begin
if tr.Orientation=system.windows.forms.orientation.Horizontal then
tr.Width:=system.Convert.ToInt16(num1.Value);
if tr.Orientation=system.windows.forms.orientation.Vertical then
tr.Height:=system.Convert.ToInt16(num1.Value);
end;
 
procedure valueNow(sender:object;E:system.EventArgs);
begin
tr.Maximum:=system.Convert.ToInt16(num2.Value);
f.Text:=tr.Value.ToString;
end;
 
procedure tvc(sender:object;E:system.EventArgs);
begin
f.Text:=tr.Value.ToString;
end;
 
procedure b2cl(sender:object;E:system.EventArgs);
begin
messageBox.Show('текущее значение '+tr.Value.ToString,'NV');
end;
 
begin
  f := new System.Windows.Forms.Form;
  f.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
  
  tr := new System.Windows.Forms.TrackBar;
  tr.Location := new System.Drawing.Point(0, 30);
  tr.ValueChanged+=tvc;
  f.Text:=tr.Value.ToString;
  
  but := new System.Windows.Forms.Button();
  but.Text := tr.Orientation.ToString;
  but.Click += bcl;
  
  but1 := new System.Windows.Forms.Button();
  but1.Location := new System.Drawing.Point(75, 0);
  but1.Text := tr.TickStyle.ToString;
  but1.Click += bcl1;
  
  but2:=new System.Windows.Forms.Button();
  but2.Location:=new System.Drawing.Point(250);
  but2.Width:=34;
  but2.Text:='NV';
  but2.Click+=b2cl;
  
  num1:=new System.Windows.Forms.NumericUpDown;
  num1.Location:=new System.Drawing.Point(150);
 
  num1.Width:=50;
  num1.Minimum:=50;
  num1.ValueChanged+=widthPlus;
  num1.Maximum:=500;
  if tr.Orientation=system.windows.forms.orientation.Horizontal then
   num1.Value:=tr.Width;
   if tr.Orientation=system.windows.forms.orientation.Vertical then
      num1.Value:=tr.Height;
  
    num2:=new System.Windows.Forms.NumericUpDown;
  num2.Location:=new System.Drawing.Point(200);
  num2.Width:=50;
  num2.Minimum:=1;
num2.Value:=tr.Maximum;
num2.ValueChanged+=valueNow;
  
  f.Controls.Add(but);
  f.Controls.Add(but1);
  f.Controls.Add(but2);
  f.Controls.Add(num1);
  f.Controls.Add(num2);
  f.Controls.Add(tr);
  f.ShowDialog;
end.

begin
writeln(System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList[0].ToString);
end.

{$reference System.Windows.Forms.dll}
{$reference System.Drawing.dll}
{$apptype windows}
uses
  system.windows.forms, System.Drawing;
 
var
  f: form;
  tr: trackbar;
  pr: progressbar;
  nm, nm2: numericupdown;
  but, but2, but3: button;
  back: system.ComponentModel.BackgroundWorker;
 
procedure sc(sender: object; e: system.EventArgs);
begin
  pr.Width := f.ClientSize.Width;
end;
 
procedure mc(sender: object; e: system.Windows.Forms.MouseEventArgs);
begin
  if (e.Button = system.Windows.Forms.MouseButtons.Left) and (pr.Value < pr.Maximum) then 
    pr.Value += 1;
  if (e.Button = system.Windows.Forms.MouseButtons.Right) and (pr.Value > pr.Minimum)  then 
    pr.Value -= 1;
end;
 
procedure vc(sender: object; e: system.EventArgs);
begin
  pr.Value := pr.Minimum;
  pr.Maximum := system.Convert.ToInt32(nm.Value);
end;
 
procedure nm2vc(sender: object; e: system.EventArgs);
begin
  pr.Height := system.Convert.ToInt32(nm2.Value);
end;
 
procedure bc(sender: object; e: system.EventArgs);
begin
  pr.Value := pr.Minimum;
  if pr.Style = system.Windows.Forms.ProgressBarStyle.Blocks then
  begin
    pr.Style := system.Windows.Forms.ProgressBarStyle.Continuous;
    but.Text := pr.Style.ToString;
    exit;
  end;
  if pr.Style = system.Windows.Forms.ProgressBarStyle.Continuous then
  begin
    pr.Style := system.Windows.Forms.ProgressBarStyle.Marquee;
    but.Text := pr.Style.ToString;
    exit;
  end;
  if pr.Style = system.Windows.Forms.ProgressBarStyle.Marquee then
  begin
    pr.Style := system.Windows.Forms.ProgressBarStyle.Blocks;
    but.Text := pr.Style.ToString;
    exit;
  end;
end;
 
procedure workForBack(sender: object; e: system.ComponentModel.DoWorkEventArgs);
var
  a, b, c, he: array of integer;
  i, j: integer;
const
  sizeOfarr = 1000000;
begin
  setlength(a, sizeofarr);
  setlength(b, a.Length);
  setlength(c, b.Length);
  
  pr.Maximum := sizeofarr;
  pr.Value := 0;
  nm.Enabled := false;
  nm2.Enabled := false;
  but.Enabled := false;
  but2.Enabled := false;
  
  for i := 0 to sizeOfarr - 1 do
    a[i] := random(1, 1000);
  for i := 0 to sizeOfarr - 1 do
    b[i] := random(1, 1000);
  for i := 0 to sizeOfarr - 1 do
  begin
    c[i] := a[i] * b[i];
    pr.Value += 1;
  end;
  messagebox.Show('перемножение двух одномерных массивов завершенно', pr.Value.ToString);
  pr.Maximum := system.Convert.ToInt32(nm.Value);
  pr.Value := pr.Minimum;
  nm.Enabled := true;
  nm2.Enabled := true;
  but.Enabled := true;
  but2.Enabled := true;
end;
 
procedure b2c(sender: object; e: system.EventArgs);
begin
  back.RunWorkerAsync;
end;
 
procedure b3cl(sender: object; e: system.EventArgs);
begin
  messagebox.Show('текущее значение ' + pr.Value.ToString + ' максимум ' + pr.Maximum.ToString, ':-)');//можно было в проценты но мне лень
end;
 
begin
  f := new Form;
  f.MouseDown += mc;
  
  nm := new NumericUpDown;
  nm.Minimum := 2;
  nm.Maximum := 160;
  nm.Width := 50;
  nm.Value := nm.Maximum;
  nm.ValueChanged += vc;
  
  nm2 := new NumericUpDown;
  nm2.Minimum := 10;
  nm2.Maximum := 100;
  nm2.Width := 50;
  nm2.Value := 20;
  nm2.Top := 20;
  nm2.ValueChanged += nm2vc;
  
  pr := new ProgressBar;
  pr.Top := 40;
  pr.Width := f.ClientSize.Width;
  pr.Height := system.Convert.ToInt32(nm2.Value);
  pr.Minimum := 0;
  //максимум  прогресс бара(не путать с длинной)
  pr.Maximum := system.Convert.ToInt32(nm.Value);
  
  but := new Button;
  but.Left := 50;
  but.Text := pr.Style.ToString;
  but.Click += bc;
  
  but2 := new Button;
  but2.Text := 'Real Progress';
  but2.Left := 125;
  but2.Click += b2c;
  
  but3 := new Button;
  but3.Text := 'now value';
  but3.Left := 200;
  but3.Click += b3cl;
  
  back := new System.ComponentModel.BackgroundWorker;//да да создаём отдельный поток 
  back.DoWork += workforback;
  
  f.Controls.Add(pr);
  f.Controls.Add(nm2);
  f.SizeChanged += sc;
  f.Controls.Add(nm);
  f.Controls.Add(but);
  f.Controls.Add(but2);
  f.Controls.Add(but3);
  application.EnableVisualStyles;
  application.Run(f);
end.

//мы будем сравнитьвать backrounderworker и простой thread
{$reference System.Windows.Forms.dll}
{$reference System.Drawing.dll}
{$apptype windows}
uses
  system.windows.forms, System.Drawing,system.Threading,System.Diagnostics;
  var f:form;
  b1,b2:Button;
  bw,bw1:system.componentmodel.BackgroundWorker;
  thd:Thread;
  count:PerformanceCounter;
  ///процедура что бы занять поток хоть какойто работай 
  procedure permnMatrix();
  var ar1,ar2,r:array[1..8000,1..8000] of integer;
i,j:integer;
  begin
  for i:=1 to 8000 do
begin
for j:=1 to 8000 do
begin
ar1[i,j]:=Random(100000);
ar2[i,j]:=Random(100000);
R[i,j]:=ar1[i,j]*ar2[i,j];
end;
end;
  end;
  procedure zagrproc(sender:object;E:system.componentmodel.doworkeventargs);
  begin
  count:=new PerformanceCounter('Процессор', '% загруженности процессора', '_Total');//получаем нагрузку на цп 
  repeat
  f.Text:='нагрузка на цп '+Round(system.Convert.ToInt32(count.NextValue)).ToString;
 Sleep(600);
 until false;
  end;
  procedure pern(sender:object;E:system.componentmodel.doworkeventargs);
  begin   
  b2.Enabled:=false;
  b1.Enabled:=false;
   MillisecondsDelta;
  permnMatrix;
   Messagebox.Show('прошло '+(MillisecondsDelta/1000).ToString+' секунд');
    b2.Enabled:=true;
  b1.Enabled:=true;
  end;
  procedure thdBack();
  begin
  b2.Enabled:=false;
  b1.Enabled:=false;
  MillisecondsDelta;
 permnMatrix;
 Messagebox.Show('прошло '+(MillisecondsDelta/1000).ToString+' секунд');
      b2.Enabled:=true;
  b1.Enabled:=true;
  end;
 procedure b1cl(sender:object;E:system.EventArgs);
 begin
 bw.RunWorkerAsync;
 end;
 procedure b2cl(sender:object;E:system.EventArgs);
 begin
 thd.Start;//да к сожелению тут генирирутся ошибка при повторном запуске 
 end;
 begin
 f:=new Form();
 F.Size:=new System.Drawing.Size(244,89);
 F.MaximizeBox:=false;
 f.MinimizeBox:=false;
 f.FormBorderStyle:=system.windows.forms.FormBorderStyle.Fixed3D;
 f.Text:='загрузка...';
 
 b1:=new Button;
 b1.Size:=new System.Drawing.Size(115,50);
 b1.Text:='BackrounderWorker';
 b1.Click+=b1cl;
 
  b2:=new Button;
 b2.Size:=new System.Drawing.Size(115,50);
 b2.Text:='Simple Thread';
 b2.Location:=new system.drawing.Point(119);
 b2.Click+=b2cl;
 bw1:=new System.ComponentModel.BackgroundWorker();
 bw1.DoWork+=zagrproc;
 bw1.RunWorkerAsync;
 
 bw:=new System.ComponentModel.BackgroundWorker;
 bw.DoWork+=pern;
 
 
 thd:=new Thread(thdback);
 F.Controls.Add(b1);
 F.Controls.Add(b2);
 F.ShowDialog;
  end.

{$reference 'System.windows.forms.dll'}
{$reference 'System.Drawing.dll'}
{$apptype windows}
uses System.windows.forms,System.drawing;
var f:form;
b,b1:button;
procedure bcl(sender:object;E:System.EventArgs);
begin
InputLanguage.CurrentInputLanguage := InputLanguage.FromCulture(new System.Globalization.CultureInfo('en-US'));
b1.Enabled:=true;
b.Enabled:=false;
end;
 
procedure b1cl(sender:object;E:System.EventArgs);
begin
InputLanguage.CurrentInputLanguage := InputLanguage.FromCulture(new System.Globalization.CultureInfo('ru-RU'));
b.Enabled:=true;
b1.Enabled:=false;
 
end;
begin
f:=new System.Windows.Forms.Form;
f.Size:=new System.Drawing.Size(200,100);
f.MinimizeBox:=false;
f.MaximizeBox:=false;
f.FormBorderStyle:=System.Windows.Forms.formBorderStyle.Fixed3D;
 
b:=new System.Windows.Forms.Button;
b.Size:=new System.Drawing.Size(90,67);
b.Text:='EN';
b.Click+=bcl;
b.Enabled:=false;
 
b1:=new System.Windows.Forms.Button;
b1.Size:=new System.Drawing.Size(90,67);
b1.Location:=new System.Drawing.Point(100,0);
b1.Text:='RU';
b1.Click+=b1cl;
b1.Enabled:=false;
 
if InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(new System.Globalization.CultureInfo('en-US')) then;
b.Enabled:=true;
 
if InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(new System.Globalization.CultureInfo('ru-RU')) then
b1.Enabled:=true;
 
f.Controls.Add(b1);
f.Controls.Add(b);
f.ShowDialog;
end.

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
uses
  System.Windows.forms, System.Drawing;
 
var
  mf1, mf2: form;
  bf1, bf2: button;
 
procedure bf1cl(sender: object; E: System.EventArgs);
begin
  MessageBox.Show('Кнопка 1 нажата', 'Form1');
end;
 
procedure bf2cl(sender: object; E: System.EventArgs);
begin
  MessageBox.Show('Кнопка 2 нажата', 'Form2');
end;
 
procedure mf1c(sender: object; E: System.EventArgs);
begin
  mf1 := nil;
  if mf2 = nil then   System.Environment.Exit(0); 
end;
 
procedure mf2c(sender: object; E: System.EventArgs);
begin;
  mf2 := nil;
  if mf1 = nil then   System.Environment.Exit(0);
end;
 
begin
  mf1 := new Form();mf1.Size := new System.Drawing.Size(170, 60);
  mf2 := new Form();mf2.Size := new System.Drawing.Size(170, 60);
  mf1.Closed += mf1c;
  mf2.Closed += mf2c;
  
  bf1 := new Button();
  bf1.Width := 150;
  bf1.Text := 'Кнопка первый формы'; 
  bf1.Click += bf1cl;
  mf1.Controls.Add(bf1);
  
  
  bf2 := new Button();
  bf2.Width := 150;
  bf2.Text := 'Кнопка второй формы'; 
  bf2.Click += bf2cl;
  mf2.Controls.Add(bf2);
  
  mf1.Show;
  mf2.Show; 
  Application.Run();
end.

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}  
 
uses
  System.Windows.Forms;
 
var
  f: form;
  lBox: listbox;
  butOpen, ButStart, ButWP: Button;
  renPanel: Panel;
 
procedure fsc(sender: object; E: System.EventArgs);
begin
  renPanel.Size := new System.Drawing.Size(f.ClientSize.Width, f.ClientSize.Height div 2);
  lBox.Location := new System.Drawing.Point(renPanel.Location.x, renPanel.Location.Y + renPanel.Height);
  lBox.Size := new System.Drawing.Size(renPanel.Width, f.ClientSize.Height - renPanel.Height - (f.ClientSize.Height div 15));
  
  butOpen.Size := new System.Drawing.Size(f.ClientSize.Width div 4, f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height) );
  butOpen.Location := new System.Drawing.Point(0, f.ClientSize.Height - (f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height)));
  
  butStart.Size := new System.Drawing.Size(f.ClientSize.Width div 4, f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height) );
  butStart.Location := new System.Drawing.Point(butOpen.Size.Width, f.ClientSize.Height - (f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height)));
  
  butWp.Size := new System.Drawing.Size(f.ClientSize.Width div 4, f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height) );
  butWp.Location := new System.Drawing.Point(butStart.Location.X+ButStart.Width, f.ClientSize.Height - (f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height)));
end;
 
procedure ButOpCl(sender:object;E:System.EventArgs);
begin
MessageBox.Show('Кнопка открыть нажата');
end;
procedure ButStCl(sender:object;E:System.EventArgs);
begin
MessageBox.Show('Кнопка начать нажата');
end;
procedure ButSetCl(sender:object;E:System.EventArgs);
begin
MessageBox.Show('Кнопка настройки нажата');
end;
begin
  f := new Form();
  f.Text:='TEST';
 F.Size := new System.Drawing.Size(500, 500);
  f.SizeChanged += fsc;
  
  renPanel := new Panel();
  renPanel.Size := new System.Drawing.Size(f.ClientSize.Width, f.ClientSize.Height div 2);
  renPanel.BackColor := System.Drawing.Color.red;
  lBox := new ListBox();
  lBox.Location := new System.Drawing.Point(renPanel.Location.x, renPanel.Location.Y + renPanel.Height);
  lBox.Size := new System.Drawing.Size(renPanel.Width, f.ClientSize.Height - renPanel.Height - (f.ClientSize.Height div 15) );
  
  butOpen := new Button();
  butOpen.Size := new System.Drawing.Size(f.ClientSize.Width div 4, f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height) );
  butOpen.Location := new System.Drawing.Point(0, f.ClientSize.Height - (f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height)));
  butOpen.Text := 'ОТКРЫТЬ';
  butOpen.Click+=ButOpCl;
  
  butStart := new Button();
  butStart.Size := new System.Drawing.Size(f.ClientSize.Width div 4, f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height) );
  butStart.Location := new System.Drawing.Point(butOpen.Size.Width, f.ClientSize.Height - (f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height)));
  butStart.text := 'НАЧАТЬ';
  ButStart.Click+=ButStCl;
  
  butWp := new Button();
  butWp.Size := new System.Drawing.Size(f.ClientSize.Width div 4, f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height) );
  butWp.Location := new System.Drawing.Point(butStart.Location.X+ButStart.Width, f.ClientSize.Height - (f.ClientSize.Height - (renPanel.ClientSize.Height + lBox.ClientSize.Height)));
  butWp.text := 'НАСТРОЙКИ';
  ButWP.Click+=ButSetCl;
  
  for var i := 0 to 100 do
    lBox.Items.Add(i);
  
  f.Controls.Add(butWp);
  f.Controls.Add(butStart);
  f.Controls.Add(butOpen);
  f.Controls.Add(lBox);
  f.Controls.Add(renPanel);
  
  Application.EnableVisualStyles;
  Application.Run(F);
end.