FreeBasic похожий на PureBasic

DEPOzit пишет:ага, или например сделать размер иконки равной 1
Типа: Var LLIISS=ListViewGadget(1,10,10,300,300,Style,,,1)

И еще: выравнивание по левому краю не работает? Левый столбец по левому, остальные по центру...

DEPOzit пишет:Станислав, как создать дочернее окно? Со стилем WS_CHILD ничего не создается.

Код:

#Include "window9.bi"

Var hwnd=OpenWindow("Main",10,10,500,500)
Var event=0
Var hwnd1=OpenWindow("Child",10,10,200,200)
SetParent(hwnd1,hwnd)
ButtonGadget(1,10,10,100,30,"Button")
Do
 event=WaitEvent()
 If Event=EventClose Then End
Loop

Код:

#Include "window9.bi"

Var hwnd=OpenWindow("Main",10,10,500,500)
ButtonGadget(1,10,10,100,30,"Button1")
Var event=0
Var hwnd1=OpenWindow("Child",10,10,200,200)
SetParent(hwnd1,hwnd)
ButtonGadget(2,10,10,120,30,"Button2")
Do
 event=WaitEvent()
 If Event=EventClose Then End
Loop

DEPOzit пишет:Не-не, MDI не надо. Спасибо.
Только происходит некое наслоение:

Код:

#Include "window9.bi"

Var hwnd=OpenWindow("Main",10,10,500,500)
ButtonGadget(1,10,10,100,30,"Button1")
Var event=0
Var hwnd1=OpenWindow("Child",10,10,200,200)
SetParent(hwnd1,hwnd)
ButtonGadget(2,10,10,120,30,"Button2")
Do
 event=WaitEvent()
 If Event=EventClose Then End
Loop

Родительское окно всячески пытается налезть на дочернее.

Код:

#Include "window9.bi"

Var hwnd=OpenWindow("Main",10,10,500,500)
ButtonGadget(1,10,10,100,30,"Button1",WS_CLIPSIBLINGS)
Var event=0
Var hwnd1=OpenWindow("Child",10,10,200,200,WS_VISIBLE Or WS_OVERLAPPEDWINDOW Or WS_CLIPSIBLINGS)
SetParent(hwnd1,hwnd)
ButtonGadget(2,10,10,120,30,"Button2")
Do
 event=WaitEvent()
 If Event=EventClose Then End
Loop

Код:

#Include "window9.bi"

Var hwnd=OpenWindow("Main",10,10,500,500)
ButtonGadget(1,10,10,100,30,"Button1",WS_CLIPSIBLINGS)
Var event=0
Var hwnd1=OpenWindow("Child",10,10,200,200,WS_VISIBLE Or WS_OVERLAPPEDWINDOW Or WS_CLIPSIBLINGS)
SetParent(hwnd1,hwnd)
ButtonGadget(2,10,10,120,30,"Button2")
Do
   event=WaitEvent()
 Select Case event
  Case EventClose
  If EventHwnd=hwnd1 Then Close_Window(hwnd1): ButtonGadget(3,10,50,120,30,"Button3")
  If EventHwnd=hwnd Then End
 End Select
Loop


DEPOzit пишет:Станислав, а почему после активации и закрытии дочернего окна в родительском окне перестают создаваться гаджеты (в данном примере кнопка "Button3"):

Код:

#Include "window9.bi"

Var hwnd=OpenWindow("Main",10,10,500,500)
ButtonGadget(1,10,10,100,30,"Button1",WS_CLIPSIBLINGS)
Var event=0
Var hwnd1=OpenWindow("Child",10,10,200,200,WS_VISIBLE Or WS_OVERLAPPEDWINDOW Or WS_CLIPSIBLINGS)
SetParent(hwnd1,hwnd)
ButtonGadget(2,10,10,120,30,"Button2")
Do
   event=WaitEvent()
 Select Case event
  Case EventClose
  If EventHwnd=hwnd1 Then Close_Window(hwnd1): ButtonGadget(3,10,50,120,30,"Button3")
  If EventHwnd=hwnd Then End
 End Select
