Окна в OPL

Tonja · Сообщение **Tonja** » Пт ноя 28, 2003 12:27

Help me!!!

Мне в программе нужно создать маленькое окошко в центре экрана (типа информационных окон, только чтобы в нем также выполнялись некоторые действия). В принципе, нужно три таких окна, но это не принципиально. Вобщем, все сделала, все нормально работает, но есть одно но... Как сделать, чтобы в этом маленьком окне (окнах) тоже была маленькая полоса заголовка? Сейчас они выглядят просто в рамке (gXBORDER). И можно ли как-нибудь сделать так, чтобы текст в окне выводился на фоне рисунка, а не проделывал в нем дыру? В том же Delphi для меток есть свойство Transparent, позволяющее это делать, а есть ли в OPL нечто подобное? Помогите пожалуйста!
PS >>Gorby Еще раз благодарю за ссылки! Действительно много интересного там нашла!

KM · Сообщение KM » Пт ноя 28, 2003 12:40

А можешь код, показывающий окно, кинуть? Я правда, OPL только на EPOC32 ковырял, но наверняка они практически одинаковы.

Tonja · Сообщение **Tonja** » Вт дек 09, 2003 01:29

Прошу прощения за долгое молчание, все времени не было сюда заглянуть.

Вобщем, с текстом разобралась, а вот с окнами...Вот код:

Код: Выделить всё

gSETWIN 92,0,640,200
AfSetCBAButton:(...)
.... rem Определяем все 4 кнопки
AfSetTitle:(...)
AfSetStatus%:(0)
AfSetCBAVisible%:(1)
AfSetStatusVisible%:(1)
AfSetTitleVisible%:(1)
id%(1)=gCreate(92,0,548,200,1,KDefaultWin256ColorMode%)

Это окно выглядит вполне нормально, но сделать второе (третье и т.д.) таким же у меня не получается. Почему? Приходится делать его таким:

Код: Выделить всё

id%(2)=gCreate(245,50,150,100,1,$411)
gXBorder 2,$94

Может, подскажете? Желательно, с кодом, но можно и просто советом