Курсовая работа: Создание средств наглядности с использованием программной среды Delphi и Microsoft Movie Maker

OT:=0;

while (OT = 0) do Application.ProcessMessages;

end;

Timer1.Enabled := false;

BitBtn4.Enabled:=false;

BitBtn2.Enabled:=true;

end;

//созданиеформы

procedure TForm1.FormCreate(Sender: TObject);

begin

width:=GetSystemMetrics(SM_CXSCREEN);

height:=GetSystemMetrics(SM_CYSCREEN);

form1.height:=height;

form1.width:=width;

Chart1.Height:=((Form1.Height) div 2)-80;

Chart1.Width:=((Form1.width) div 2)-160;

Chart2.Height:=((Form1.Height) div 2)-50;

Chart2.Width:=((Form1.width) div 2)-120;

Chart3.Height:=((Form1.Height) div 2)-50;

Chart3.Width:=((Form1.width) div 2)-120;

Chart4.Height:=((Form1.Height) div 2)-50;

Chart4.Width:=((Form1.width) div 2)-120;

Chart2.Top:=Panel2.Top+20;

Chart1.Top:=Panel2.Top+Chart2.Height+50;

Chart3.Top:=Chart2.Top;

Chart3.Left:=Chart2.Left+Chart2.Width;

Chart4.Top:=Chart1.Top-20;

Chart4.Left:=Chart2.Left+Chart2.Width;

if (Form1.width<1024) and (Form1.Height<768) then