Loop


Может быть как-то надо передать управление главному окну?

Код:

#Include "window9.bi"

Var hwnd=OpenWindow("Main",10,10,500,500)
ButtonGadget(1,10,10,100,30,"Button1",WS_CLIPSIBLINGS)
Var event=0
Var hwnd1=OpenWindow("Child",10,10,200,200,WS_VISIBLE Or WS_OVERLAPPEDWINDOW Or WS_CLIPSIBLINGS)
SetParent(hwnd1,hwnd)
ButtonGadget(2,10,10,120,30,"Button2")
Do
  event=WaitEvent()
 Select Case event
  Case EventClose
  If EventHwnd=hwnd1 Then Close_Window(hwnd1)
  UseGadgetList(hwnd): ButtonGadget(3,10,50,120,30,"Button3")
  If EventHwnd=hwnd Then End
 End Select
Loop

DEPOzit пишет:Ага, все отлично.
Еще вопросик - setgadgettext(1,"") вызывает ошибку. Как очистить поле гаджета?

DEPOzit пишет:Не секрет конечно: http://freebasic.ru/rash.rar
Нажми на любой вид расхода, потом напиши что-нибудь в "Добавить элемент в список" и нажми кнопку "Добавить".
После ошибки закоментируй 85-ю строку или включи в кавычки символ. Ошибка пропадет.

AddComboBoxItem(11,GetGadgetText(15, 7),-1)

DEPOzit пишет:Реализация вывода на печать принтера планируется?

DEPOzit пишет:есть же виртуальные принтеры - в том же MS Office, doPDF, PrintToPicture и т.д.

DEPOzit пишет:Как создать окно изначально развернутым? Стиль WS_MAXIMIZE не срабатывает.

ShowWindow(hwnd,SW_MAXIMIZE)

Код:

#Include "window9.bi"

Var hwnd=OpenWindow("",CW_USEDEFAULT,SW_MAXIMIZE,CW_USEDEFAULT,CW_USEDEFAULT,WS_OVERLAPPEDWINDOW or WS_VISIBLE Or WS_MAXIMIZE Or SW_SHOWMAXIMIZED)

Do
 Var event=WaitEvent()
 If Event=EventClose Then End
Loop

Код:

#Include "window9.bi"

Dim As Integer event
Var hwnd=OpenWindow("",10,10,400,400)
AddKeyboardShortcut(hwnd,FVIRTKEY ,vk_RETURN,1) 'Enter
AddKeyboardShortcut(hwnd,FCONTROL,VK_W,2) 'CTRL+W
StringGadget(3,10,120,250,20,"",ES_left,WS_EX_CLIENTEDGE)

Do
 event=WaitEvent
 If event=EventMenu Then
  Select case EventNumber
  Case 1
    MessBox("","1 ìåíþ")
  Case 2
    MessBox("","2 ìåíþ")
  End Select
 EndIf
 If event=EventClose Then End
Loop

DEPOzit пишет:Еще вопросик созрел)))) :
Как реализовать событие нажав клавишу Enter при этом находясь в другом гаджете (например StringGadget). Если гаджеты не активны то все работает, если активны то события не проиходит.
Ну вот например:

Код:

#Include "window9.bi"

Dim As Integer event
Var hwnd=OpenWindow("",10,10,400,400)
AddKeyboardShortcut(hwnd,FVIRTKEY ,vk_RETURN,1) 'Enter
AddKeyboardShortcut(hwnd,FCONTROL,VK_W,2) 'CTRL+W
StringGadget(3,10,120,250,20,"",ES_left,WS_EX_CLIENTEDGE)

Do
 event=WaitEvent
 If event=EventMenu Then
  Select case EventNumber
  Case 1
    MessBox("","1 ìåíþ")
  Case 2
    MessBox("","2 ìåíþ")
  End Select
 EndIf
 If event=EventClose Then End
Loop

Пробовал и с AddKeyboardShortcut и с EventKEY. В чем загвоздка?