purebasic.info

PureBasic forum
Текущее время: Вт окт 23, 2018 4:10 am

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




Начать новую тему Ответить на тему  [ Сообщений: 66 ]  На страницу 1, 2, 3, 4, 5  След.
Автор Сообщение
 Заголовок сообщения: мой редактор
СообщениеДобавлено: Вт янв 10, 2012 1:09 pm 
Не в сети
PureBasic Coder
Аватар пользователя

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


Вложения:
Homesoft Text Editor Setup.zip [39.03 KiB]
Скачиваний: 228
Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт янв 10, 2012 2:46 pm 
Не в сети
МОДЕРАТОР

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


Этим твоим редактором пользоваться почти нельзя - файл в 40 Кб он грузит долго, а файл размером в 500 Кб, я вообще не дождался когда, и редактор завис :D
Я конечно понимаю, что ты как то неправильно организовал считывание файла, но Никита, ты бы всё же засветил бы исходник редактора. Не для того, что бы мы его украли и использовали в личных целях, а для того, что бы по дружески подсказать, как сделать лучше.
Поверь, если так если так дело пойдет дальше, то поиск/замена и проверка орфографии будет истинным кошмаром!

Нет контекстного меню - как без него?
Но за то я нашел недокументированную возможность - Ctrl+A выделяет весь текст!
:lol: :lol: :lol:

Спасибо , что стараешься и постоянно радуешь нас новыми программами, но огорчает, что не показываешь исходники - это для нас так важно, Никита!

P.s. Если это коммерческий проект и у тебя строгий контракт с заказчиком, то конечно, исходники светить ни за что нельзя. Тогда просто продолжай выкладывать инсталляторы, я их буду тщательно тестировать.

_________________
read-only


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

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11303
Благодарил (а): 4 раз.
Поблагодарили: 436 раз.
Была тут темка про похожий редактор. http://purebasic.info/phpBB2/viewtopic.php?t=111
Может имеющийся там код и советы как-то помогут усовершенствовать программу.

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


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

