purebasic.info

PureBasic forum
Текущее время: Пн сен 16, 2019 1:28 am

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




Начать новую тему Ответить на тему  [ Сообщений: 9 ] 
Автор Сообщение
 Заголовок сообщения: Разноцветный текст в ячейке listicon
СообщениеДобавлено: Вс сен 01, 2019 10:33 am 
Не в сети
док

Зарегистрирован: Пт июл 09, 2010 6:17 pm
Сообщений: 76
Откуда: Ульяновск
Благодарил (а): 1 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Добрый день!
Я сделал наскоро через DrawText и наложением ImageGadget на нужную ячейку, получилось прилично, но если лист с прокруткой, то наложенный текст разумеется не прокручивается.
Не хотелось бы городить в WinCallback перерисовку, может кто знает и подскажет способ проще - типа изменить цвет именно нужных символов текста или вставить изображение с текстом непосредственно в ячейку?


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Пн сен 02, 2019 4:00 pm 
Не в сети
профессор

Зарегистрирован: Вс июл 05, 2009 5:55 pm
Сообщений: 363
Благодарил (а): 1 раз.
Поблагодарили: 14 раз.
Пункты репутации: 0
Ты имееш ввиду это:
взято тут http://purebasic.info/phpBB3ex/viewtopi ... 690#p87135
Даже редактируется.
Правда кода многовасто.

Код:
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
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
; English forum:
; Author: El Choni (updated for PB3.92+ by Andre, updated for PB4.00 by blbltheworm)
; Date: 09. May 2003
; OS: Windows
; Demo: No
 
 
; редактирует ListIconGadget
 
 
Procedure LoWord(value)
 ProcedureReturn value & $FFFF
EndProcedure
 
Procedure HiWord(value)
 ProcedureReturn value >> 16 & $FFFF
EndProcedure
 
#NM_CUSTOMDRAW = #NM_FIRST-12
 
#CDDS_ITEM = $10000
#CDDS_SUBITEM = $20000
#CDDS_PREPAINT = $1
#CDDS_ITEMPREPAINT = #CDDS_ITEM|#CDDS_PREPAINT
#CDDS_SUBITEMPREPAINT = #CDDS_SUBITEM|#CDDS_ITEMPREPAINT
#CDRF_DODEFAULT = $0
#CDRF_NEWFONT = $2
#CDRF_NOTIFYITEMDRAW = $20
#CDRF_NOTIFYSUBITEMDRAW = $20
 
#LVM_SUBITEMHITTEST = #LVM_FIRST+57
#LVM_GETSUBITEMRECT = #LVM_FIRST+56
 
Global ListGadget, OldLViewProc, OldEditProc, hEdit, rct.RECT, CellSelectOn, CurItem, CurSubItem, CurSelItem, CurSelSubItem
 
Declare EditProc(hwnd, uMsg, wParam, lParam)
Declare LViewProc(hwnd, uMsg, wParam, lParam)
Declare WndProc(hwnd, uMsg, wParam, lParam)
Declare KillFocus()
Declare DrawRectangle(hwnd, *rc.RECT)
 
#CCM_SETVERSION = #CCM_FIRST+7
 
