purebasic.info

PureBasic forum
Текущее время: Вт май 22, 2018 12:52 pm

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




Начать новую тему Ответить на тему  [ Сообщений: 25 ]  На страницу 1, 2  След.
Автор Сообщение
 Заголовок сообщения: Simple Dock
СообщениеДобавлено: Чт фев 07, 2013 1:18 pm 
Не в сети
профессор

Зарегистрирован: Вт мар 24, 2009 11:54 am
Сообщений: 357
Благодарил (а): 14 раз.
Поблагодарили: 18 раз.
Пункты репутации: 19
Вот тая штука
Правая кнопка мыши добавить
Левая Запустить

Код:
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
UsePNGImageDecoder()
#CAPTUREBLT  = $40000000
;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration
 
;- Gadget Constants
;
Enumeration
  #Frame3D_0
EndEnumeration
 
Enumeration
 
  #dock
  #unknow_window
 
  #mirror
  #mask_img
  #mask_img2
  #mask_window
  #bkg_img_noflip
  #bkg_img_flip
 
  #explorer
 
EndEnumeration
 
Structure setings
 
  w.l
  h.l
  Alpha.l
 
EndStructure
Global setings.setings
 
 
 
Structure label
 
  id_image.l
  name.s
  ico_patch.s
  program_patch.s
  parametr_run.s
