Adrenalin Это было нужно?

Первая программа(принимающая):

Enumeration
  #Window_0
EndEnumeration


Enumeration
  #Editor_0
  #Editor_1
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 220, 0, 600, 300, "MyWIN",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      EditorGadget(#Editor_0, 30, 70, 480, 130)
      EditorGadget(#Editor_1, 30, 210, 480, 130)
    EndIf
  EndIf
EndProcedure

Open_Window_0()
Repeat
  event=WaitWindowEvent()
  
Until event=#PB_Event_CloseWindow

Вторая программа(отсылающая):

 hwin.l 
  hwin = FindWindow_(0,"MyWIN" ) 
  If hwin <> 0                    
    hedit=FindWindowEx_(hwin,0,"RichEdit20A",0)   
    hedit1=FindWindowEx_(hwin,hedit,"RichEdit20A",0)  
    SendMessage_(hedit, #EM_REPLACESEL, 0, "Пора вставать на работу") 
    SendMessage_(hedit1, #EM_REPLACESEL, 0, "А может ну ее эту работу") 
  EndIf

Ребят столкнулся с такой проблемой! Не могу прочитать текст в программе, она его выдает в таком виде
Р° почему Сѓ Андрея РїСЂРѕРіСѓ-то РЅРµ приняли? третий раз уже<br>СѓСѓСѓ: РґР° РѕРЅР° кривая<br>СѓСѓСѓ: РІРѕС‚ надо ему почесать жопу. Р·РІРѕРЅРёС‚ РѕРЅ значит РЅР° РґСЂСѓРіРѕР№ конец РіРѕСЂРѕРґР° чуваку РѕРґРЅРѕРјСѓ, тот РїРѕ его поручению идет РєРѕ второР
P.S текст этот берется из отдельного текстового файла!

Большое спасибо Петр!!!

Есть описание функций скачаной DLL?

Нужно иметь описание функций и их аргументов.

С помощью этого кода можно узнать имена всех функции DLL, но не их аргументы.

Path.s=OpenFileRequester("Открыть файл", "", "*.dll|*.dll|All Files|*.*", 0) 
 If Path<>""
  OpenLibrary(0,Path) 
  ExamineLibraryFunctions(0) 
   While NextLibraryFunction() 
    cc+1 
    Debug LibraryFunctionName() 
   Wend 
  Debug cc 
 EndIf

Я еще не встречал программы, умеющей корректно определять аргументы функций.

Может проще попробовать найти в интернете описание этой DLL?

Друзья! Такой вопрос: можно ли сделать окно прозрачным или полупрозрачным?
И если да, то как?

Спасибо Петр! Все работает, все замечательно

Может есть константа, я не знаю, как вариант у любого гаджета можно скрыть и системную рамку и скролинг -
через PanelGadget() :

Enumeration 
 #Window_0
 #Panel
 #List
EndEnumeration

OpenWindow(#Window_0,0,0,200,400,"Заглавие",#WS_OVERLAPPEDWINDOW|#PB_Window_ScreenCentered)
 
 PanelGadget(#Panel, 10, 10, 180, 380)
  ListViewGadget(#List, 0, 0, 200, 380) ; ширина больше ширины панели, прокручиваем колесиком
   For a=0 To 40
    AddGadgetItem(#List, -1, "строка   "+Str(a)  )
   Next a
 CloseGadgetList()


Repeat 
Event=  WaitWindowEvent() 
Until Event= #PB_Event_CloseWindow

может подойдёт...

Спасибо мужики!!! Может у кого есть какой нибудь мануальчик описывающий все флаги? Если есть поделитесь пожалуйста!

Что делать если в строке с Event=WaitWindowEvent() выскакивает эта ошибка:"At least one window should be opened to use this command."! Чё ему не хватает?

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

Всем привет! Пурик изучаю пару вечеров. Интерисует такой вопрос (может быть повторяюсь): возможно ли сделать окно с большим текстом и выделением цветом отдельных слов (типа "Инструкция" и бла-бла-бла...), если да, то как?

Заранее спасибо!

Отредактировано max (25.11.2010 21:08:54)

Наиболее просто это сделать одним из двух способов:

Создать в "Ворде" RTF документ, разкрасить его и сохранить в виде файла.
В программе текст из него загружать в EditorGadget. При этом, текст будет раскрашен так-же как раскрасили его в "Ворде".

Можно создать HTML страничку с цветным текстом и загружать её в WebGadget.
Вот пример http://pure-basic.narod.ru/docs/e_book.html

Есть конечно варианты по сложнее, но я думаю что устроит один из двух выше перечисленых.