|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите с ерундой одной ...
суть в том что мне нужно доапргейдить вот этот тест
http://www.programmersclub.ru/files/tests_lab.rar до такого состояния чтобы он умел развёртываться на полный экран и свёртываться обратно притом чтобы картинка тоже менялась... вообщем то чтобы всё работало как в винде окно ) я сам делфи не знаю потому обратился за помощью кто поможет в ближайшие 6 часов непожалею подарю 7ми значный номер icq моя ася: 210546 |
#2
|
|||
|
|||
В файле 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; |