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

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

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