ZveruGA

Amidala Если физику на 3 напишу То есть Шанс Поступить?

DeL Постановление Вышло! Оно уже Заверено Министром Образования И это не изменить !

Физику сдаю((( Ваще ППццц....

Mister Kill А потом Догонять? Нет уж избавте!

Было ли вчера?

Поступаю на факультет "Автоматизированные системы обработки информации и управления"! Сильно ли там Требуют физизику? Каковы Условия?

shulunovr Тирабайт Аж Занимает)

Хочу Похудеть)

Очень взбодрило!

1) автоматизированные системы обработки информации и управления (2008-учусь по ныне))) преподаватель Лымарь Алексей Геннадьевич

Digma Хех Напряжуха У меня Да и ещо Учеба)

Да не До лУны Будет)

ВсеХ с Новым Годом )))

Kto_ya? НЕ Не Надо ваЩе Так Было делать.... Представь Себя на ее месте! Вымоли у нее Прощенья Если любит то простит!

Denver Прямотаки Почувствовал ся Какимто Свободным, Как Камень с души! Вес скинуть не сложно А Очень очень сложно его удержать)

ДрузьяКи Осталось За самым Большим - Это Скинуть Вес! Седня НА Дискач В Школе пошел... Вспомнил все танцы которые уменю, 4 Из 5 белых танцев Были мои! Просто Был собой и Вел себя умно И немного сдержано) Кстати Стал Королем Вечера!

PUMPkin ХЕ) Ваще Умора ХэНКок)) Он Не помнит от куда пришел и для чего создан))

PUMPkin Спасибо ДРУжиЩе)

User1667 У меня Все получилось)

Bik У меня только Бабушка Полная А отец 90 кг) Занимаюсь Щас Я собой)) С января будет лечебное ГОлоданиЕ

TolkienDRR Посмотри так Пожалуйста Комп тупит (

procedure TForm1.TrackBar1Change(Sender: TObject); begin mediaplayer1.DisplayRect:=rect (0,0,trackbar1.position,trackbar2.position ); end; procedure TForm1.TrackBar2Change(Sender: TObject); begin mediaplayer1.DisplayRect:=rect ( 0,0, trackbar1.position, trackbar2.position); end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin MediaPlayer1.FileName := OpenDialog1.FileName; MediaPlayer1.Open; end else showmessage('Выбирите файл'); end; procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean); begin trackbar3.Max:=mediaplayer1.length; end; procedure TForm1.Timer1Timer(Sender: TObject); begin trackbar3.position:=mediaplayer1.position; end; procedure TForm1.FormCreate(Sender: TObject); begin trackbar1.position:=trackbar1.Max; trackbar2.position:=trackbar2.max; end; procedure TForm1.TrackBar3Change(Sender: TObject); begin //if mediaplayer1.FileName<>'' then mediaplayer1.Pause; mediaplayer1.Position:=trackbar3.Position; mediaplayer1.Play; end; end. end. Вот Плеер Прошу помочь с оформлением

x-zona ХЕх)

Пожалуста Помогите создать Плеер Т.е Функционально я знаю как его создать А вот с оформление не дРУжУ( Помогите дайте Плиз Варианты ОФОрмлени)