purebasic.info

PureBasic forum
Текущее время: Пн окт 22, 2018 11:58 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Окно и гаджеты
СообщениеДобавлено: Сб фев 18, 2017 7:56 pm 
Не в сети
студент

Зарегистрирован: Пн фев 13, 2017 9:47 pm
Сообщений: 1
Благодарил (а): 1 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Здравствуйте уважаемые знатоки Пурика!
Решил заняться освоением, вернее жизнь заставила.
Наткнулся на такую проблемку мне до конца не понятную.
Создаю окно в нем ряд разных виджетов, почемуто одни виджеты затирают других хотя разнесены в разные места,
Помогите пожалуйста ученику1
Спасибо.
Исходник прилагается.
Исходник выдран из программы, так что главное окно и в нем виджеты. Потом в эти виджеты надо будет программно вставлять данные.
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
Enumeration
  #Window_0
EndEnumeration
 
;- Gadget Constants
 
Enumeration
  #Text_COM
  #ComboBox
  #TextStatusCOM
  #SpinAdr
  #SpinAdr1
  #SpinAdr3
  #TextAdr
  #TextAdr1
  #TextAdr3
  #CheckBoxDelayCOM
  #StringDelayCOM
  #ButtonPusk
  #ButtonStop
  #CheckShlf
   
EndEnumeration
; ---------- переменные оповещения----
  trevoga=0
  trevoga1=0
  trevoga2=0
  trevoga3=0
  signal=0
  pribil=0
 
Procedure Open_Window_0()
 
winflag=#PB_Window_SystemMenu|#PB_Window_Invisible
winflag|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget
 
