[!kind]

суть в том что мне нужно доапргейдить вот этот тест
http://www.programmersclub.ru/files/tests_lab.rar

до такого состояния чтобы он умел развёртываться на полный экран и свёртываться обратно притом чтобы картинка тоже менялась... вообщем то чтобы всё работало как в винде окно )

я сам делфи не знаю потому обратился за помощью
кто поможет в ближайшие 6 часов непожалею подарю 7ми значный номер icq

моя ася: 210546

[Rosenkrantz]

В файле tester_.pas заменить процедуру TForm1.FormCreate на вот это:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
    Image1.AutoSize := False;
    Image1.Proportional := True;
    RadioButton1.Visible := False;

{=== Добавленные строки ===}
    BorderStyle := bsSizeable;
    BorderIcons := [biSystemMenu, biMinimize, biMaximize];

    Constraints.MinHeight := Height;
    Constraints.MinWidth  := Width;
    Panel1.Align := alBottom;
    Button1.Parent := Panel1;
    Button1.Top    := (Panel1.Height - Button1.Height) div 2;
    Button1.Left   := 20;
end;

Все это можно сделать и во время конструирования формы в IDE, но так нагляднее.