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

    +140

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    procedure TForm1.CloseChecker1Click(Sender: TObject);
begin
Halt;
end;

procedure TForm1.CoolTrayIcon1DblClick(Sender: TObject);
begin
Form1.Show;
CoolTrayIcon1.IconVisible:=false;
end;

end.

    Продолжение. Начало на http://govnokod.ru/13317, http://govnokod.ru/13318

    Запостил: Stertor, 06 Июля 2013

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

    • ava Vindicar 07.07.2013 10:33 # −1

      В чем говно?
      Ответить

      • ava Bart 07.07.2013 10:49 # −1

        Видимо, в названиях. Хотя, скорее, там уже гумус.
        Ответить

      • ava Lowezar 07.07.2013 13:47 # −3

        По-моему уже можно даже не вчитываясь ставить минус если автор Stertor и язык Pascal. :) А вот комменты к чужим постам порой весёлые пишет. :)
        Ответить

        • ava Stertor 07.07.2013 13:55 # −4

          Не торопитесь с выводами, сын мой; во-первых, не паскаль, а Делфи, во-вторых, Стертор хоть и тролль, но никогда не троллит порядочных людей - это просто ниже его достоинства. Поугорать всласть можно над латексными изделиями типа guest и еще некоторых.
          Ответить

        • ava anonimb84a2f6fd141 09.07.2013 04:41 # −1

          Просто коменты пишет не тот стертор.
          Ответить

          • ava Stertor 09.07.2013 21:14 # 0

            А какой же, позвольте полюбопытствовать?
            Ответить

    • ava bormand 07.07.2013 11:30 # −2 

      procedure1 TForm1.CloseChecker1Click4(Sender8: TObject7);
begin1
    Halt3;
end1;

procedure2 TForm1.CoolTrayIcon1DblClick1(Sender2: TObject2);
begin2
    Form1.Show2;
    CoolTrayIcon1.IconVisible5 := false3;
end2;
      Ответить

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