If OpenWindow(#Window_0, 0, 0, 1200, 900, "Контроль прибытия", winflag  )
  ;  --------------   создаем гаджеты СОМ порта  -------------------
      TextGadget(#Text_COM,5,10,60,20,"COM-порт:")  
      ComboBoxGadget(#ComboBox, GadgetX(#Text_COM)+GadgetWidth(#Text_COM)+1, GadgetY(#Text_COM)-2, 90, 20)
      AddGadgetItem(#ComboBox, -1, "Не выбран")  
      TextGadget(#TextStatusCOM,GadgetX(#ComboBox)+GadgetWidth(#ComboBox)+1,GadgetY(#ComboBox), 20, 20,"",#PB_Text_Border)  ; индикатор открытия порта
     
      ; -------------------  гаджеты задержки ответа ------------------------------
      CheckBoxGadget(#CheckBoxDelayCOM, GadgetX(#Text_COM)+5,GadgetY(#ComboBox)+GadgetHeight(#ComboBox)+2,135,20,"Отвечать.    Пауза, мс.")
      StringGadget(#StringDelayCOM,GadgetX(#CheckBoxDelayCOM)+GadgetWidth(#CheckBoxDelayCOM)+1,GadgetY(#CheckBoxDelayCOM),30,20,"3",#PB_String_Numeric)
 
 ; ------------------ кнопки "ПУСК" "СТОП"  -------------------------------  
 ButtonGadget(#ButtonStop, 250 ,35,40,20,"Стоп")
 HideGadget(#ButtonStop,1)
 ButtonGadget(#ButtonPusk, 250 ,35,40,20,"Пуск")
 ;DisableGadget(#ButtonPusk,1)
 
 ; ------------  гаджеты адресов приборов -------------------------    
    TextGadget(#TextAdr,195,14,95,20,"Адрес БКИ-1")
    SpinGadget     (#SpinAdr, 265, 10, 40, 20, 0, 127,#PB_Spin_Numeric)
    SetGadgetState (#SpinAdr, 100)
   
    TextGadget(#TextAdr1,345,14,95,20,"Адрес БКИ-2")
    SpinGadget     (#SpinAdr1, 415, 10, 40, 20, 0, 127,#PB_Spin_Numeric)
    SetGadgetState (#SpinAdr1, 101)
     
    ;  --------------- гаджеты обявленной тревоги --------------------
    StringGadget(trevoga, 35,80,1000,90, "ОБЪЯВЛЕН СИГНАЛ", #PB_String_ReadOnly  |#PB_Text_Center)
    StringGadget(trevoga1, 45,110,306,40, "ТРЕВОГА-1", #PB_String_ReadOnly |#PB_Text_Center)
    StringGadget(trevoga2, 384,110,306,40, "ТРЕВОГА-2", #PB_String_ReadOnly |#PB_Text_Center)
    StringGadget(trevoga3, 720,110,306,40, "ТРЕВОГА-3", #PB_String_ReadOnly |#PB_Text_Center)
       
    ;  --------------- гаджеты отметки прибытия --------------------
    StringGadget(pribil, 10,200,280,20, "" )
    StringGadget(pribil+1, 10,230,280,20, "" )
    StringGadget(pribil+2, 10,260,280,20, "" )
    StringGadget(pribil+3, 10,290,280,20, "" )
    StringGadget(pribil+4, 10,320,280,20, "" )
    StringGadget(pribil+5, 10,350,280,20, "" )
    StringGadget(pribil+6, 10,380,280,20, "" )
    StringGadget(pribil+7, 10,410,280,20, "" )
    StringGadget(pribil+8, 10,440,280,20, "" )
    StringGadget(pribil+9, 10,470,280,20, "" )
    StringGadget(pribil+10, 10,500,280,20, "" )
    StringGadget(pribil+11, 10,530,280,20, "" )
    StringGadget(pribil+12, 310,200,280,20, "" )
    StringGadget(pribil+13, 310,230,280,20, "" )
    StringGadget(pribil+14, 310,260,280,20, "" )
    StringGadget(pribil+15, 310,290,280,20, "" )
    StringGadget(pribil+16, 310,320,280,20, "" )
    StringGadget(pribil+17, 310,350,280,20, "" )
    StringGadget(pribil+18, 310,380,280,20, "" )
    StringGadget(pribil+19, 310,410,280,20, "" )
    StringGadget(pribil+20, 310,440,280,20, "" )
    StringGadget(pribil+21, 310,470,280,20, "" )
    StringGadget(pribil+22, 310,500,280,20, "" )
    StringGadget(pribil+23, 310,530,280,20, "" )
    StringGadget(pribil+24, 605,200,280,20, "" )
    StringGadget(pribil+25, 605,230,280,20, "" )
    StringGadget(pribil+26, 605,260,280,20, "" )
    StringGadget(pribil+27, 605,290,280,20, "" )
    StringGadget(pribil+28, 605,320,280,20, "" )
    StringGadget(pribil+29, 605,350,280,20, "" )
    StringGadget(pribil+30, 605,380,280,20, "" )
    StringGadget(pribil+31, 605,410,280,20, "" )
    StringGadget(pribil+32, 605,440,280,20, "" )
    StringGadget(pribil+33, 605,470,280,20, "" )
    StringGadget(pribil+34, 605,500,280,20, "" )
    StringGadget(pribil+35, 605,530,280,20, "" )
    StringGadget(pribil+36, 900,200,280,20, "" )
    StringGadget(pribil+37, 900,230,280,20, "" )
    StringGadget(pribil+38, 900,260,280,20, "" )
    StringGadget(pribil+39, 900,290,280,20, "" )
    StringGadget(pribil+40, 900,320,280,20, "" )
    StringGadget(pribil+41, 900,350,280,20, "" )
    StringGadget(pribil+42, 900,380,280,20, "" )
    StringGadget(pribil+43, 900,410,280,20, "" )
    StringGadget(pribil+44, 900,440,280,20, "" )
    StringGadget(pribil+45, 900,470,280,20, "" )
    StringGadget(pribil+46, 900,500,280,20, "" )
    StringGadget(pribil+47, 900,530,280,20, "" )
   
  ; --------------------- ДЛЯ АВТОНОМНОЙ ОТЛАДКИ ПРОГРАММЫ или ручной работы----------------  
   
    ; ------------------- гаджеты получения сигнала -----------------  
   
      ButtonGadget(signal,   50,590,70,20,"Сигнал") ;100
      ButtonGadget(signal+1,    50,620,70,20,"Сигнал-1") ;101
      ButtonGadget(signal+2,   50,650,70,20,"Сигнал-2") ;102
      ButtonGadget(signal+3,   50,680,70,20,"Сигнал-3") ;103
       
    ;  ------------  гаджеты прибытия -------------------------    
    ;TextGadget(#TextAdr3,195,587,95,40,"Код соответствия прибывшему")
    ;SpinGadget     (#SpinAdr3, 150, 590, 40, 20, 0, 127,#PB_Spin_Numeric)
    ;SetGadgetState (#SpinAdr3, 0)
           
    Else
       MessageRequester("Контроль прибытия","Ошибка создания окна!",16)
       End    
   EndIf
EndProcedure
Open_Window_0()  ; Вызываем процедуру построение окна
HideWindow(#Window_0,0)
 
Repeat  ; Начало цикла выполнения
event=WaitWindowEvent() ; узнаем текущее событие в программе
 
Until event = #PB_Event_CloseWindow
quit=1 
 If IsThread(thread)
  KillThread(thread)
 EndIf
        CloseWindow(#Window_0)
End



Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Окно и гаджеты
СообщениеДобавлено: Сб фев 18, 2017 8:09 pm 
Не в сети
МОДЕРАТОР
Аватар пользователя

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11303
Благодарил (а): 4 раз.
Поблагодарили: 436 раз.
Идентификаторы гаджетов должны быть уникальны (недавно обсуждалось), а в программе это условие не соблюдается.

_________________
Компьютер позволяет решать все те проблемы, которые до его изобретения не существовали. :) :)


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB