1. Список говнокодов пользователя Umak

    Всего: 1

  2. Pascal / Говнокод #3458

    +99

    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
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    procedure TCommonFineEdit.SetTopControls;
begin
  if beSummHist.Visible then
    SummEdit.Width := 92
  else
    SummEdit.Width := 108;
  if VarToInt(Oper.OperationType) in [otFine, otNoAgreeFine, otPayFine, otPayFineCorrect] then
    begin
      NameEdit.Top := 16;
      Label1.Top := NameEdit.Top+3;
      PODateEdit.Top := 47;
      AccountDateJvDateEdit.Top := PODateEdit.Top;
      label3.Top := PODateEdit.Top+3;
      lPODate.Top := PODateEdit.Top+3;
      beSummHist.Top := 77;
      SummEdit.Top := 78;
      POSummEdit.Top := SummEdit.Top;
      label12.Top := SummEdit.Top+3;
      lPOSumm.Top := SummEdit.Top+3;
      StateComboBox.Top := 109;
      label4.Top := StateComboBox.Top+3;
      InspectNameEdit.Top := 140;
      InspectNameLabel.Top := InspectNameEdit.Top+3;
      CommentEdit.Top := 171;
      label2.Top := CommentEdit.Top+3;
      if ftSale then
      begin
        RateNameEdit.Top := 202;
        lRate.Top := RateNameEdit.Top+3;
        BasePriceEdit.Top := 233;
        PaySummMoneyEdit.Top := BasePriceEdit.Top;
        lMoney.Top := BasePriceEdit.Top+3;
        lBasePrice.Top := BasePriceEdit.Top+3;
        Height := 368;
      end else
        Height := 310;
    end
...

    Umak, 11 Июня 2010

    Комментарии (9)