1. Pascal / Говнокод #2783

    +152.9

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    procedure TForm1.Button2Click(Sender: TObject);
var i:dword;
begin
if (Checkbox1.Checked)or(Checkbox3.Checked)or(Checkbox2.Checked) then
begin
form1.Cursor:=crhourglass;
Sleep(500);
progressbar1.Position:=10;
Sleep(1000);
progressbar1.Position:=20;
Sleep(500);
progressbar1.Position:=50;
Sleep(1000);
progressbar1.Position:=100;
Sleep(500);
end;

    Трудимся в поте лица. :D

    Запостил: Говногость, 13 Марта 2010

    Комментарии (2) RSS

    • ava Sauron 13.03.2010 23:54 # 0

      О я когда-то так тестил прогрессбары
      Ответить

    • ava guest 14.03.2010 00:00 # −1

      >if (Checkbox1.Checked)or(Checkbox3.Checked) or(Checkbox2.Checked) then
      Интересно, что-за там надписи на чекбоксах, что если хоть один установлен, то "делаем дело"?
      Ответить

    Добавить комментарий