Skip to content

Przykład

Przykład prostej aplikacji z UI w Avocado

UI Avocado

program_ui testoknog
import avocado_ui
main
hwnd glowne_okno
ui_parameters params
msg message

test_okno
end.

procedure test_okno
start
params.title = 'Okno w Avocado'
params.width = 300
params.height = 400
params.x = 200
params.y = 200
params.visible = true
params.AllowDrag = True

glowne_okno = CreateAvocadoWindow(params)

if glowne_okno <> 0 then
start
show_window(message)
end
end