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

    +86

    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
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    procedure TForm1.FormCreate(Sender: TObject);
begin
panel27.Caption:=' ' + TimeToStr(time);
KeyPreview := true;
Form1.BorderStyle:=bsNone;
Form1.WindowState:=wsMaximized;
ShowWindow(Application.Handle, SW_HIDE);

end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
Images: array[0..25] of Timage;
i,p:integer;
begin
{Цикл для прорисовки канвы,идея безумная но иначе она прорисовывается не полностью}
{РАБОТАЕТ? НЕ ТРОГАЙ!©}
for i:=0 to 26 do
 begin
images[0]:=image1;
images[1]:=image2;
images[2]:=image3;
images[3]:=image4;
images[4]:=image5;
images[5]:=image6;
images[6]:=image7;
images[7]:=image8;
images[8]:=image9;
images[9]:=image10;
images[10]:=image11;
images[11]:=image12;
images[12]:=image13;
images[13]:=image14;
images[14]:=image15;
images[15]:=image16;
images[16]:=image17;
images[17]:=image18;
images[18]:=image19;
images[19]:=image20;
images[20]:=image21;
images[21]:=image22;
images[22]:=image23;
images[23]:=image24;
images[24]:=image25;
images[25]:=image26;

if i>25
then PageControl1.ActivePageIndex:=0
else begin
PageControl1.ActivePageIndex:=i;
{Квадраты,Круг,Дуги}
images[i].Canvas.rectangle(200,50,300,150);
images[i].Canvas.rectangle(200,200,300,300);
images[i].Canvas.rectangle(200,350,300,450);
...
{Дальше идут канвас код которых примерно строк 150}
...
end;
p:=Gauge1.Progress+4;
if p<100 then
Gauge1.Progress:=p;
end;
timer2.Enabled:=false;
Gauge1.Progress:=100;
end;

    Изначально суть была в том, что при запуске программы окно разворачивалось на весь экран и вырисовывалось изображение на имаге(точнее несколько...штук 26),которые находились на пейдж контроле с 26 табщитами, но т.к в конструкторе окно формы не огромных размеров то вырисовывалось изображение размером с это маленькое окно оставляя огромный пробел справа и снизу.Позже проблема решилась и на активной вкладке пейджконтрола вырисовка была правильной, но на остальных неактивных такой же как и вначале. Пришлось при запуске переключать табщиты и поочередно рисовать на канве, все это происходит за 2-3 секунды каждый раз при запуске программы..другого решения увы не нашел.

    Запостил: HiiamMarvin, 17 Октября 2014

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

    • ava 1024-- 17.10.2014 17:30 # +2

      > {РАБОТАЕТ? НЕ ТРОГАЙ!©}
      Директива для системы контроля версий:
      $ svn ci ./Project1 -m 'Оптимизировал старое говно'
Ошибка: исправлено 100500 строк в 42 областях, помеченных как стабильные.
Возможно, Вы хотели выполнить svn revert?
      Ответить

    • ava guest 17.10.2014 20:21 # −2

      ДАВАЙТЕ ФЛУДИТЬ И ТРОЛЛИТЬ! ;)
      Ответить

    • ava guest 18.10.2014 11:47 # −3

      -
      Ответить

    • ava guest 07.11.2014 23:04 # 0

      Если на форме нет других Image, кроме тех, что участвуют в отрисовке, можно сделать так:

      for i:=0 to self.controls.count -1 // как-то так, делфи нет под рукой
      if controls[i] is timage then
      ...
      Ответить

    • ava guest 14.11.2014 18:43 # +1

      Вот из-за таких авторов говорят: "Pascal говно". Особенно доставляет таймер. Впрочем тут все строки это какой-то ацкий эталон говна.
      Ответить

    • ava betking1 27.11.2014 15:42 # 0

      "{РАБОТАЕТ? НЕ ТРОГАЙ!©}"
      И только не говорите что так не писали когда сделали сложный алгоритм
      Ответить

    • ava guest 11.07.2015 14:32 # 0

      Могу посмотреть весь исходник и подсказать как сделать правильнее. Почта: [email protected]
      Ответить

    • ava kegdan 11.07.2015 14:38 # 0

      Могу посмотреть весь исходник и посмеяться от души. Почта: [email protected]
      Ответить

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