Global FontReg, FontBold
FontReg = LoadFont(1, "Tahoma", 9)
FontBold = LoadFont(2, "Tahoma", 9, #PB_Font_Bold)
 
If OpenWindow(0, 0, 0, 400, 260, "Color List View Rows", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)=0:End:EndIf
;If CreateGadgetList(WindowID(0))=0:End:EndIf
 
ListGadget = ListIconGadget(1, 10, 10, 380, 240, "", 70, #PB_ListIcon_GridLines|#LVS_NOSORTHEADER)
 
SendMessage_(ListGadget, #CCM_SETVERSION, 5, 0)
 
AddGadgetColumn(1, 1, "Sun", 35)
AddGadgetColumn(1, 2, "Mon", 35)
AddGadgetColumn(1, 3, "Tue", 35)
AddGadgetColumn(1, 4, "Wed", 35)
AddGadgetColumn(1, 5, "Thu", 35)
AddGadgetColumn(1, 6, "Fri", 35)
AddGadgetColumn(1, 7, "Sat", 35)
 
For i=18 To 34
 hour12 = i
 If hour12>25
 hour12-24
 Hour$ = " pm"
 Else
 Hour$ = " am"
 EndIf
 If hour12&1
 Hour$=Str(hour12/2)+":30"+Hour$;LSet(Str(hour12/2)+":30"+Hour$, 9, " ")
 Else
 Hour$=Str(hour12/2)+":00"+Hour$;LSet(Str(hour12/2)+":00"+Hour$, 9, " ")
 EndIf
 AddGadgetItem(1, -1, Hour$+Chr(10)+Str(hour12/2)+"1"+Chr(10)+Str(hour12/2)+"2"+Chr(10)+Str(hour12/2)+"3"+Chr(10)+Str(hour12/2)+"4"+Chr(10)+Str(hour12/2)+"5"+Chr(10)+Str(hour12/2)+"6"+Chr(10)+Str(hour12/2)+"7")
Next i
 
SendMessage_(ListGadget, #LVM_SETBKCOLOR, 0, RGB(255, 255, 223))
 
;CreateGadgetList(ListGadget)
OldLViewProc = SetWindowLong_(ListGadget, #GWL_WNDPROC, @LViewProc())
SetWindowCallback(@WndProc())
 
For i=0 To 7
 SendMessage_(ListGadget, #LVM_SETCOLUMNWIDTH, i, #LVSCW_AUTOSIZE_USEHEADER)
Next i
 
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow
 
End
 
Procedure KillFocus()
 If hEdit
 SetGadgetItemText(1, CurItem, GetGadgetText(2), CurSubItem)
 FreeGadget(2)
 hEdit = 0
 EndIf
EndProcedure
 
Procedure DrawRectangle(hwnd, *rc.RECT)
 hDC = GetDC_(hwnd)
 OldPen = SelectObject_(hDC, GetStockObject_(#BLACK_PEN))
 OldBrush = SelectObject_(hDC, GetStockObject_(#NULL_BRUSH))
 Rectangle_(hDC, *rc\left, *rc\top, *rc\right, *rc\bottom)
 SelectObject_(hDC, OldBrush)
 SelectObject_(hDC, OldPen)
 ReleaseDC_(hwnd, hDC)
EndProcedure
 
Procedure EditProc(hwnd, uMsg, wParam, lParam)
 result = 0
 Select uMsg
 Case #WM_KEYDOWN
 result = CallWindowProc_(OldEditProc, hwnd, uMsg, wParam, lParam)
 If wParam=#VK_RETURN
 KillFocus()
 EndIf
 Default
 result = CallWindowProc_(OldEditProc, hwnd, uMsg, wParam, lParam)
 EndSelect
 ProcedureReturn result
EndProcedure
 
Procedure LViewProc(hwnd, uMsg, wParam, lParam)
 result = 0
 Select uMsg
 Case #WM_LBUTTONDBLCLK
 If hwnd<>hEdit
 KillFocus()
 pInfo.LVHITTESTINFO
 pInfo\pt\x = LoWord(lParam)
 pInfo\pt\y = HiWord(lParam)
 SendMessage_(hwnd, #LVM_SUBITEMHITTEST, 0, pInfo)
 rc.RECT
 rc\top = pInfo\iSubItem
 rc\left = #LVIR_BOUNDS
 SendMessage_(hwnd, #LVM_GETSUBITEMRECT, pInfo\iItem, rc)
 If hEdit=0
 UseGadgetList(hwnd)
 CurItem = pInfo\iItem
 CurSubItem = pInfo\iSubItem
 Text$ = GetGadgetItemText(1, CurItem, CurSubItem)
 If CurSubItem=0
 rc\right = rc\left+SendMessage_(hwnd, #LVM_GETCOLUMNWIDTH, 0, 0)
 EndIf
 hEdit = StringGadget(2, rc\left+1, rc\top, rc\right-rc\left-1, rc\bottom-rc\top-1, Text$, #PB_String_BorderLess)
 If CurSubItem=0
 SendMessage_(hEdit, #WM_SETFONT, FontBold, #True)
 Else
 SendMessage_(hEdit, #WM_SETFONT, FontReg, #True)
 EndIf
 OldEditProc = SetWindowLong_(hEdit, #GWL_WNDPROC, @EditProc())
 SetFocus_(hEdit)
 EndIf
 Else
 result = CallWindowProc_(OldLViewProc, hwnd, uMsg, wParam, lParam)
 EndIf
 Case #WM_LBUTTONDOWN
 If hwnd<>hEdit
 KillFocus()
 pInfo.LVHITTESTINFO
 pInfo\pt\x = LoWord(lParam)
 pInfo\pt\y = HiWord(lParam)
 SendMessage_(hwnd, #LVM_SUBITEMHITTEST, 0, pInfo)
 rc.RECT
 rc\top = pInfo\iSubItem
 rc\left = #LVIR_BOUNDS
 SendMessage_(hwnd, #LVM_GETSUBITEMRECT, pInfo\iItem, rc)
 rc\left+1
 rc\bottom-1
 If CellSelectOn
 InvalidateRect_(hwnd, rct, #True)
 EndIf
 CellSelectOn = 1
 CurSelItem = pInfo\iItem
 CurSelSubItem = pInfo\iSubItem
 If CurSelSubItem=0
 rc\right = rc\left+SendMessage_(hwnd, #LVM_GETCOLUMNWIDTH, 0, 0)
 EndIf
 DrawRectangle(hwnd, rc)
 CopyMemory(rc, rct, SizeOf(RECT))
 Else
 SetFocus_(hEdit)
 result = CallWindowProc_(OldLViewProc, hwnd, uMsg, wParam, lParam)
 EndIf
 Case #WM_CTLCOLOREDIT
 If GetFocus_()=lParam
 SetBkMode_(wParam, #TRANSPARENT)
 If CurItem&1=0
 TextBkColor = RGB(255, 255, 223)
 If CurSubItem=3
 TextColor = RGB(255, 0, 0)
 EndIf
 Else
 TextBkColor = RGB(208, 208, 176)
 If CurSubItem=3
 TextColor = RGB(0, 0, 255)
 EndIf
 EndIf
 SetTextColor_(wParam, TextColor)
 result = CreateSolidBrush_(TextBkColor)
 Else
 result = CallWindowProc_(OldLViewProc, hwnd, uMsg, wParam, lParam)
 EndIf
 Case #WM_VSCROLL
 result = CallWindowProc_(OldLViewProc, hwnd, uMsg, wParam, lParam)
 rc.RECT
 TopVisibleItem = SendMessage_(hwnd, #LVM_GETTOPINDEX, 0, 0)
 If CellSelectOn
 rc\top = CurSelSubItem
 rc\left = #LVIR_BOUNDS
 SendMessage_(hwnd, #LVM_GETSUBITEMRECT, CurSelItem, rc)
 rct\top = rc\top
 rct\bottom = rc\bottom-1
 If TopVisibleItem<=CurSelItem
 DrawRectangle(hwnd, rct)
 EndIf
 EndIf
 If hEdit
 If TopVisibleItem<=CurItem
 ResizeGadget(2,#PB_Ignore, rc\top,#PB_Ignore,#PB_Ignore)
 HideGadget(2, #False)
 RedrawWindow_(hEdit, 0, 0, #RDW_INTERNALPAINT|#RDW_ERASE|#RDW_INVALIDATE)
 Else
 HideGadget(2, #True)
 EndIf
 SetFocus_(hEdit)
 EndIf
 Case #WM_HSCROLL
 result = CallWindowProc_(OldLViewProc, hwnd, uMsg, wParam, lParam)
 rc.RECT
 TopVisibleItem = SendMessage_(hwnd, #LVM_GETTOPINDEX, 0, 0)
 If CellSelectOn
 rc\top = CurSelSubItem
 rc\left = #LVIR_BOUNDS
 SendMessage_(hwnd, #LVM_GETSUBITEMRECT, CurSelItem, rc)
 rct\left = rc\left+1
 rct\right = rc\right
 If TopVisibleItem<=CurSelItem
 DrawRectangle(hwnd, rct)
 EndIf
 EndIf
 If hEdit
 If TopVisibleItem<=CurItem
 ResizeGadget(2, rc\left,#PB_Ignore,#PB_Ignore,#PB_Ignore)
 HideGadget(2, #False)
 RedrawWindow_(hEdit, 0, 0, #RDW_INTERNALPAINT|#RDW_ERASE|#RDW_INVALIDATE)
 Else
 HideGadget(2, #True)
 EndIf
 SetFocus_(hEdit)
 EndIf
 Default
 result = CallWindowProc_(OldLViewProc, hwnd, uMsg, wParam, lParam)
 EndSelect
 ProcedureReturn result
EndProcedure
 
Procedure WndProc(hwnd, uMsg, wParam, lParam)
 result = #PB_ProcessPureBasicEvents
 Select uMsg
 Case #WM_NOTIFY
 *pnmh.NMHDR = lParam
 Select *pnmh\code
 Case #NM_CUSTOMDRAW
 *LVCDHeader.NMLVCUSTOMDRAW = lParam
 If *LVCDHeader\nmcd\hdr\hWndFrom=ListGadget
 Select *LVCDHeader\nmcd\dwDrawStage
 Case #CDDS_PREPAINT
 result = #CDRF_NOTIFYITEMDRAW
 Case #CDDS_ITEMPREPAINT
 result = #CDRF_NOTIFYSUBITEMDRAW
 Case #CDDS_SUBITEMPREPAINT
 Row = *LVCDHeader\nmcd\dwItemSpec
 Col = *LVCDHeader\iSubItem
 If Col=0
 SelectObject_(*LVCDHeader\nmcd\hDC, FontBold)
 Else
 SelectObject_(*LVCDHeader\nmcd\hDC, FontReg)
 EndIf
 If Row&1=0
 *LVCDHeader\clrTextBk = RGB(255, 255, 223)
 If Col=3
 *LVCDHeader\clrText = RGB(255, 0, 0)
 Else
 *LVCDHeader\clrText = RGB(0, 0, 0)
 EndIf
 Else
 *LVCDHeader\clrTextBk = RGB(208, 208, 176)
 If Col=3
 *LVCDHeader\clrText = RGB(0, 0, 255)
 Else
 *LVCDHeader\clrText = RGB(0, 0, 0)
 EndIf
 EndIf
 result = #CDRF_NEWFONT
 EndSelect
 EndIf
 EndSelect
 EndSelect
 ProcedureReturn result
EndProcedure
 
 
 


_________________
искатель истины


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Пн сен 02, 2019 7:58 pm 
Не в сети
док

Зарегистрирован: Пт июл 09, 2010 6:17 pm
Сообщений: 76
Откуда: Ульяновск
Благодарил (а): 1 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Неее, это не то :)
Это мне попадалось, кстати, но спасибо, что не оставил без внимания :D
Задача - именно в одной ячейке разноцветные буквы, как в приложенном скриншоте.
И крайне желательно без использования колэка.
Не получится так?


Вложения:
sceen1.jpg [114.64 KiB]
Скачиваний: 0
Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Пн сен 02, 2019 8:00 pm 
Не в сети
док

Зарегистрирован: Пт июл 09, 2010 6:17 pm
Сообщений: 76
Откуда: Ульяновск
Благодарил (а): 1 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Нельзя ли в ячейку вставить изображение, а не текст?


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вт сен 03, 2019 5:56 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 882
Благодарил (а): 95 раз.
Поблагодарили: 26 раз.
Пункты репутации: 5
это запрос в гугл, по простому в лоб, исходя из ответов можно немного вопрос видоизменить
site:http://purebasic.info/phpBB3ex/ картинка в listicon
это ответ гугла
https://www.google.com/search?q=site%3A ... 20listicon

скрин гугла
Изображение

а на твоём скрине нет разноцветных букв в листе


Вложения:
Буфер обмена02.png [103.35 KiB]
Скачиваний: 0
Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вт сен 03, 2019 11:09 am 
Не в сети
док

Зарегистрирован: Пт июл 09, 2010 6:17 pm
Сообщений: 76
Откуда: Ульяновск
Благодарил (а): 1 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
newJS писал(а):
это запрос в гугл, по простому в лоб, исходя из ответов можно немного вопрос видоизменить
site:http://purebasic.info/phpBB3ex/ картинка в listicon
это ответ гугла
https://www.google.com/search?q=site%3A ... 20listicon

Спасибо. Но большинство примеров я видел, все они либо вообще не то, либо показывают работу с иконками 8х8 или 16х16. А мне-то надо воткнуть в ячейку полноценное изображение.
newJS писал(а):
а на твоём скрине нет разноцветных букв в листе

Как же нет? Посмотрите, пожалуйста, внимательнее. Первая строка, второй столбец. (ХХХ)101 - там (ХХХ) серым цветом, а не чёрным. Ну да, для наглядности мне нужно было здесь сделать красным, а не серым, что бы лучше выделялось.
Но сути это не меняет. Мне нужно так, но не путём накладывания нового гаджета на эту ячейку, а путём вставки полноценного изображения в ячейку.


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вт сен 03, 2019 7:37 pm 
Не в сети
МОДЕРАТОР
Аватар пользователя

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11515
Благодарил (а): 4 раз.
Поблагодарили: 470 раз.
newJS писал(а):
это запрос в гугл, по простому в лоб
https://www.google.ru/search?q=%D0%BA%D ... IconGadget
Ответ на первой странице. viewtopic.php?p=28407#p28407

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


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Ср сен 04, 2019 7:54 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 882
Благодарил (а): 95 раз.
Поблагодарили: 26 раз.
Пункты репутации: 5
Димон ну ты сам всё понял про цвета :D

Пётр, так я ж сразу упомянул про правку запроса, опять же, ты знал про свою тему, тебе проще было вопрос поставить


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Ср сен 04, 2019 8:24 am 
Не в сети
док

Зарегистрирован: Пт июл 09, 2010 6:17 pm
Сообщений: 76
Откуда: Ульяновск
Благодарил (а): 1 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Я сделал на основе выложенного Петром кода под свои запросы.
У меня глючит при прокрутках и наведени мышки на строчку, куда вставляется изображение.
Изображение смещается не правильно.
Посмотрите, пожалуйста, у меня одного так или нет? Может что подправите?

Код:
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
#CDDS_SUBITEMPREPAINT = #CDDS_SUBITEM|#CDDS_ITEMPREPAINT 
Enumeration
  #WINDOW_MAIN
  #GADGET_LI_1
  #IMAGE_TXT_MODEL_ATLANT
EndEnumeration
 
 Procedure WinCallbackproc(hWnd, uMsg, wParam, lParam)
    Protected result, row, col
    Protected *msg.NMHDR, *LVCDHeader.NMLVCUSTOMDRAW
    result = #PB_ProcessPureBasicEvents
 
    Select uMsg
      Case #WM_NOTIFY
        *msg.NMHDR = lParam
        Select *msg\code
          Case #NM_CUSTOMDRAW
            *LVCDHeader.NMLVCUSTOMDRAW = lParam
            Select *LVCDHeader\nmcd\dwDrawStage
              Case #CDDS_PREPAINT
                ;result = #CDRF_NOTIFYITEMDRAW
              Case #CDDS_ITEMPREPAINT
                result = #CDRF_NOTIFYSUBITEMDRAW
              Case #CDDS_SUBITEMPREPAINT
                row = *LVCDHeader\nmcd\dwItemSpec
                col = *LVCDHeader\iSubItem
                If row=0 And col = 0 ; Use the same font throughout the column
                  rc.RECT:rc\left=#LVIR_BOUNDS:rc\top=col
                  SendMessage_(*LVCDHeader\nmcd\hdr\hwndfrom,#LVM_GETSUBITEMRECT,*LVCDHeader\nmcd\dwItemSpec,@rc)
                  If rc\right-rc\left>100:rc\right=rc\left+100:EndIf
                  If IsImage(#IMAGE_TXT_MODEL_ATLANT)
                    brush = CreatePatternBrush_(ImageID(#IMAGE_TXT_MODEL_ATLANT))
                    If brush
                      FillRect_(*LVCDHeader\nmcd\hdc,@rc,brush)
                      DeleteObject_(brush)
                    EndIf
                  EndIf
                  result = #CDRF_SKIPDEFAULT
                EndIf
            EndSelect
        EndSelect
    EndSelect
    ProcedureReturn result
  EndProcedure
 
 
 
 If OpenWindow(#WINDOW_MAIN, 200, 200, 400, 200, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ListIconGadget(#GADGET_LI_1, 5, 5, 290, 90, "Name", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines)
    AddGadgetColumn(#GADGET_LI_1, 1, "Progress", 100)
    AddGadgetColumn(#GADGET_LI_1, 2, "Address", 150)
    AddGadgetItem(#GADGET_LI_1, -1, "Harry Rannit"+Chr(10)+"TEST"+Chr(10)+"12 Parliament Way, Battle Street, By the Bay")
    AddGadgetItem(#GADGET_LI_1, -1, "Ginger Brokeit"+Chr(10)+Chr(10)+"130 PureBasic Road, BigTown, CodeCity")
    AddGadgetItem(#GADGET_LI_1, -1, "Text for test 1"+Chr(10)+Chr(10)+"Text for test 5")
    AddGadgetItem(#GADGET_LI_1, -1, "Text for test 2"+Chr(10)+"Text for test 4"+Chr(10)+"Text For test 6")
 
    If CreateImage(#IMAGE_TXT_MODEL_ATLANT, 100, 16) And StartDrawing(ImageOutput(#IMAGE_TXT_MODEL_ATLANT))
      Box(0, 0, 100, 16, $FFFFFF)
      DrawingFont(GetGadgetFont(#GADGET_LI_1))
      DrawText(1, 0, "(XXX)", $B0B0B0, $FFFFFF)
      DrawText(1+30, 0, "124", $0000FF, $FFFFFF)
      Line(1, 15, 60, 1, $FF0000)
      StopDrawing()
    EndIf
     
    SetWindowCallback(@WinCallbackproc())
     
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
  EndIf



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

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


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

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


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

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