Зарегистрирован: Чт ноя 10, 2011 10:50 am
Сообщений: 4049
Откуда: Ростов-на-Дону
Благодарил (а): 70 раз.
Поблагодарили: 81 раз.
Пункты репутации: 24
забыл исходник вот код
Код:
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
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
LoadFont(10,"Arial",12)
If OpenWindow(0, 0, 0, 1280, 744, "Homesoft Text Editor",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_Maximize | #PB_Window_TitleBar )
  If CreatePopupMenu(1)
      MenuItem(100, "Отменить" + Chr(9) + "Ctrl + Z")
      MenuItem(101, "Повторить" + Chr(9) + "Ctrl + Y")
      MenuBar()
      MenuItem(102, "Вырезать" + Chr(9) + "Ctrl + X")
      MenuItem(103, "Копировать" + Chr(9) + "Ctrl + C")
      MenuItem(104, "Вставить" + Chr(9) + "Ctrl + V")
      MenuBar()
      MenuItem(105, "Найти/Заменить" + Chr(9) + "Ctrl + F")
      MenuItem(106, "Шрифт" + Chr(9) + "Alt + F")
    EndIf
  If CreateMenu(0, WindowID(0))
      MenuTitle("Файл")
      MenuItem(1, "Создать" + Chr(9) + "Ctrl + N")
      MenuItem(2, "Открыть" + Chr(9) + "Ctrl + O")
      MenuBar()
      MenuItem(4, "Сохранить" + Chr(9) + "Ctrl + S")
      MenuItem(6, "Сохранить как")
      MenuBar()
      MenuItem(7, "Выход" + Chr(9) + "Alt + F4")
      MenuTitle("Правка")
      MenuItem(12, "Отменить" + Chr(9) + "Ctrl + Z")
      MenuItem(13, "Повторить" + Chr(9) + "Ctrl + Y")
      MenuBar()
      MenuItem(14, "Вырезать" + Chr(9) + "Ctrl + X")
      MenuItem(16, "Копировать" + Chr(9) + "Ctrl + C")
      MenuItem(17, "Вставить" + Chr(9) + "Ctrl + V")
      MenuTitle("Формат")
      MenuItem(21, "Шрифт" + Chr(9) + "Alt + F")
      MenuTitle("Вид")
      MenuItem(23, "Меню" + Chr(9) + "Alt + M")
      MenuItem(24, "Панель инструментов" + Chr(9) + "Alt + T")
      MenuTitle("Справка")
      MenuItem(61, "Вызов справки" + Chr(9) + "F1")
      MenuItem(62, "О программе" + Chr(9) + "Alt + F1")
      SetMenuItemState(0,23,1)
      SetMenuItemState(0,24,1)
      EndIf
      If CreateStatusBar(0, WindowID(0))
        EndIf
        If CreateGadgetList(WindowID(0))                    
          PanelGadget(0, 0, 35, 1355, 625)
          AddGadgetItem(0, -1, "Новый документ")
          InitScintilla()
          EditorGadget(1,0,0,1345,595)
          typefile$ = "new"
        EndIf
        If CreateTB(0,WindowID(0),24,24)
          SetTBimage(0,0,#TBpro_NORMAL)
          SetTBimage(0,0,#TBpro_HOT)
          SetTBimage(0,0,#TBpro_DISABLED)
          AddTBsysIcons()
          AddTBbutton(63,#TBpro_FILENEW,#TBpro_BUTTON)
          AddTBbutton(64,#TBpro_FILEOPEN,#TBpro_BUTTON)
          AddTBbutton(69,#TBpro_FILESAVE,#TBpro_BUTTON)
          AddTBseparator()
          AddTBbutton(65,#TBpro_CUT,#TBpro_BUTTON)
          AddTBbutton(66,#TBpro_COPY,#TBpro_BUTTON)
          AddTBbutton(67,#TBpro_PASTE,#TBpro_BUTTON)
          AddTBseparator()
          AddTBbutton(70,#TBpro_UNDO,#TBpro_BUTTON)
          AddTBbutton(71,#TBpro_REDO,#TBpro_BUTTON)
          AddTBseparator()
          AddTBbutton(75,#TBpro_HELP,#TBpro_BUTTON)
          SetTBbuttonTooltip(63,"Создать")
          SetTBbuttonTooltip(64,"Открыть")
          SetTBbuttonTooltip(69,"Сохранить")
          SetTBbuttonTooltip(65,"Вырезать")
          SetTBbuttonTooltip(66,"Копировать")
          SetTBbuttonTooltip(67,"Вставить")
          SetTBbuttonTooltip(68,"Удалить")
          SetTBbuttonTooltip(70,"Отменить")
          SetTBbuttonTooltip(71,"Повторить")
          SetTBbuttonTooltip(72,"Предварительный просмотр")
          SetTBbuttonTooltip(73,"Печать")
          SetTBbuttonTooltip(75,"Помощь")
        EndIf
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_N,1)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_O,2)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_S,4)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_Z,12)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_Y,13)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_X,14)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_C,16)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_V,17)
        AddKeyboardShortcut(0,#PB_Shortcut_F1,61)
        AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_F1,62)
        AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_F,21)
        AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_M,23)
        AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_T,24)
        File$=ProgramParameter()
        If File$ <> "" And FileSize(File$)>=0
           SetGadgetItemText(0,0,GetFilePart(file$))
                 If OpenFile(0,file$)
                  While Eof(0) = 0
                     AddGadgetItem(1,-1,ReadString(0))
                  Wend
                     CloseFile(0)
                     typefile$ = "save"
                   Else
                   MessageRequester("Homesoft Text Editor", "Невозможно открыть файл. Возможно, он переименован, перемещён или удалён.", #MB_OK|#MB_ICONERROR)
                  SetGadgetItemText(0,0,"Новый документ")
              EndIf  
        EndIf
        Repeat
          event = WaitWindowEvent()
          Select event
            Case #PB_Event_CloseWindow
              Select GetActiveWindow()
                  Case 0
              Select MessageRequester("Сохранение документа", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      Select typefile$
                    Case "new"
                      filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
                      If CreateFile(0,filesave$ + ".txt")
                         WriteString(0,GetGadgetText(1))
                         CloseFile(0)
                       Else
                         MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                       EndIf
                     Case "save"
                       DeleteFile(fileopen$)
                       If CreateFile(0,fileopen$)
                         WriteString(0,GetGadgetText(1))
                         CloseFile(0)
                       Else
                         MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                       EndIf
                   EndSelect
                   CloseWindow(0)
                   End
                    Case #IDNO
                      CloseWindow(0)
                      End
                  EndSelect
                Case 1
                  CloseWindow(1)
               EndSelect
            Case #PB_Event_Menu
              Select EventMenu()
                Case 1
                  Select MessageRequester("Homesoft Text Editor", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
                      If CreateFile(0,filesave$ + ".txt")
                        WriteString(0,GetGadgetText(1))
                        CloseFile(0)
                        ClearGadgetItems(1)
                      Else
                        MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                      EndIf
                    Case #IDNO
                      ClearGadgetItems(1)
                    Case #IDCANCEL
                  EndSelect
                  typefile$ = "new"
                Case 2
                  Select MessageRequester("Homesoft Text Editor", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
                      If CreateFile(0,filesave$ + ".txt")
                        WriteString(0,GetGadgetText(1))
                        CloseFile(0)
                        ClearGadgetItems(1)
                      Else
                        MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                      EndIf
                        fileopen$ = OpenFileRequester("Открытие файла","","Текстовые документы (*.txt)|*.txt|Все файлы|*.*",0)
                        SetGadgetItemText(0,0,GetFilePart(fileopen$))
                        If OpenFile(0,fileopen$)
                          While Eof(0) = 0
                            AddGadgetItem(1,-1,ReadString(0))
                          Wend
                          CloseFile(0)
                          typefile$ = "save"
                        Else
                          MessageRequester("Homesoft Text Editor", "Невозможно открыть файл. Возможно, он переименован, перемещён или удалён.", #MB_OK|#MB_ICONERROR)
                          SetGadgetItemText(0,0,"Новый документ")
                        EndIf                        
                    Case #IDNO
                      ClearGadgetItems(1)
                      fileopen$ = OpenFileRequester("Открытие файла","","Текстовые документы (*.txt)|*.txt|Все файлы|*.*",0)
                      SetGadgetItemText(0,0,GetFilePart(fileopen$))
                        If OpenFile(0,fileopen$)
                          While Eof(0) = 0
                            AddGadgetItem(1,-1,ReadString(0))
                          Wend
                          CloseFile(0)
                          typefile$ = "save"
                        Else
                          MessageRequester("Homesoft Text Editor", "Невозможно открыть файл. Возможно, он переименован, перемещён или удалён.", #MB_OK|#MB_ICONERROR)
                          SetGadgetItemText(0,0,"Новый документ")
                        EndIf  
                    Case #IDCANCEL
                  EndSelect
                Case 4
                  Select typefile$
                    Case "new"
                      filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
                      If CreateFile(0,filesave$ + ".txt")
                         WriteString(0,GetGadgetText(1))
                         CloseFile(0)
                       Else
                         MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                       EndIf
                     Case "save"
                       DeleteFile(fileopen$)
                       If CreateFile(0,fileopen$)
                         WriteString(0,GetGadgetText(1))
                         CloseFile(0)
                       Else
                         MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                       EndIf
                   EndSelect
                 Case 6
                  filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
                      If CreateFile(0,filesave$ + ".txt")
                         WriteString(0,GetGadgetText(1))
                         CloseFile(0)
                       Else
                         MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                       EndIf
                Case 64
                  Select MessageRequester("Homesoft Text Editor", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
                      If CreateFile(0,filesave$ + ".txt")
                        WriteString(0,GetGadgetText(1))
                        CloseFile(0)
                        ClearGadgetItems(1)
                        fileopen$ = OpenFileRequester("Открытие файла","","Текстовые документы (*.txt)|*.txt|Все файлы|*.*",0)
                        SetGadgetItemText(0,0,GetFilePart(fileopen$))
                        If OpenFile(0,fileopen$)
                          While Eof(0) = 0
                            AddGadgetItem(1,-1,ReadString(0))
                          Wend
                          CloseFile(0)
                          typefile$ = "save"
                        Else
                          MessageRequester("Homesoft Text Editor", "Невозможно открыть файл. Возможно, он переименован, перемещён или удалён.", #MB_OK|#MB_ICONERROR)
                          SetGadgetItemText(0,0,"Новый документ")
                        EndIf                        
                      Else
                        MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                        fileopen$ = OpenFileRequester("Открытие файла","","Текстовые документы (*.txt)|*.txt|Все файлы|*.*",0)
                        SetGadgetItemText(0,0,GetFilePart(fileopen$))
                        If OpenFile(0,fileopen$)
                          While Eof(0) = 0
                            AddGadgetItem(1,-1,ReadString(0))
                          Wend
                          CloseFile(0)
                          typefile$ = "save"
                        Else
                          MessageRequester("Homesoft Text Editor", "Невозможно открыть файл. Возможно, он переименован, перемещён или удалён.", #MB_OK|#MB_ICONERROR)
                          SetGadgetItemText(0,0,"Новый документ")
                        EndIf
                      EndIf
                    Case #IDNO
                      ClearGadgetItems(1)
                      fileopen$ = OpenFileRequester("Открытие файла","","Текстовые документы (*.txt)|*.txt|Все файлы|*.*",0)
                        SetGadgetItemText(0,0,GetFilePart(fileopen$))
                        If OpenFile(0,fileopen$)
                          While Eof(0) = 0
                            AddGadgetItem(1,-1,ReadString(0))
                          Wend
                          CloseFile(0)
                          typefile$ = "save"
                        Else
                          MessageRequester("Homesoft Text Editor", "Невозможно открыть файл. Возможно, он переименован, перемещён или удалён.", #MB_OK|#MB_ICONERROR)
                          SetGadgetItemText(0,0,"Новый документ")
                        EndIf      
                    Case #IDCANCEL
                  EndSelect
                Case 69
                  Select typefile$
                    Case "new"
                      filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
                      If CreateFile(0,filesave$ + ".txt")
                         WriteString(0,GetGadgetText(1))
                         CloseFile(0)
                       Else
                         MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                       EndIf
                     Case "save"
                       DeleteFile(fileopen$)
                       If CreateFile(0,fileopen$)
                         WriteString(0,GetGadgetText(1))
                         CloseFile(0)
                       Else
                         MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                       EndIf
                   EndSelect
                 Case 12
                   SendMessage_(GadgetID(1),#EM_UNDO,0,0)
                 Case 13
                  SendMessage_(GadgetID(1),#EM_REDO,0,0)
                 Case 14
                   SendMessage_(GadgetID(1),#WM_CUT,0,0)
                 Case 16
                   SendMessage_(GadgetID(1),#WM_COPY,0,0)
                 Case 17
                   SendMessage_(GadgetID(1),#WM_PASTE,0,0)
                 Case 70
                   SendMessage_(GadgetID(1),#EM_UNDO,0,0)
                 Case 71
                   SendMessage_(GadgetID(1),#EM_REDO,0,0)
                 Case 65
                   SendMessage_(GadgetID(1),#WM_CUT,0,0)
                 Case 66
                   SendMessage_(GadgetID(1),#WM_COPY,0,0)
                 Case 67
                   SendMessage_(GadgetID(1),#WM_PASTE,0,0)
                 Case 21
                   FontRequester("Arial",12,#PB_FontRequester_Effects)
                   fontid = LoadFont(#PB_Any,SelectedFontName(),SelectedFontSize(),SelectedFontStyle())
                   SetGadgetFont(1,FontID(fontid))
                   SetGadgetColor(1,#PB_Gadget_FrontColor,SelectedFontColor())
                 Case 63
                  Select MessageRequester("Homesoft Text Editor", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
                      If CreateFile(0,filesave$ + ".txt")
                        WriteString(0,GetGadgetText(1))
                        CloseFile(0)
                        ClearGadgetItems(1)
                      Else
                        MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                      EndIf
                    Case #IDNO
                      ClearGadgetItems(1)
                    Case #IDCANCEL
                  EndSelect
                  typefile$ = "new"
                Case 7
                  Select MessageRequester("Сохранение документа", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      Select typefile$
                    Case "new"
                      filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
                      If CreateFile(0,filesave$ + ".txt")
                         WriteString(0,GetGadgetText(1))
                         CloseFile(0)
                       Else
                         MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                       EndIf
                     Case "save"
                       DeleteFile(fileopen$)
                       If CreateFile(0,fileopen$)
                         WriteString(0,GetGadgetText(1))
                         CloseFile(0)
                       Else
                         MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
                       EndIf
                   EndSelect
                   CloseWindow(0)
                   End
                    Case #IDNO
                      CloseWindow(0)
                      End
                  EndSelect
                Case 23
                  If GetMenuItemState(0,23) = 0
                    SetMenuItemState(0,23,1)
                    HideMenu(0,0)
                  Else
                    SetMenuItemState(0,23,0)
                    HideMenu(0,1)
                  EndIf
                Case 24
                  If GetMenuItemState(0,24) = 0
                    SetMenuItemState(0,24,1)
                    HideTB(0,0)
                  Else
                    SetMenuItemState(0,24,0)
                    HideTB(0,1)
                  EndIf
                Case 62
                  MessageRequester("О программе", "Homesoft Text Editor"+Chr(10)+"Версия - 1.0.0.0"+Chr(10)+"Автор - Никита Однороб", #MB_OK|#MB_ICONINFORMATION)
                Case 61
                  OpenHelp("help.chm","Горячие клавиши.htm")
              EndSelect
            Case #PB_Event_Gadget
              Select EventGadget()
              EndSelect
            Case #PB_Event_MaximizeWindow
            Case #PB_Event_MinimizeWindow
            Case #PB_Event_SizeWindow
            Case #PB_Event_SysTray
          EndSelect
        Until quit = 1
      EndIf


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


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

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

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


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

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11303
Благодарил (а): 4 раз.
Поблагодарили: 436 раз.
kvitaliy писал(а):
файл в 40 Кб он грузит долго, а файл размером в 500 Кб, я вообще не дождался когда, и редактор завис
Грузит долго из-за этого.
Никита Однороб писал(а):
While Eof(0) = 0
                            AddGadgetItem(1,-1,ReadString(0))
                          Wend
Нужно грузить за один прием из файла в строковую переменную, а оттуда в редактор.

И в коде много повторяющихся фрагментов. Процедуры, подпрограммы, в крайнем случае, макросы, позволили бы уменьшить объем кода.

Никита Однороб писал(а):
на форуме не нашёл

А как же это? http://purebasic.info/phpBB2/viewtopic.php?t=1988

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


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

Зарегистрирован: Чт ноя 10, 2011 10:50 am
Сообщений: 4049
Откуда: Ростов-на-Дону
Благодарил (а): 70 раз.
Поблагодарили: 81 раз.
Пункты репутации: 24
переделал вот код вроде бы нормально но на файлах 1,2 Мб зависает вот код:
Код:
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
LoadFont(10,"Arial",12)
Procedure LoadFile(File$)
  SetGadgetItemText(0,0,GetFilePart(file$))
  textfile$ = ""
  If OpenFile(0,file$)
    While Eof(0) = 0
      textfile$ + ReadString(0)
    Wend
    CloseFile(0)
    SetGadgetText(1,textfile$)
    typefile$ = "save"
  Else
    MessageRequester("Homesoft Text Editor", "Невозможно открыть файл. Возможно, он переименован, перемещён или удалён.", #MB_OK|#MB_ICONERROR)
    SetGadgetItemText(0,0,"Новый документ")
  EndIf  
EndProcedure
Procedure SaveFile()
  Select typefile$
    Case "new"
      filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
      If CreateFile(0,filesave$ + ".txt")
        WriteString(0,GetGadgetText(1))
        CloseFile(0)
      Else
        MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
      EndIf
    Case "save"
      DeleteFile(fileopen$)
      If CreateFile(0,fileopen$)
        WriteString(0,GetGadgetText(1))
        CloseFile(0)
      Else
        MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
      EndIf
  EndSelect
EndProcedure
Procedure savefileas()
  filesave$ = SaveFileRequester("Сохранение файла","Текстовый документ","Текстовый документ|*.txt",0)
  If CreateFile(0,filesave$ + ".txt")
    WriteString(0,GetGadgetText(1))
    CloseFile(0)
  Else
    MessageRequester("Homesoft Text Editor", "Невозможно сохранить файл" + "(" + filesave$ + ")", #MB_OK|#MB_ICONERROR)
  EndIf
EndProcedure
If OpenWindow(0, 0, 0, 1280, 744, "Homesoft Text Editor",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_Maximize | #PB_Window_TitleBar )
  If CreatePopupMenu(1)
      MenuItem(100, "Отменить" + Chr(9) + "Ctrl + Z")
      MenuItem(101, "Повторить" + Chr(9) + "Ctrl + Y")
      MenuBar()
      MenuItem(102, "Вырезать" + Chr(9) + "Ctrl + X")
      MenuItem(103, "Копировать" + Chr(9) + "Ctrl + C")
      MenuItem(104, "Вставить" + Chr(9) + "Ctrl + V")
      MenuBar()
      MenuItem(105, "Найти/Заменить" + Chr(9) + "Ctrl + F")
      MenuItem(106, "Шрифт" + Chr(9) + "Alt + F")
    EndIf
  If CreateMenu(0, WindowID(0))
      MenuTitle("Файл")
      MenuItem(1, "Создать" + Chr(9) + "Ctrl + N")
      MenuItem(2, "Открыть" + Chr(9) + "Ctrl + O")
      MenuBar()
      MenuItem(4, "Сохранить" + Chr(9) + "Ctrl + S")
      MenuItem(6, "Сохранить как")
      MenuBar()
      MenuItem(7, "Выход" + Chr(9) + "Alt + F4")
      MenuTitle("Правка")
      MenuItem(12, "Отменить" + Chr(9) + "Ctrl + Z")
      MenuItem(13, "Повторить" + Chr(9) + "Ctrl + Y")
      MenuBar()
      MenuItem(14, "Вырезать" + Chr(9) + "Ctrl + X")
      MenuItem(16, "Копировать" + Chr(9) + "Ctrl + C")
      MenuItem(17, "Вставить" + Chr(9) + "Ctrl + V")
      MenuTitle("Формат")
      MenuItem(21, "Шрифт" + Chr(9) + "Alt + F")
      MenuTitle("Вид")
      MenuItem(23, "Меню" + Chr(9) + "Alt + M")
      MenuItem(24, "Панель инструментов" + Chr(9) + "Alt + T")
      MenuTitle("Справка")
      MenuItem(61, "Вызов справки" + Chr(9) + "F1")
      MenuItem(62, "О программе" + Chr(9) + "Alt + F1")
      SetMenuItemState(0,23,1)
      SetMenuItemState(0,24,1)
      EndIf
      If CreateStatusBar(0, WindowID(0))
        EndIf
        If CreateGadgetList(WindowID(0))                    
          PanelGadget(0, 0, 35, 1355, 625)
          AddGadgetItem(0, -1, "Новый документ")
          EditorGadget(1,0,0,1345,595)
          typefile$ = "new"
        EndIf
        If CreateTB(0,WindowID(0),24,24)
          SetTBimage(0,0,#TBpro_NORMAL)
          SetTBimage(0,0,#TBpro_HOT)
          SetTBimage(0,0,#TBpro_DISABLED)
          AddTBsysIcons()
          AddTBbutton(63,#TBpro_FILENEW,#TBpro_BUTTON)
          AddTBbutton(64,#TBpro_FILEOPEN,#TBpro_BUTTON)
          AddTBbutton(69,#TBpro_FILESAVE,#TBpro_BUTTON)
          AddTBseparator()
          AddTBbutton(65,#TBpro_CUT,#TBpro_BUTTON)
          AddTBbutton(66,#TBpro_COPY,#TBpro_BUTTON)
          AddTBbutton(67,#TBpro_PASTE,#TBpro_BUTTON)
          AddTBseparator()
          AddTBbutton(70,#TBpro_UNDO,#TBpro_BUTTON)
          AddTBbutton(71,#TBpro_REDO,#TBpro_BUTTON)
          AddTBseparator()
          AddTBbutton(75,#TBpro_HELP,#TBpro_BUTTON)
          SetTBbuttonTooltip(63,"Создать")
          SetTBbuttonTooltip(64,"Открыть")
          SetTBbuttonTooltip(69,"Сохранить")
          SetTBbuttonTooltip(65,"Вырезать")
          SetTBbuttonTooltip(66,"Копировать")
          SetTBbuttonTooltip(67,"Вставить")
          SetTBbuttonTooltip(68,"Удалить")
          SetTBbuttonTooltip(70,"Отменить")
          SetTBbuttonTooltip(71,"Повторить")
          SetTBbuttonTooltip(72,"Предварительный просмотр")
          SetTBbuttonTooltip(73,"Печать")
          SetTBbuttonTooltip(75,"Помощь")
        EndIf
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_N,1)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_O,2)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_S,4)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_Z,12)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_Y,13)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_X,14)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_C,16)
        AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_V,17)
        AddKeyboardShortcut(0,#PB_Shortcut_F1,61)
        AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_F1,62)
        AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_F,21)
        AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_M,23)
        AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_T,24)
        File$=ProgramParameter()
        If File$ <> "" And FileSize(File$)>=0
           LoadFile(file$)
        EndIf
        Repeat
          event = WaitWindowEvent()
          Select event
            Case #PB_Event_CloseWindow
              Select GetActiveWindow()
                  Case 0
              Select MessageRequester("Сохранение документа", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      SaveFile()
                   CloseWindow(0)
                   End
                    Case #IDNO
                      CloseWindow(0)
                      End
                  EndSelect
                Case 1
                  CloseWindow(1)
               EndSelect
            Case #PB_Event_Menu
              Select EventMenu()
                Case 1
                  Select MessageRequester("Homesoft Text Editor", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      SaveFile()
                      ClearGadgetItems(1)
                    Case #IDNO
                      ClearGadgetItems(1)
                    Case #IDCANCEL
                  EndSelect
                  typefile$ = "new"
                Case 2
                  Select MessageRequester("Homesoft Text Editor", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      SaveFile()
                        fileopen$ = OpenFileRequester("Открытие файла","","Текстовые документы (*.txt)|*.txt|Все файлы|*.*",0)
                        LoadFile(fileopen$)                  
                    Case #IDNO
                      ClearGadgetItems(1)
                      fileopen$ = OpenFileRequester("Открытие файла","","Текстовые документы (*.txt)|*.txt|Все файлы|*.*",0)
                      LoadFile(fileopen$)
                    Case #IDCANCEL
                  EndSelect
                Case 4
                  SaveFile()
                 Case 6
                  savefileas()
                Case 64
                  Select MessageRequester("Homesoft Text Editor", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                        SaveFile()
                        ClearGadgetItems(1)
                        fileopen$ = OpenFileRequester("Открытие файла","","Текстовые документы (*.txt)|*.txt|Все файлы|*.*",0)
                        LoadFile(fileopen$)                      
                    Case #IDNO
                      ClearGadgetItems(1)
                      fileopen$ = OpenFileRequester("Открытие файла","","Текстовые документы (*.txt)|*.txt|Все файлы|*.*",0)
                      LoadFile(fileopen$)    
                    Case #IDCANCEL
                  EndSelect
                Case 69
                  SaveFile()
                 Case 12
                   SendMessage_(GadgetID(1),#EM_UNDO,0,0)
                 Case 13
                  SendMessage_(GadgetID(1),#EM_REDO,0,0)
                 Case 14
                   SendMessage_(GadgetID(1),#WM_CUT,0,0)
                 Case 16
                   SendMessage_(GadgetID(1),#WM_COPY,0,0)
                 Case 17
                   SendMessage_(GadgetID(1),#WM_PASTE,0,0)
                 Case 70
                   SendMessage_(GadgetID(1),#EM_UNDO,0,0)
                 Case 71
                   SendMessage_(GadgetID(1),#EM_REDO,0,0)
                 Case 65
                   SendMessage_(GadgetID(1),#WM_CUT,0,0)
                 Case 66
                   SendMessage_(GadgetID(1),#WM_COPY,0,0)
                 Case 67
                   SendMessage_(GadgetID(1),#WM_PASTE,0,0)
                 Case 21
                   FontRequester("Arial",12,#PB_FontRequester_Effects)
                   fontid = LoadFont(#PB_Any,SelectedFontName(),SelectedFontSize(),SelectedFontStyle())
                   SetGadgetFont(1,FontID(fontid))
                   SetGadgetColor(1,#PB_Gadget_FrontColor,SelectedFontColor())
                 Case 63
                  Select MessageRequester("Homesoft Text Editor", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      SaveFile()
                    Case #IDNO
                      ClearGadgetItems(1)
                    Case #IDCANCEL
                  EndSelect
                  typefile$ = "new"
                Case 7
                  Select MessageRequester("Сохранение документа", "Сохранить изменения в Документ 1?", #MB_YESNOCANCEL|#MB_ICONWARNING)
                    Case #IDYES
                      SaveFile()
                   CloseWindow(0)
                   End
                    Case #IDNO
                      CloseWindow(0)
                      End
                  EndSelect
                Case 23
                  If GetMenuItemState(0,23) = 0
                    SetMenuItemState(0,23,1)
                    HideMenu(0,0)
                  Else
                    SetMenuItemState(0,23,0)
                    HideMenu(0,1)
                  EndIf
                Case 24
                  If GetMenuItemState(0,24) = 0
                    SetMenuItemState(0,24,1)
                    HideTB(0,0)
                  Else
                    SetMenuItemState(0,24,0)
                    HideTB(0,1)
                  EndIf
                Case 62
                  MessageRequester("О программе", "Homesoft Text Editor"+Chr(10)+"Версия - 1.0.0.0"+Chr(10)+"Автор - Никита Однороб", #MB_OK|#MB_ICONINFORMATION)
                Case 61
                  OpenHelp("help.chm","Горячие клавиши.htm")
              EndSelect
            Case #PB_Event_Gadget
              Select EventGadget()
              EndSelect
            Case #PB_Event_MaximizeWindow
            Case #PB_Event_MinimizeWindow
            Case #PB_Event_SizeWindow
            Case #PB_Event_SysTray
          EndSelect
        Until quit = 1
      EndIf


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


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

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11303
Благодарил (а): 4 раз.
Поблагодарили: 436 раз.
Никита Однороб писал(а):
    While Eof(0) = 0

      textfile$ + ReadString(0)

    Wend

Тоже самое что и раньше было.

Посмотри как это сделано тут.
http://www.pure-basic.narod.ru/docs/memory.html
http://www.pure-basic.narod.ru/docs/point.html

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


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

Зарегистрирован: Чт ноя 10, 2011 10:50 am
Сообщений: 4049
Откуда: Ростов-на-Дону
Благодарил (а): 70 раз.
Поблагодарили: 81 раз.
Пункты репутации: 24
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Procedure LoadFile(File$)
  SetGadgetItemText(0,0,GetFilePart(file$))
  textfile$ = ""
  If FileID = OpenFile(#PB_Any,file$)
  *mem=AllocateMemory(Lof(FileID))
    If *mem
      ReadData(0, *mem, Lof(FileID))
      CloseFile(FileID)
      textfile$=PeekS(*mem)
      FreeMemory(*mem)
      SetGadgetText(1,textfile$)
      typefile$ = "save"
    EndIf
  Else
    MessageRequester("Homesoft Text Editor", "Невозможно открыть файл. Возможно, он переименован, перемещён или удалён.", #MB_OK|#MB_ICONERROR)
    SetGadgetItemText(0,0,"Новый документ")
  EndIf  
EndProcedure


Пётр, найди пожалуйста ошибку, что-то сделал не так

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


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

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11303
Благодарил (а): 4 раз.
Поблагодарили: 436 раз.
Тут ошибка.
Никита Однороб писал(а):
If FileID = OpenFile(#PB_Any,file$)


И тут тоже (идентификатор файла).
Никита Однороб писал(а):
ReadData(0, *mem, Lof(FileID))

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


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт янв 10, 2012 8:34 pm 
Не в сети
доцент
Аватар пользователя

Зарегистрирован: Вс июн 05, 2011 5:56 pm
Сообщений: 72
Откуда: Бендеры
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Никита, посмотри на gnozal.ucoz.com библиотеку Scintilla Static, очень удобная штука+исчерпывающие примеры должны тебе помочь

_________________
Русский поисковик PureBasic | Мой блог | Мои работы | PureBasic 5.00 Linux & Windows


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

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6384
Благодарил (а): 20 раз.
Поблагодарили: 198 раз.
Пункты репутации: 48
Вот ещё простые приемы загрузки-выгрузки файла:
Код:
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
 
Declare LoadTextfile()
Declare SaveTextfile()
#EditorGadget=1
#ButtonGadget1=2
#ButtonGadget2=3
If OpenWindow(0, 0, 0, 500, 300, "Editor", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
EditorGadget(#EditorGadget, 10, 10, 480, 240)
ButtonGadget(#ButtonGadget1, 10, 255, 110, 30, "Открыть")
ButtonGadget(#ButtonGadget2, 130, 255, 110, 30, "Сохранить")
SendMessage_(GadgetID(#EditorGadget), #EM_LIMITTEXT, -1, 0)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
GadgetID = EventGadget()
Select GadgetID
Case #ButtonGadget1
LoadTextfile()
Case #ButtonGadget2
SaveTextfile()
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
End
Procedure LoadTextfile()
Filename.s=OpenFileRequester("choose text file","","*.txt|*.TXT|*.bat|*.BAT",0)
If Filename<>""
TextHnd.l=OpenFile(#PB_Any,Filename.s)
Textlg.l=Lof(TextHnd.l)
If Textlg
TextMemHnd.l=AllocateMemory(Textlg)
EndIf
If TextMemHnd
ReadData(TextHnd.l,TextMemHnd,Textlg)
SendMessage_(GadgetID(#EditorGadget), #EM_LIMITTEXT, -1, 0)
SendMessage_(GadgetID(#EditorGadget), #WM_SETTEXT, 0, TextMemHnd)
FreeMemory(TextMemHnd)
EndIf
CloseFile(TextHnd)
EndIf
EndProcedure
 
Procedure SaveTextfile()
Filename.s=SaveFileRequester("choose text file","","*.txt|*.TXT|*.bat|*.BAT",0)
If Filename<>""
TextHnd.l=CreateFile(#PB_Any,Filename.s)
Textlg.l=SendMessage_(GadgetID(#EditorGadget), #WM_GETTEXTLENGTH,0,0)
If Textlg
TextMemHnd.l=AllocateMemory(Textlg)
EndIf
If TextMemHnd
SendMessage_(GadgetID(#EditorGadget), #WM_GETTEXT,Textlg,TextMemHnd)
WriteData(TextHnd.l,TextMemHnd,Textlg)
FreeMemory(TextMemHnd)
EndIf
CloseFile(TextHnd)
EndIf
EndProcedure


_________________
read-only


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

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

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


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

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

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


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

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11303
Благодарил (а): 4 раз.
Поблагодарили: 436 раз.
Никита Однороб писал(а):
а как реализовать контекстное меню
http://purebasic.ucoz.com/publ/editorgadget/1-1-0-53

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


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

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


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

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


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

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