EndStructure
Global NewList label.label()
 
 
CreateImage(#unknow_window,36,36)
 
StartDrawing(ImageOutput(#unknow_window))
;   DrawingMode(#PB_2DDrawing_AlphaChannel )
  Box(0,0,36,36,RGBA(190, 190, 190, 155))
  Box(2,2,36-4,36-4,RGBA(131, 131, 131, 255))
StopDrawing()
 
 
; ResizeImage(#unknow_window,36,36)
Procedure AlphaImageWindow(WindowID, ImageID, Alpha)
  Protected Image_HDC, Image_Bitmap.BITMAP, Image_BitmapInfo.BITMAPINFO, ContextOffset.POINT, Blend.BLENDFUNCTION
  Protected xx, yy, x, y, Red, Green, Blue, AlphaChannel
  Protected Dim Grate.f($FF)
  For x = 0 To $FF
    Grate(x) = x / $FF
  Next
   
  Image_HDC = CreateCompatibleDC_(#Null)
  Image_Ancienne = SelectObject_(Image_HDC, ImageID)
   
  GetObject_(ImageID, SizeOf(BITMAP), @Image_Bitmap)
  Image_BitmapInfo\bmiHeader\biSize = SizeOf(BITMAPINFOHEADER)
  Image_BitmapInfo\bmiHeader\biWidth = Image_Bitmap\bmWidth
  Image_BitmapInfo\bmiHeader\biHeight = Image_Bitmap\bmHeight
  Image_BitmapInfo\bmiHeader\biPlanes = 1
  Image_BitmapInfo\bmiHeader\biBitCount = 32
   
  xx = Image_Bitmap\bmWidth - 1
  yy = Image_Bitmap\bmHeight - 1
  Protected Dim Image.l(xx, yy)
   
  GetDIBits_(Image_HDC, ImageID, 0, Image_Bitmap\bmHeight, @Image(), @Image_BitmapInfo, #DIB_RGB_COLORS)
   
  For x = 0 To xx
    For y = 0 To yy
      Color = Image(x, y)
      AlphaChannel = Color >> 24 & $FF
      If AlphaChannel < $FF
        Red = (Color & $FF) * Grate(AlphaChannel)
        Green = (Color >> 8 & $FF) * Grate(AlphaChannel)
        Blue = (Color >> 16 & $FF) * Grate(AlphaChannel)
        Image(x, y) = Red | Green << 8 | Blue << 16 | AlphaChannel << 24
      EndIf
    Next
  Next
   
  SetDIBits_(Image_HDC, ImageID, 0, Image_Bitmap\bmHeight, @Image(), @Image_BitmapInfo, #DIB_RGB_COLORS)
   
  Blend\AlphaFormat = 1
  Blend\BlendOp = 0
  Blend\BlendFlags = 0
  Blend\SourceConstantAlpha = Alpha
  UpdateLayeredWindow_(WindowID, 0, 0, @Image_BitmapInfo + 4, Image_HDC, @ContextOffset, 0, @Blend, 2)
     
  SelectObject_(Image_HDC, Image_Ancienne)
  DeleteDC_(Image_HDC)
 
EndProcedure
 
Global Alpha_Dok.l=100,Alpha_ICO.l=0,hwnd.l,delta_h.l=35
 
Procedure render_dock(w,h,Alpha)
 
  With setings
    ResizeWindow(#Window_0,#PB_Ignore,#PB_Ignore,\w,\h)
    ResizeImage(#dock,\w,\h)
  StartDrawing(ImageOutput(#dock))
    DrawingMode(#PB_2DDrawing_AlphaChannel )
    Box(0,0,\w,\h,RGBA(255, 255, 255,1))
    DrawingMode(#PB_2DDrawing_AlphaBlend)
    RoundBox(1,1+delta_h+5,\w-2,\h-2-delta_h-5,20,20,RGBA(255, 255, 255, 255-Alpha_Dok))
    RoundBox(3,3+delta_h+5,\w-6,\h-6-delta_h-5,20,20,RGBA(128, 128, 128, 255-Alpha_Dok))
;     LineXY(20,\h-2,\w-20,\h-2,RGBA(255, 255, 255, 255))
;     LineXY(20,\h-3,\w-20,\h-3,RGBA(255, 255, 255, 255))
    ;DrawAlphaImage(ImageID(#explorer),6,6,255)
   
      ;ResizeImage(IconID,36,36)
    ForEach label()
      DrawingMode(#PB_2DDrawing_Gradient|#PB_2DDrawing_AlphaBlend)
      BackColor(RGBA(58, 58, 58, 255))
      FrontColor(RGBA(128, 128, 128, 1))
     
     
      If WindowMouseX(#Window_0)>ListIndex(label())*48+20 And WindowMouseX(#Window_0)<ListIndex(label())*48+20+48
        SelectItem= ListIndex(label())
        up=10
       
      Else
        up=0
      EndIf
       
     
      EllipticalGradient(ListIndex(label())*48+37,\h-delta_h+26, 36, 5)
      Ellipse(ListIndex(label())*48+37,\h-delta_h+25, 36, 5)
     
      DrawImage(label()\id_image,ListIndex(label())*48+20,\h-delta_h-6-up);,255)
      ;DrawAlphaImage(ImageID(label()\id_image),ListIndex(label())*48+20,\h-delta_h-6,255)
    Next label()
  StopDrawing()
 
   
 
  SetWindowLong_(hwnd, #GWL_EXSTYLE, GetWindowLong_(hwnd, #GWL_EXSTYLE) | #WS_EX_LAYERED)
  AlphaImageWindow(hwnd, ImageID(#dock), 255)
EndWith
ProcedureReturn SelectItem
EndProcedure
 
Procedure add_label()
  Debug ""
  file.s=OpenFileRequester("open exe","","",0)
  If file
  AddElement(label())
  With label()
    IconID = ExtractIcon_(GetModuleHandle_(0), file, 0)
    If IconID
      \id_image=IconID
      \name=GetFilePart(file)
      \program_patch=file
    Else
      \id_image=ImageID(#unknow_window)
      \name=GetFilePart(file)
      \program_patch=file
    EndIf
   
   
  EndWith
 
  setings\w=setings\w+48
  render_dock(setings\w,setings\h,setings\Alpha)
  ResizeWindow(#Window_0,(DesktopWidth(0)/2)-(WindowWidth(#Window_0)/2),DesktopHeight(0)-58,#PB_Ignore,#PB_Ignore)
  EndIf
EndProcedure
 
Procedure WindowCallBack(WindowId, Message, lParam, wParam)
 
  If Message = #WM_PAINT
  ;MirrorScreen(WindowX(#Window_0)+delta.l, WindowY(#Window_0)-WindowHeight(#Window_0),WindowWidth(#Window_0)-delta.l*2, WindowHeight(#Window_0))
  render_dock(setings\w,setings\h,setings\Alpha)
  ResizeWindow(#Window_0,DesktopWidth(0)/2-(WindowWidth(#Window_0)/2),DesktopHeight(0)-58,#PB_Ignore,#PB_Ignore)
  ElseIf Message = #WM_MOVE
  ;MirrorScreen(WindowX(#Window_0)+delta.l, WindowY(#Window_0)-WindowHeight(#Window_0),WindowWidth(#Window_0)-delta.l*2, WindowHeight(#Window_0))
  render_dock(setings\w,setings\h,setings\Alpha)
  ResizeWindow(#Window_0,DesktopWidth(0)/2-(WindowWidth(#Window_0)/2),DesktopHeight(0)-58,#PB_Ignore,#PB_Ignore)
  EndIf
 
  ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
 
Procedure Open_Window_0()
  ExamineDesktops()
  hwnd=OpenWindow(#Window_0, 200, 600, 28, 58, "Simple Dock",#PB_Window_BorderLess  );| #PB_Window_ScreenCentered
  AddWindowTimer(0, 1, 250)
  StickyWindow(#Window_0,1)
  ResizeWindow(#Window_0,DesktopWidth(0)/2-(WindowWidth(#Window_0)-2),DesktopHeight(0)-58,#PB_Ignore,#PB_Ignore)
  CreateImage(#dock, 400, 400,32)
  ResizeImage(#dock,WindowWidth(#Window_0),WindowHeight(#Window_0))
 
  With setings
    \Alpha=250
    \h    =WindowHeight(#Window_0)
    \w    =WindowWidth (#Window_0)
  EndWith
 
  render_dock(setings\w,setings\h,setings\Alpha)
 SetWindowLong_(hwnd, #GWL_EXSTYLE, GetWindowLong_(hwnd, #GWL_EXSTYLE) | #WS_EX_LAYERED) ; Mettre l'attribut WS_EX_LAYERED a la fenetre
  SetWindowLongPtr_(Whwnd, #GWL_EXSTYLE, #WS_EX_LAYERED | #WS_EX_TOPMOST)
 ; SetLayeredWindowAttributes_(hwnd,#BackBlue,0,#LWA_COLORKEY)
  AlphaImageWindow(hwnd, ImageID(#dock), 255)
 
 
 
;   SetWindowLong_(hwnd,#GWL_EXSTYLE,$00080000)                 ; #WS_EX_LAYERED = $00080000
;   SetLayeredWindowAttributes_(hwnd,0,200,2)  
 
EndProcedure
 
Open_Window_0()
render_dock(setings\w,setings\h,setings\Alpha)
 
 
AddElement(label())
With label()
 
      \id_image=IconID = ExtractIcon_(GetModuleHandle_(0), "explorer.exe", 0)
      \name="Мой компьютер"
      \program_patch="explorer"
      ;\parametr_run="/root , "
  EndWith
  setings\w=setings\w+48
  render_dock(setings\w,setings\h,setings\Alpha)
  ResizeWindow(#Window_0,(DesktopWidth(0)/2)-(WindowWidth(#Window_0)/2),DesktopHeight(0)-58,#PB_Ignore,#PB_Ignore)
 
 
 
; add_label()
; add_label()
; add_label()
; add_label()
;   mask=CreateMask(#mask_img)
;   oldsize= GetRegionData_(mask,0,0)
;   *source= AllocateMemory(oldsize)
;   GetRegionData_(mask,oldsize,*source)
;   SetWindowRgn_(hwnd,mask,#True)
 
SetWindowCallback(@WindowCallBack())
Repeat
  event = WaitWindowEvent()
  If event
     With setings
      \Alpha=100
      \h    =WindowHeight(#Window_0)
      \w    =WindowWidth (#Window_0)
    EndWith
    label=render_dock(w,h,Alpha)
  EndIf
 
  If Event = #PB_Event_Timer And EventTimer() = 1
        ;MirrorScreen(WindowX(#Window_0)+delta.l, WindowY(#Window_0)-WindowHeight(#Window_0),WindowWidth(#Window_0)-delta.l*2, WindowHeight(#Window_0))
  EndIf
     
    Select Event
    Case #WM_LBUTTONDOWN
      ;SendMessage_(WindowID(#Window_0), #WM_SYSCOMMAND, #SC_MOVE + #HTCAPTION, 0)
      SelectElement(label(),label)
      RunProgram(label()\program_patch,label()\parametr_run,"")
    Case #WM_RBUTTONDOWN
      add_label()
         Case #PB_Event_SizeWindow
     RedrawWindow_(WindowID(Window_0), 0, 0, #RDW_ALLCHILDREN|#RDW_UPDATENOW)
  EndSelect
Until event = #PB_Event_CloseWindow



Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт фев 07, 2013 5:44 pm 
Не в сети
док

Зарегистрирован: Сб окт 31, 2009 7:44 am
Сообщений: 147
Благодарил (а): 75 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Круто! Как бы этот код выглядел на asm'е?...


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт фев 07, 2013 6:31 pm 
Не в сети
PureBasic Coder
Аватар пользователя

Зарегистрирован: Чт ноя 10, 2011 10:50 am
Сообщений: 4049
Откуда: Ростов-на-Дону
Благодарил (а): 70 раз.
Поблагодарили: 81 раз.
Пункты репутации: 24
Красиво! Но нужно переделать эту строку:
Код:
1
      \id_image=IconID = ExtractIcon_(GetModuleHandle_(0), "explorer.exe", 0)



А то в PureBasic 5.10 ошибка. Втулили непонятно для чего Bool()

Изображение

_________________
Пурик - лучший язык программирования


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт фев 07, 2013 8:37 pm 
Не в сети
МОДЕРАТОР
Аватар пользователя

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11127
Благодарил (а): 4 раз.
Поблагодарили: 399 раз.
Никита Однороб писал(а):
А то в PureBasic 5.10 ошибка.
Это в коде ошибка! Компилятор правильно делает что ругается. Предыдущие версии тихо прожевывали такую конструкцию и проги работали не так, как задумано!

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


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт фев 07, 2013 8:43 pm 
Не в сети
PureBasic Coder
Аватар пользователя

Зарегистрирован: Чт ноя 10, 2011 10:50 am
Сообщений: 4049
Откуда: Ростов-на-Дону
Благодарил (а): 70 раз.
Поблагодарили: 81 раз.
Пункты репутации: 24
Пётр, ну и как правильно переделать эту строку?

_________________
Пурик - лучший язык программирования


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт фев 07, 2013 9:18 pm 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6276
Благодарил (а): 19 раз.
Поблагодарили: 184 раз.
Пункты репутации: 48
Никита Однороб писал(а):
и как правильно

А что там думать то?
Код:
1
\id_image= ExtractIcon_(GetModuleHandle_(0), "explorer.exe", 0)


_________________
read-only


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт фев 07, 2013 11:12 pm 
Не в сети
PureBasic Coder
Аватар пользователя

Зарегистрирован: Чт ноя 10, 2011 10:50 am
Сообщений: 4049
Откуда: Ростов-на-Дону
Благодарил (а): 70 раз.
Поблагодарили: 81 раз.
Пункты репутации: 24
kvitaliy, т.е. теперь удалили поддержку выражений типа
Цитата:
var1 = var2 = 5
:?:

_________________
Пурик - лучший язык программирования


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт фев 08, 2013 6:34 am 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6276
Благодарил (а): 19 раз.
Поблагодарили: 184 раз.
Пункты репутации: 48
Никита Однороб писал(а):
теперь удалили поддержку выражений типа

А и не было ни какой поддержки. Проверь в старой версии
Код:
1
2
3
4
var1 = var2 = 5
Debug var1
Debug var2
 


И ты увидишь, что var1 =0 как и прежде.

_________________
read-only


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт фев 08, 2013 9:17 am 
Не в сети
МОДЕРАТОР
Аватар пользователя

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11127
Благодарил (а): 4 раз.
Поблагодарили: 399 раз.
Никита Однороб писал(а):
теперь удалили поддержку выражений типа
А разве раньше это поддерживалось?
То, что компилятор проглатывал такую запись (а должен был сообщать об ошибке), не значит что такая конструкция поддерживалась.

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


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт фев 08, 2013 11:08 am 
Не в сети
профессор

Зарегистрирован: Ср янв 14, 2009 4:12 pm
Сообщений: 2002
Благодарил (а): 12 раз.
Поблагодарили: 101 раз.
Пункты репутации: 43
cherri123 писал(а):
Вот тая штука

Хорошая штука :) Но есть баги. Добавил я прогу ACDSee, а она не запускается грит
Цитата:
---------------------------
ACDSee6.exe - Не удалось найти компонент
---------------------------
Приложению не удалось запуститься, поскольку ACDInTouch40.dll не был найден. Повторная установка приложения может исправить эту проблему.
---------------------------
ОК
---------------------------

Хотя ACDInTouch40.dll лежит в ...\program files\common files\acd systems\en и ACDSee нормально стартует из папки
Ну и пожелания
cherri123 писал(а):
Правая кнопка мыши добавить

Имхо лучше добавлять через контекстное меню, там и выход можно сделать и настройки всякие.
Сделать окошко скрывающееся, а когда курсор подводишь к краю экрана окошко выезжало.
Убрать отображение окна из панели задачь
Сделать возможность добавлять не только файлы но и каталоги
Вопчем посмотри на программку RocketDock

_________________
Всё должно быть просто, настолько просто, насколько возможно, но не проще. (c) Альберт Эйнштейн
Изображение


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн фев 11, 2013 10:06 am 
Не в сети
профессор

Зарегистрирован: Вт мар 24, 2009 11:54 am
Сообщений: 357
Благодарил (а): 14 раз.
Поблагодарили: 18 раз.
Пункты репутации: 19
спасибо за тест кода

ни кто не знает как запустить эксплорер отображающий не "Мои документы" а "Мой компьютер"


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн фев 11, 2013 11:10 am 
Не в сети
профессор

Зарегистрирован: Вт ноя 08, 2011 10:17 am
Сообщений: 578
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
здороо!. надо конечно еще причесать, есть где развернуться


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн фев 11, 2013 11:16 am 
Не в сети
профессор

Зарегистрирован: Вт ноя 08, 2011 10:17 am
Сообщений: 578
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
cherri123 писал(а):
ни кто не знает как запустить эксплорер отображающий не "Мои документы" а "Мой компьютер"


Через ShellExecute
http://www.programmersforum.ru/showthread.php?t=150691


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн фев 11, 2013 1:00 pm 
Не в сети
профессор

Зарегистрирован: Пн июл 04, 2011 7:38 am
Сообщений: 738
Откуда: Россия
Благодарил (а): 29 раз.
Поблагодарили: 9 раз.
Пункты репутации: 0
cherri123 писал(а):
ни кто не знает как запустить эксплорер отображающий не "Мои документы" а "Мой компьютер"


Код:
1
2
3
 
RunProgram("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
 



Здесь CLSID других каталогов


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн фев 11, 2013 1:12 pm 
Не в сети
PureBasic Coder
Аватар пользователя

Зарегистрирован: Чт ноя 10, 2011 10:50 am
Сообщений: 4049
Откуда: Ростов-на-Дону
Благодарил (а): 70 раз.
Поблагодарили: 81 раз.
Пункты репутации: 24
SergeyA писал(а):
Здесь CLSID других каталогов
Вот ещё:
Цитата:
{ED7BA470-8E54-465E-825C-99712043E01C} – полный список настраиваемых параметров (Windows GodMode);
{00C6D95F-329C-409a-81D7-C46C66EA7F33} – доступ к GPS-настройкам;
{0142e4d0-fb7a-11dc-ba4a-000ffe7ab428} – доступ к параметрам биометрических устройств;
{025A5937-A6BE-4686-A844-36FE4BEC8B6D} – доступ к параметрам электропитания Windows;
{05d7b0f4-2121-4eff-bf6b-ed3f69b894d9} – доступ к параметрам панели задач;
{1206F5F1-0569-412C-8FEC-3204630DFB70} – доступ к параметрам учетных данных;
{15eae92e-f17a-4431-9f28-805e482dafd4} – установка программного обеспечения через сеть;
{17cd9488-1228-4b2f-88ce-4298e93e0966} – выбор программ по умолчанию;
{1D2680C9-0E2A-469d-B787-065558BC7D43} – доступ к используемым библиотекам;
{1FA9085F-25A2-489B-85D4-86326EEDCD87} – управление беспроводными сетями;
{208D2C60-3AEA-1069-A2D7-08002B30309D} – просмотр устройств локальной сети;
{20D04FE0-3AEA-1069-A2D8-08002B30309D} – режим папки «Мой компьютер»;
{2227A280-3AEA-1069-A2DE-08002B30309D} – доступ к параметрам принтеров;
{241D7C96-F8BF-4F85-B01F-E2B043341A4B} – доступ к подключениям RemoteDesktop;
{4026492F-2F69-46B8-B9BF-5654FC07E423} – доступ к параметрам брандмауэра;
{78F3955E-3B90-4184-BD14-5397C15F1EFC} – доступ к параметрам производительности ПК.

_________________
Пурик - лучший язык программирования


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

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


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

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


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

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