If CreateFile(1,"C:\test.txt")
  
  *mem=AllocateMemory(20000001)
  For i=0 To 20000000
x1:
    x=Random(255)
    y.s=Str(x)
    PokeS(*mem+i, y)
  Next i
  WriteData(1,*mem,20000000)
  CloseFile(1)
  FreeMemory(*mem)
  MessageRequester("", "Файл создан", #MB_OK|#MB_ICONINFORMATION)
EndIf

  
    If ReadFile(0, File)
    FileSize=Lof(0).
    *mem=AllocateMemory(FileSize+1) 
    ReadData(0, *mem, FileSize) 
    SetGadgetText(1, PeekS(*mem)) 
    FreeMemory(*mem)
    CloseFile(0)
 Else
    MessageRequester("Ошибка", "Не удалось открыть файл")    
 EndIf

  ; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
  #Window_1
EndEnumeration

;- MenuBar Constants
;
Enumeration
  #MenuBar_0
EndEnumeration

Enumeration 20
  #MENU_1
  #MENU_2
  #MENU_4
  #MENU_6
  #MENU_3
  #MENU_8
  #MENU_9
EndEnumeration

Procedure IsMouseOver(wnd) 
GetWindowRect_(wnd,re.RECT) 
GetCursorPos_(pt.POINT) 
ProcedureReturn PtInRect_(re,pt\x|(pt\y<<32)) 
EndProcedure 


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 211, 146, 600, 300, "MainForm",  #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_MaximizeGadget )
    If CreateMenu(#MenuBar_0, WindowID(#Window_0))
      MenuTitle("Файл")
        MenuItem(#MENU_1, "Открыть")
        MenuItem(#MENU_2, "Сохранить")
        MenuBar()
        MenuItem(#MENU_4, "Выход")
      MenuTitle("Правка")
        MenuItem(1,"Отменить") 
        MenuItem(2,"Повторить") 
        MenuBar() 
        MenuItem(3,"Вырезать") 
        MenuItem(4,"Копировать") 
        MenuItem(5,"Вставить") 
        MenuItem(6,"Удалить") 
        MenuBar() 
        MenuItem(7,"Выделить всё")
      MenuTitle("Помощь")
        MenuItem(#MENU_8, "О программе")
      EndIf

      
    EndIf
EndProcedure

Procedure Open_Window_1()
  If OpenWindow(#Window_1, 370, 270, 240, 86, "О программе",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    
      TextGadget(0, 10,  10, 250, 20, "Это окно О программе (Left)")
   
  EndIf
EndProcedure

   ; Эта процедура открывает файл, указанный в переменной File и загружает данные из него в редактор.
Procedure LoadFile(File.s)
 If ReadFile(0, File) ; Открытие файла.
    FileSize=Lof(0) ; Определение размера файла в байтах.
    *mem=AllocateMemory(FileSize+1) ; Выделение памяти на 1 байт больше размера файла.
    ReadData(0, *mem, FileSize) ; Копирование данных из файла в память.
    SetGadgetText(1, PeekS(*mem)) ; Загрузка текста в редактор.
    FreeMemory(*mem) ; Освобождение памяти.
    CloseFile(0)     ; Закрытие файла.
 Else
    MessageRequester("Ошибка", "Не удалось открыть файл")    
 EndIf
EndProcedure

  ; Эта процедура сохраняет данные из редактора в файл.
Procedure SaveFile(File.s)
     If CreateFile(0,File) ; Создание файла на диске
        Text.s=GetGadgetText(1) ; Копирование текста из редактора в строковую переменную Text
        WriteString(0, Text) ; Запись текста в файл
        CloseFile(0) ; Закрытие файла.
     Else
       MessageRequester("Ошибка", "Не удалось сохранить файл")
     EndIf
EndProcedure

Open_Window_0()

EditorGadget(1,2,2,548,360)
SmartWindowRefresh(#Window_0, 1) ; Это для уменьшения мерцания окна при изменении его размеров
If CreatePopupMenu(1) 
   MenuItem(1,"Отменить") 
   MenuItem(2,"Повторить") 
   MenuBar() 
   MenuItem(3,"Вырезать") 
   MenuItem(4,"Копировать") 
   MenuItem(5,"Вставить") 
   MenuItem(6,"Удалить") 
   MenuBar() 
   MenuItem(7,"Выделить всё") 
  EndIf 

Repeat ; Начало главного цикла Repeat-Until.
  Event=WaitWindowEvent() ; Получаем идентификатор события.
  Gadget=EventGadget() ; Узнаём идентификатор гаджета в котором произошло событие.
  Window=EventWindow() ; Получаем идентификатор окна, в котором произошло событие
  Menu=EventMenu()
  
  If Event=#WM_RBUTTONUP 
          If IsMouseOver(GadgetID(1)) 
           DisplayPopupMenu(1,WindowID(#Window_0)) 
         EndIf 
      EndIf 
      
      If Event=#PB_Event_Menu 
        Select Menu 
           Case 1 ; "Отменить" 
              SendMessage_(GadgetID(1), #EM_UNDO, #Null, #Null) 
              
           Case 2 ; "Повторить" 
              SendMessage_(GadgetID(1), #EM_REDO, #Null, #Null) 
              
           Case 3, 4 ; "Вырезать", "Копировать" 
              SendMessage_(GadgetID(1), #EM_GETSEL, @Min,@Max) 
        
            If Min<>Max 
             If Min<Max 
               xx=Max-Min 
             Else 
               xx=Min-Max 
             EndIf 
          
              lpText.s=Space(xx) 
              SendMessage_(GadgetID(1), #EM_GETSELTEXT, #Null, @lpText) 
              SetClipboardText(lpText) 
          
              If Menu=3 ; "Вырезать" 
               SendMessage_(GadgetID(1),#EM_REPLACESEL,0,@"") 
              EndIf 
            EndIf 
        
           Case 5 ; "Вставить" 
             Text.s=GetClipboardText() 
             SendMessage_(GadgetID(1),#EM_REPLACESEL,0,@Text) 
              
           Case 6 ; "Удалить" 
             SendMessage_(GadgetID(1),#EM_REPLACESEL,0,@"") 
            
           Case 7 ; "Выделить всё" 
             SendMessage_(GadgetID(1),#EM_SETSEL,0,-1) 
        EndSelect 
      EndIf 
  
If Window=#Window_0 ; Обработчик событий для окна "MainForm"

     If Event=#PB_Event_SizeWindow
       ResizeGadget(1, #PB_Ignore, #PB_Ignore, WindowWidth(#Window_0)-4, WindowHeight(#Window_0)-MenuHeight()-4) 
     EndIf
  
     If Event=#PB_Event_Menu ; Произошло событие в меню
       If Menu=#MENU_8 ; Пункт меню "О программе".
         Open_Window_1()
       ElseIf Menu=#MENU_4
         End
       ElseIf Menu=#MENU_1
         File.s=OpenFileRequester("Открыть файл", "", "Текстовые файлы|*.txt|Все файлы|*.*", 0)
         If File<>""
           LoadFile(File)
         EndIf
       ElseIf Menu=#MENU_2
         File.s=SaveFileRequester("Сохранить файл", "","Текстовые файлы|*.txt|Все файлы|*.*", 0) 
         If File<>""
           If GetExtensionPart(File)="" And SelectedFilePattern()=0 ; Если не заданно расширение файла
             File=File+".txt"                                      ; добавляем его
           EndIf
          SaveFile(File)
         EndIf
       EndIf
     EndIf
     
     If Event=#PB_Event_SizeWindow
       ResizeGadget(1, #PB_Ignore, #PB_Ignore, WindowWidth(#Window_0)-4, WindowHeight(#Window_0)-MenuHeight()-4) 
     EndIf
 
ElseIf Window=#Window_1 ; Обработчик событий для окна "О программе"
    If Event = #PB_Event_CloseWindow
       CloseWindow(#Window_1)
    EndIf
EndIf

     
Until Event = #PB_Event_CloseWindow And Window=#Window_0 ; Прерываем цикл если в переменной "Event" будет число равное числу в константе.