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

    +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
    procedure TForm1.Timer1Timer(Sender: TObject);
var Ras, MinRas, MinC, Comp: Integer;
begin
Ras:=0;
MinC:=0;
MinRas:=0;      // всё по нулям
 for Comp:=0 to ComponentCount-1 do // цикл по всем компонентам
  begin
   IF (Components[Comp] is TPanel) and (Components[Comp] <> Panel1) and (Panel1.Left>TPanel(Components[Comp]).Left) then
                 Ras:=Panel1.Left-TPanel(Components[Comp]).Left
                 else
   IF (Components[Comp] is TPanel) and (Components[Comp] <> Panel1) and (Panel1.Left<TPanel(Components[Comp]).Left) then
                 Ras:=TPanel(Components[Comp]).Left-Panel1.Left;
   If Ras < MinRas
    then begin
            MinRas:= Ras;  //устанавливаем переменные этой панельки за основные
            MinC:= Comp;
    end;
  end;
   if Panel1.top<(TPanel(Components[MinC]).Top-TPanel(Components[MinC]).Height) then
                Panel1.Top:=Panel1.Top+3;    //если панель ниже то допрыгиваем
  PROBEL:=Panel1.Top=TPanel(Components[MinC]).Top-TPanel(Components[MinC]).Height
  end;

    какое-то панельное безумие

    Запостил: bugmenot, 02 Февраля 2011

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

    • ava Lure Of Chaos 02.02.2011 12:50 # 0

      в дельфи расположение элементов устанавливается попиксельно?
      Ответить

      • ava bugmenot 02.02.2011 14:04 # −1

        а как еще-то? это ж ГУИ
        Ответить

      • ava TarasB 02.02.2011 14:09 # +4

        Нет, блин, повоксельно!
        Ответить

        • ava guest 02.02.2011 14:13 # −1

          В нормальных оконных системах сделано в относительных единицах (часто в плавющих числах).
          Ответить

          • ava TarasB 02.02.2011 14:28 # +1

            Относительно размера экрана?
            То есть увеличил разрешение - и окно всё равно занимает тот же процент площади, что и раньше? А в чём удобство?
            Ответить

            • ava guest 02.02.2011 14:54 # 0

              Как бы в этом и удобство. В лёгкости масштабирования и не зависимости от разрешений экрана.
              Ответить

            • ava Lure Of Chaos 02.02.2011 14:56 # −2

              очень удобно подгонять форму под разрешение. Неужто не знакома ситуация, когда у товарища с 640х480 форма не влазит?
              Ответить

              • ava TarasB 02.02.2011 19:04 # +1

                И оно само шрифты ужимает?
                Ответить

                • ava Lure Of Chaos 02.02.2011 19:07 # −1

                  не забывайте, что размер шрифта считается не в пикселях, а в пунктах, не зависящих от разрешения экрана
                  Ответить

                  • ava da4ever 03.02.2011 01:09 # +1

                    Пункты в дюймах. Следовательно размер шрифта в пикселях изменится только при изменении  DPI. Разрешение тут не при чем.
                    Ответить

              • ava ctm 04.02.2011 21:38 # 0

                особенно весело с растровыми картинками:(
                Ответить

                • ava Lure Of Chaos 04.02.2011 21:51 # 0

                  c картинками сложнее (
                  я обычно использую картинки побольше, а при отображении подгоняю размеры поменьше
                  Ответить

          • ava Lure Of Chaos 02.02.2011 14:32 # −3

            в нормальных оконных системах есть менеджеры компоновки
            Ответить

    • ava StriderMan 10.02.2011 10:31 # 0

      Вижу откровенное говно только в именах Panel1 и PROBEL
      ну и обходить правильнее не по .Components[] а по .Controls[]
      Ответить

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