Форум » [x]Harbour » Проблема с ярлыком и окном терминалки GTWVT
	перенос

Автор

Сообщение

Лукашевский

Пост N: 93 Зарегистрирован: 08.04.06

Отправлено: 17.09.07 13:48. Заголовок: Проблема с ярлыком и окном терминалки GTWVT

Делаю ярлык на EXEшник. При запуске получаю 2 окна - окно моей программы и рядом ещё одно, пустое! И соотв. внизу в статусной строке рабочего стола тоже две кнопки...
Смотрю свойства пустого окна - там всё как надо - можно изменить шрифт, размер окна и т.д. - в отличие от окна моей программы, только вот во вкладке "Программа" в параметре "Командная строка" - какой-то C:\WINME\SYSTEM\conagent.exe Что бы это значило? Закрываю это пустое окно - закрывается и окно моей программы. И наоборот...

А ярлык я делал собственно для того, чтобы можно было программу на полный экран развернуть. Это вообще-то возможно?

Ответов - 96 , стр: 1 2 3 4 5 All [только новые]

Лукашевский

Пост N: 173 Зарегистрирован: 08.04.06

Отправлено: 31.01.08 23:26. Заголовок: Re: Pasha

Pasha пишет:

цитата:

линкеру дай параметр -aa

А я о чём говорю?! Именно с этим параметром в 98-м и ME окно одно, а в XP - два!

Andrey
постоянный участник
Пост N: 445 Зарегистрирован: 12.09.06

Отправлено: 01.02.08 00:43. Заголовок: Собери свой проект п..

Собери свой проект под HBMAKE и он сам тебе правильно поставит опции сборки....
И не парся ....

Andrey
постоянный участник
Пост N: 491 Зарегистрирован: 12.09.06

Отправлено: 18.02.08 21:59. Заголовок: Pasha пишет: Насчет..

Pasha пишет:

цитата:

Насчет размеров - сделай им простое дилоговое окошко с настройками этих размеров
Будет еще лучше, чем рашьше :)

Как это сделать ???

Лукашевский

Пост N: 210 Зарегистрирован: 08.04.06

Отправлено: 20.02.08 11:49. Заголовок: Pasha пишет: А GTI_..

Pasha пишет:

цитата:

А GTI_FONTWIDTH ? Это кажется то, что надо

Перестал работать GtInfo(GTI_FONTWIDTH, 10)... Интересно, это из-за мультитерминальной сборки, или кто-то внёс ошибку в сырцы?
При этом GtInfo(GTI_FONTWIDTH) работает как прежде, показывает ширину шрифта правильно. А вот установка этой самой ширины не работает

Andrey
постоянный участник
Пост N: 497 Зарегистрирован: 12.09.06

Отправлено: 20.02.08 22:41. Заголовок: Pasha пишет: Недавн..

Pasha пишет:

цитата:

Недавно сделал настройку палитры цветов для gtwvt, через функции Wvt_GetPalette(), Wvt_SetPalette(), Wvt_ChooseColor()

А можно еще до кучи и этот кусочек примера показать про эти настройки ?
спасибо заранее ....

Pasha пишет:

цитата:

Этим вопрос с размером окна закрыл полностью, каждому юзеру ставлю настройки как ему удобно

Т.е. ты сам в ини-файлы ставишь ручками шрифт и размер шрифта ?

Pasha
Администратор
Пост N: 816 Зарегистрирован: 23.05.05

Отправлено: 24.02.08 11:03. Заголовок: Andrey „Ѓ„y„Љ„u„„: ..

Andrey „Ѓ„y„Љ„u„„:

цитата:

„@ „}„Ђ„w„~„Ђ „u„‹„u „t„Ђ „{„…„‰„y „y „Џ„„„Ђ„„ „{„…„ѓ„Ђ„‰„u„{ „Ѓ„‚„y„}„u„‚„p „Ѓ„Ђ„{„p„x„p„„„Ћ „Ѓ„‚„Ђ „Џ„„„y „~„p„ѓ„„„‚„Ђ„z„{„y ?

„R„}. „Ѓ„‚„Ђ„?„u„t„…„‚„… „~„y„w„u. „S„p„}, „{„Ђ„~„u„‰„~„Ђ, „y„ѓ„Ѓ„Ђ„|„Ћ„x„…„u„„„ѓ„‘ „}„Ђ„‘ „ѓ„Ѓ„u„?„y„†„y„{„p. „N„Ђ „ѓ„…„„„Ћ, „‘ „t„…„}„p„ђ, „q„…„t„u„„ „Ѓ„Ђ„~„‘„„„~„p
„M„p„ѓ„ѓ„y„r aGet - „Џ„„„Ђ „ѓ„Ѓ„y„ѓ„Ђ„{ GET. „{„Ђ„„„Ђ„‚„Ќ„u „~„p„t„Ђ „ѓ„Ђ„x„t„p„„„Ћ. „B „Џ„„„y„‡ get „‘ „x„p„t„p„ђ Reader-„q„|„Ђ„{, „r „{„Ђ„„„Ђ„‚„Ђ„} „Ѓ„Ђ
Enter „r„Ќ„x„Ќ„r„p„u„„„ѓ„‘ „q„|„Ђ„{ „{„Ђ„t„p „r„y„t„p {|| SetClr(1, a16)}. „K„p„w„t„Ђ„}„… get „~„p„t„Ђ „…„ѓ„„„p„~„Ђ„r„y„„„Ћ „ѓ„Ђ„Ђ„„„r„u„„„ѓ„„„r„…„ђ„‹„y„z „?„r„u„„

TWindowNew/TWindowClose - „Ѓ„‚„Ђ„ѓ„„„Ђ „ѓ„Ђ„x„t„p„~„y„u „Ѓ„…„ѓ„„„Ђ„„„s„Ђ „Ђ„{„~„p „ѓ „‚„p„}„{„Ђ„z
ARead „†„Ђ„‚„}„y„‚„…„u„„ get „y „r„Ќ„x„Ќ„r„p„u„„ ReadModal
„H„p„}„u„~„y „}„Ђ„ђ „ѓ„Ѓ„u„?„y„†„y„{„… „~„p „ѓ„„„p„~„t„p„‚„„„~„Ќ„u „†„…„~„{„?„y„y. „` „~„p„Ѓ„‚„‘„}„…„ђ „{„Ђ„}„p„~„t„Ќ „„„y„Ѓ„p SAY/GET „r„Ќ„x„Ќ„r„p„ђ „‚„u„t„{„Ђ

#ifdef __HARBOUR__
#include "getexit.ch"
#include "inkey.ch"

Static func ColorSetup
Local a16 := WVT_GetPalette(), w
Local a16Old := AClone(a16)
Local bGet := {|| space(6)}
Local cBtnClr := '15/01,00/03, ,11/03,07/01'

Local aGet := {;
{ 4,20, '„X„u„‚„~„Ќ„z ', bGet,,,,, {|| SetClr(1, a16)},, '07/00'},;
{ 6,20, '„R„y„~„y„z ', bGet,,,,, {|| SetClr(2, a16)},, '01/01'},;
{ 8,20, '„H„u„|„u„~„Ќ„z ', bGet,,,,, {|| SetClr(3, a16)},, '02/02'},;
{10,20, '„A„y„‚„ђ„x„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(4, a16)},, '03/03'},;
{12,20, '„K„‚„p„ѓ„~„Ќ„z ', bGet,,,,, {|| SetClr(5, a16)},, '04/04'},;
{14,20, '„L„y„|„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(6, a16)},, '05/05'},;
{16,20, '„K„Ђ„‚„y„‰„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(7, a16)},, '06/06'},;
{18,20, '„A„u„|„Ќ„z ', bGet,,,,, {|| SetClr(8, a16)},, '07/07'},;
{ 4,42, '„R„u„‚„Ќ„z ', bGet,,,,, {|| SetClr(9, a16)},, '08/08'},;
{ 6,42, '„`„‚„{„Ђ-„ѓ„y„~„y„z ', bGet,,,,, {|| SetClr(10, a16)},, '09/09'},;
{ 8,42, '„`„‚„{„Ђ-„x„u„|„u„~„Ќ„z', bGet,,,,, {|| SetClr(11, a16)},, '10/10'},;
{10,42, '„C„Ђ„|„…„q„Ђ„z ', bGet,,,,, {|| SetClr(12, a16)},, '11/11'},;
{12,42, '„`„‚„{„Ђ-„{„‚„p„ѓ„~„Ќ„z', bGet,,,,, {|| SetClr(13, a16)},, '12/12'},;
{14,42, '„R„y„‚„u„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(14, a16)},, '13/13'},;
{16,42, '„G„u„|„„„Ќ„z ', bGet,,,,, {|| SetClr(15, a16)},, '14/14'},;
{18,42, '„`„‚„{„Ђ-„q„u„|„Ќ„z ', bGet,,,,, {|| SetClr(16, a16)},, '15/15'},;
{19,20, Replicate('„џ', 41)},;
{20,20,, {|| '[ „C„Ђ„„„Ђ„r„Ђ ]'},,,,;
{|oG| if(oG:ExitState=GE_ENTER,(oG:ExitState:=GE_WRITE,.f.),.t.)},;
{|oG| SetLastKey(K_ENTER),oG:ExitState:=6},, cBtnClr},;
{20,20+13,, {|| '[ „O„„„}„u„~„p ]'},,,,,;
{|oG| SetLastKey(K_ESC),oG:ExitState:=7},, cBtnClr},;
{20,36+10,, {|| '[ „R„„„p„~„t„p„‚„„„~„Ќ„u ]'},,,,,;
{|oG| StandardClr(a16)},, cBtnClr} }

Local aIni := HB_ReadIni('gals.ini')
Local aWvt, cWvt, ser, lChange := .f.

if aIni # nil .and. ('GTWVT' IN aIni)

aWvt := aIni['GTWVT']

w := TWindowNew(2,15,22,65,,, 2, .t.)
@ 2, 33 say '„N„p„ѓ„„„‚„Ђ„z„{„p „Ѓ„p„|„y„„„‚„Ќ'
//
ARead(aGet)

TWindowClose(w)

for ser := 1 to 16
if a16[ser] # a16Old[ser]
lChange := .t.
exit
endif
next
if lChange
cWvt := ''
for ser := 1 to 16
cWvt += if(! Empty(cWvt), ',', '') + StrTrim(a16[ser])
next
aWvt['Palette'] := cWvt
HB_WriteIni('gals.ini', aIni)
elseif LastKey() == K_ESC
WvtRefresh(a16Old)
endif

endif
Return nil

Static func SetClr(nPal, a16)
Local nClr := WVT_ChooseColor(a16[nPal], a16)
if nClr # -1 .and. nClr # a16[nPal]
a16[nPal] := nClr
WvtRefresh(a16)
endif
Return nil

Static func StandardClr(a16)
a16[ 1] := RGB( 0x0 ,0x0 ,0x0 )
a16[ 2] := RGB( 0x0 ,0x0 ,0x85 )
a16[ 3] := RGB( 0x0 ,0x85,0x0 )
a16[ 4] := RGB( 0x0 ,0x85,0x85 )
a16[ 5] := RGB( 0x85,0x0 ,0x0 )
a16[ 6] := RGB( 0x85,0x0 ,0x85 )
a16[ 7] := RGB( 0x85,0x85,0x0 )
a16[ 8] := RGB( 0xC6,0xC6,0xC6 )
a16[ 9] := RGB( 0x60,0x60,0x60 )
a16[10] := RGB( 0x00,0x00,0xFF )
a16[11] := RGB( 0x60,0xFF,0x60 )
a16[12] := RGB( 0x60,0xFF,0xFF )
a16[13] := RGB( 0xF8,0x00,0x26 )
a16[14] := RGB( 0xFF,0x60,0xFF )
a16[15] := RGB( 0xFF,0xFF,0x00 )
a16[16] := RGB( 0xFF,0xFF,0xFF )

WvtRefresh(a16)
Return nil

STATIC FUNCTION rgb( r,g,b )

RETURN ( r + ( g * 256 ) + ( b * 256 * 256 ) )
#endif

Pasha
Администратор
Пост N: 817 Зарегистрирован: 23.05.05

Отправлено: 24.02.08 11:04. Заголовок: „D„p „‰„„„Ђ „„„p„{„Ђ..

„D„p „‰„„„Ђ „„„p„{„Ђ„u. „K„‚„p„{„Ђ„x„‘„q„|„y„{„p„}„y „r„ѓ„u „Ѓ„Ђ„Љ„|„Ђ. „P„Ђ„r„„„Ђ„‚„‘„ђ „{„Ђ„t

#ifdef __HARBOUR__
#ifndef _fw
#include "getexit.ch"
#include "inkey.ch"

Static func ColorSetup
Local a16 := WVT_GetPalette(), w
Local a16Old := AClone(a16)
Local bGet := {|| space(6)}
Local cBtnClr := '15/01,00/03, ,11/03,07/01'

Local aGet := {;
{ 4,20, '„X„u„‚„~„Ќ„z ', bGet,,,,, {|| SetClr(1, a16)},, '07/00'},;
{ 6,20, '„R„y„~„y„z ', bGet,,,,, {|| SetClr(2, a16)},, '01/01'},;
{ 8,20, '„H„u„|„u„~„Ќ„z ', bGet,,,,, {|| SetClr(3, a16)},, '02/02'},;
{10,20, '„A„y„‚„ђ„x„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(4, a16)},, '03/03'},;
{12,20, '„K„‚„p„ѓ„~„Ќ„z ', bGet,,,,, {|| SetClr(5, a16)},, '04/04'},;
{14,20, '„L„y„|„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(6, a16)},, '05/05'},;
{16,20, '„K„Ђ„‚„y„‰„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(7, a16)},, '06/06'},;
{18,20, '„A„u„|„Ќ„z ', bGet,,,,, {|| SetClr(8, a16)},, '07/07'},;
{ 4,42, '„R„u„‚„Ќ„z ', bGet,,,,, {|| SetClr(9, a16)},, '08/08'},;
{ 6,42, '„`„‚„{„Ђ-„ѓ„y„~„y„z ', bGet,,,,, {|| SetClr(10, a16)},, '09/09'},;
{ 8,42, '„`„‚„{„Ђ-„x„u„|„u„~„Ќ„z', bGet,,,,, {|| SetClr(11, a16)},, '10/10'},;
{10,42, '„C„Ђ„|„…„q„Ђ„z ', bGet,,,,, {|| SetClr(12, a16)},, '11/11'},;
{12,42, '„`„‚„{„Ђ-„{„‚„p„ѓ„~„Ќ„z', bGet,,,,, {|| SetClr(13, a16)},, '12/12'},;
{14,42, '„R„y„‚„u„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(14, a16)},, '13/13'},;
{16,42, '„G„u„|„„„Ќ„z ', bGet,,,,, {|| SetClr(15, a16)},, '14/14'},;
{18,42, '„`„‚„{„Ђ-„q„u„|„Ќ„z ', bGet,,,,, {|| SetClr(16, a16)},, '15/15'},;
{19,20, Replicate('„џ', 41)},;
{20,20,, {|| '[ „C„Ђ„„„Ђ„r„Ђ ]'},,,,;
{|oG| if(oG:ExitState=GE_ENTER,(oG:ExitState:=GE_WRITE,.f.),.t.)},;
{|oG| SetLastKey(K_ENTER),oG:ExitState:=6},, cBtnClr},;
{20,20+13,, {|| '[ „O„„„}„u„~„p ]'},,,,,;
{|oG| SetLastKey(K_ESC),oG:ExitState:=7},, cBtnClr},;
{20,36+10,, {|| '[ „R„„„p„~„t„p„‚„„„~„Ќ„u ]'},,,,,;
{|oG| StandardClr(a16)},, cBtnClr} }

Local aIni := HB_ReadIni('gals.ini')
Local aWvt, cWvt, ser, lChange := .f.

if aIni # nil .and. ('GTWVT' IN aIni)

aWvt := aIni['GTWVT']

w := TWindowNew(2,15,22,65,,, 2, .t.)
@ 2, 33 say '„N„p„ѓ„„„‚„Ђ„z„{„p „Ѓ„p„|„y„„„‚„Ќ'
//
ARead(aGet)

TWindowClose(w)

for ser := 1 to 16
if a16[ser] # a16Old[ser]
lChange := .t.
exit
endif
next
if lChange
cWvt := ''
for ser := 1 to 16
cWvt += if(! Empty(cWvt), ',', '') + StrTrim(a16[ser])
next
aWvt['Palette'] := cWvt
HB_WriteIni('gals.ini', aIni)
elseif LastKey() == K_ESC
WvtRefresh(a16Old)
endif

endif
Return nil

Static func SetClr(nPal, a16)
Local nClr := WVT_ChooseColor(a16[nPal], a16)
if nClr # -1 .and. nClr # a16[nPal]
a16[nPal] := nClr
WvtRefresh(a16)
endif
Return nil

Static func StandardClr(a16)
a16[ 1] := RGB( 0x0 ,0x0 ,0x0 )
a16[ 2] := RGB( 0x0 ,0x0 ,0x85 )
a16[ 3] := RGB( 0x0 ,0x85,0x0 )
a16[ 4] := RGB( 0x0 ,0x85,0x85 )
a16[ 5] := RGB( 0x85,0x0 ,0x0 )
a16[ 6] := RGB( 0x85,0x0 ,0x85 )
a16[ 7] := RGB( 0x85,0x85,0x0 )
a16[ 8] := RGB( 0xC6,0xC6,0xC6 )
a16[ 9] := RGB( 0x60,0x60,0x60 )
a16[10] := RGB( 0x00,0x00,0xFF )
a16[11] := RGB( 0x60,0xFF,0x60 )
a16[12] := RGB( 0x60,0xFF,0xFF )
a16[13] := RGB( 0xF8,0x00,0x26 )
a16[14] := RGB( 0xFF,0x60,0xFF )
a16[15] := RGB( 0xFF,0xFF,0x00 )
a16[16] := RGB( 0xFF,0xFF,0xFF )

WvtRefresh(a16)
Return nil

STATIC FUNCTION rgb( r,g,b )

RETURN ( r + ( g * 256 ) + ( b * 256 * 256 ) )
#endif

Pasha
Администратор
Пост N: 818 Зарегистрирован: 23.05.05

Отправлено: 24.02.08 11:07. Заголовок: Krakozyabliki po4emu..

Krakozyabliki po4emu-to poshli :0

Pasha
Администратор
Пост N: 819 Зарегистрирован: 23.05.05

Отправлено: 24.02.08 12:31. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Перестал работать GtInfo(GTI_FONTWIDTH, 10)... Интересно, это из-за мультитерминальной сборки, или кто-то внёс ошибку в сырцы?

Posmotriu
Посмотрю

Pasha
Администратор
Пост N: 820 Зарегистрирован: 23.05.05

Отправлено: 24.02.08 21:30. Заголовок: Похоже, сейчас при m..

Похоже, сейчас при multi_gt сборке терминал gtwvt вообще не линкуется к программе. Доступен только gtwin
Я написал об этом в dev-list

Pasha
Администратор
Пост N: 823 Зарегистрирован: 23.05.05

Отправлено: 25.02.08 22:40. Заголовок: Я получил разьяснени..

Я получил разьяснение от Marcos Antonio Gambeta:

To run my programs i am using:

ANNOUNCE hb_gt_wvt_default

Procedure Main ()
....
Return

Procedure hb_gtsys ()
request hb_gt_wvt
Return

To run in console mode:

myprogram.exe //gtwin

Мне кажется, что достаточно указать:

request hb_gt_wvt

Кстати, по таким небольшим вопросам лучше сами обращайтесь в группу новостей xHarbour
Заходите на www.deja.com
Находите группу новостей: comp.lang.xharbour
или ссылка
http://groups.google.com/group/comp.lang.xharbour/topics?lnk=gschg
Задаете вопрос. Получаете компетентный ответ, причем оперативно, без лишнего передаточного звена в моем лице
Если есть затруднения с английским - попросите знакомого перевести свой небольшой и несложный текст, или воспользуйтесь переводчиком

Лукашевский

Пост N: 215 Зарегистрирован: 08.04.06

Отправлено: 25.02.08 22:43. Заголовок: Pasha пишет: Похоже..

Pasha пишет:

цитата:

Похоже, сейчас при multi_gt сборке терминал gtwvt вообще не линкуется к программе. Доступен только gtwin

С сырцами от 20 февраля линкуется... Я же писал, что GtInfo(GTI_FONTWIDTH) выдаёт текущую ширину шрифта правильно...
Кстати, Pasha, не в курсе, в какой кодировке должен быть русский текст для
GtInfo(GTI_WINTITLE, text), чтобы он правильно отображался под GTWIN на XP ? С 98-м и ME проблем нет, а под XP чёрт знает что в заголовке окна рисует...

Pasha
Администратор
Пост N: 825 Зарегистрирован: 23.05.05

Отправлено: 25.02.08 22:57. Заголовок: Я тоже об это споткн..

Я тоже об это споткнулся

winxp и win9x ведут себя по разному, чтот для меня было неожиданно
Поэтому можно написать так:

GTInfo( GTI_WINTITLE, if(hb_gt_version()='WVT'.or.OS_ISWIN9X(), HB_OemToAnsi( cCap ), cCap) )

Так GTI_FONTWIDTH заработал ? У меня работает с последними сырцами, если поставить request

Andrey
постоянный участник
Пост N: 499 Зарегистрирован: 12.09.06

Отправлено: 25.02.08 23:10. Заголовок: Pasha пишет: Krakoz..

Pasha пишет:

цитата:

Krakozyabliki po4emu-to poshli :0

Паша спасибо за тексты, только в кракозябах я тоже ничерта не разберусь.
Если тебе не трудно, то скинь пожалуйста тексты на мое мыло: 30195@mail.ru

Лукашевский

Пост N: 216 Зарегистрирован: 08.04.06

Отправлено: 26.02.08 11:49. Заголовок: Pasha пишет: Так GT..

Pasha пишет:

цитата:

Так GTI_FONTWIDTH заработал?

Как не работал, так и не работает...

Сырцы обновлял сегодня ночью...
request hb_gt_wvt уменя был поставлен сразу как я сделал мультитерминальную сборку (соотв. harbour_faq.txt)
Но раз у тебя работает... возможно, GTI_FONTWIDTH перестала устанавливаться только под Win'9x, а под XP работает. Постараюсь прояснить этот вопрос.

Pasha
Администратор
Пост N: 826 Зарегистрирован: 23.05.05

Отправлено: 26.02.08 13:17. Заголовок: „B„Ђ„„ „u„‹„u „‚„p„x..

„B„Ђ„„ „u„‹„u „‚„p„x „Џ„„„p „Ѓ„‚„Ђ„?„u„t„…„‚„p. „S„p„} „y„ѓ„Ѓ„Ђ„|„Ћ„x„…„ђ„„„ѓ„‘ „}„Ђ„y „†„~„{„?„y„y, „{„Ђ„„„Ђ„‚„Ќ„u „~„p„t„Ђ „x„p„}„u„~„y„„„Ћ „ѓ„r„Ђ„y„}„y
TWindowNew()/TWindowsClose() - „Ѓ„‚„Ђ„ѓ„„„Ђ „Ђ„„„{„‚„Ќ„„„y„u „Ђ„{„~„p „ѓ „…„{„p„x„p„~„~„Ќ„}„y „{„Ђ„Ђ„‚„t„y„~„p„„„p„}„y

„M„p„ѓ„ѓ„y„r aGet „Ѓ„‚„u„t„~„p„x„~„p„‰„u„~ „t„|„‘ „ѓ„Ђ„x„t„p„~„y„‘ say/get „Ђ„q„Ћ„u„{„„„Ђ„r „r „…„{„p„x„p„~„~„Ђ„} „}„u„ѓ„„„u „Џ„{„‚„p„~„p, „ѓ „x„p„t„p„~„~„Ќ„} „?„r„u„„„Ђ„}. „A„Ђ„| „{„Ђ„t„p {|| SetClr(1, a16)} „r„Ќ„x„Ќ„r„p„u„„„ѓ„‘ „Ѓ„Ђ „~„p„w„p„„„y„ђ
Enter „~„p „Џ„„„y„‡ „Ђ„q„Ћ„u„{„„„p„‡ get. „S.„u. „~„p„t„Ђ „t„|„‘ „{„p„w„t„Ђ„s„Ђ „Ђ„q„Ћ„u„{„„„p get „ѓ„Ђ„x„t„p„„„Ћ reader-„q„|„Ђ„{,
„{„Ђ„„„Ђ„‚„Ќ„z „q„Ќ „Ѓ„Ђ „~„p„w„p„„„y„ђ Enter „r„Ќ„x„Ќ„r„p„| „Џ„„„Ђ„„ „Ђ„q„‚„p„q„Ђ„„„‰„y„{
„U„…„~„{„?„y„‘ ARead „ѓ„Ђ„x„t„p„u„„ „Џ„„„y get „y „r„Ќ„x„Ќ„r„p„u„„ ReadModal
„R„p„}„y „†„…„~„{„?„y„y „~„u „t„p„ђ, „„„p„{ „Ђ„~„y „Ѓ„Ђ„„„‘„~„…„„ „x„p „ѓ„Ђ„q„Ђ„z „u„‹„u „}„~„Ђ„s„Ђ „‰„u„s„Ђ...
„D„…„}„p„ђ, „ѓ„…„„„Ћ „Ѓ„Ђ„~„‘„„„~„p „y „q„u„x „~„y„‡

#include "getexit.ch"
#include "inkey.ch"

Static func ColorSetup
Local a16 := WVT_GetPalette(), w
Local a16Old := AClone(a16)
Local bGet := {|| space(6)}
Local cBtnClr := '15/01,00/03, ,11/03,07/01'

Local aGet := {;
{ 4,20, '„X„u„‚„~„Ќ„z ', bGet,,,,, {|| SetClr(1, a16)},, '07/00'},;
{ 6,20, '„R„y„~„y„z ', bGet,,,,, {|| SetClr(2, a16)},, '01/01'},;
{ 8,20, '„H„u„|„u„~„Ќ„z ', bGet,,,,, {|| SetClr(3, a16)},, '02/02'},;
{10,20, '„A„y„‚„ђ„x„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(4, a16)},, '03/03'},;
{12,20, '„K„‚„p„ѓ„~„Ќ„z ', bGet,,,,, {|| SetClr(5, a16)},, '04/04'},;
{14,20, '„L„y„|„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(6, a16)},, '05/05'},;
{16,20, '„K„Ђ„‚„y„‰„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(7, a16)},, '06/06'},;
{18,20, '„A„u„|„Ќ„z ', bGet,,,,, {|| SetClr(8, a16)},, '07/07'},;
{ 4,42, '„R„u„‚„Ќ„z ', bGet,,,,, {|| SetClr(9, a16)},, '08/08'},;
{ 6,42, '„`„‚„{„Ђ-„ѓ„y„~„y„z ', bGet,,,,, {|| SetClr(10, a16)},, '09/09'},;
{ 8,42, '„`„‚„{„Ђ-„x„u„|„u„~„Ќ„z', bGet,,,,, {|| SetClr(11, a16)},, '10/10'},;
{10,42, '„C„Ђ„|„…„q„Ђ„z ', bGet,,,,, {|| SetClr(12, a16)},, '11/11'},;
{12,42, '„`„‚„{„Ђ-„{„‚„p„ѓ„~„Ќ„z', bGet,,,,, {|| SetClr(13, a16)},, '12/12'},;
{14,42, '„R„y„‚„u„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(14, a16)},, '13/13'},;
{16,42, '„G„u„|„„„Ќ„z ', bGet,,,,, {|| SetClr(15, a16)},, '14/14'},;
{18,42, '„`„‚„{„Ђ-„q„u„|„Ќ„z ', bGet,,,,, {|| SetClr(16, a16)},, '15/15'},;
{19,20, Replicate('„џ', 41)},;
{20,20,, {|| '[ „C„Ђ„„„Ђ„r„Ђ ]'},,,,;
{|oG| if(oG:ExitState=GE_ENTER,(oG:ExitState:=GE_WRITE,.f.),.t.)},;
{|oG| SetLastKey(K_ENTER),oG:ExitState:=6},, cBtnClr},;
{20,20+13,, {|| '[ „O„„„}„u„~„p ]'},,,,,;
{|oG| SetLastKey(K_ESC),oG:ExitState:=7},, cBtnClr},;
{20,36+10,, {|| '[ „R„„„p„~„t„p„‚„„„~„Ќ„u ]'},,,,,;
{|oG| StandardClr(a16)},, cBtnClr} }

Local aIni := HB_ReadIni('gals.ini')
Local aWvt, cWvt, ser, lChange := .f.

if aIni # nil .and. ('GTWVT' IN aIni)

aWvt := aIni['GTWVT']

w := TWindowNew(2,15,22,65,,, 2, .t.)
@ 2, 33 say '„N„p„ѓ„„„‚„Ђ„z„{„p „Ѓ„p„|„y„„„‚„Ќ'
//
ARead(aGet)

TWindowClose(w)

for ser := 1 to 16
if a16[ser] # a16Old[ser]
lChange := .t.
exit
endif
next
if lChange
cWvt := ''
for ser := 1 to 16
cWvt += if(! Empty(cWvt), ',', '') + StrTrim(a16[ser])
next
aWvt['Palette'] := cWvt
HB_WriteIni('gals.ini', aIni)
elseif LastKey() == K_ESC
WvtRefresh(a16Old)
endif

endif
Return nil

Static func SetClr(nPal, a16)
Local nClr := WVT_ChooseColor(a16[nPal], a16)
if nClr # -1 .and. nClr # a16[nPal]
a16[nPal] := nClr
WvtRefresh(a16)
endif
Return nil

Static func StandardClr(a16)
a16[ 1] := RGB( 0x0 ,0x0 ,0x0 )
a16[ 2] := RGB( 0x0 ,0x0 ,0x85 )
a16[ 3] := RGB( 0x0 ,0x85,0x0 )
a16[ 4] := RGB( 0x0 ,0x85,0x85 )
a16[ 5] := RGB( 0x85,0x0 ,0x0 )
a16[ 6] := RGB( 0x85,0x0 ,0x85 )
a16[ 7] := RGB( 0x85,0x85,0x0 )
a16[ 8] := RGB( 0xC6,0xC6,0xC6 )
a16[ 9] := RGB( 0x60,0x60,0x60 )
a16[10] := RGB( 0x00,0x00,0xFF )
a16[11] := RGB( 0x60,0xFF,0x60 )
a16[12] := RGB( 0x60,0xFF,0xFF )
a16[13] := RGB( 0xF8,0x00,0x26 )
a16[14] := RGB( 0xFF,0x60,0xFF )
a16[15] := RGB( 0xFF,0xFF,0x00 )
a16[16] := RGB( 0xFF,0xFF,0xFF )

WvtRefresh(a16)
Return nil

STATIC FUNCTION rgb( r,g,b )

RETURN ( r + ( g * 256 ) + ( b * 256 * 256 ) )

Pasha
Администратор
Пост N: 827 Зарегистрирован: 23.05.05

Отправлено: 26.02.08 13:19. Заголовок: что-то в коде процед..

что-то в коде процедуры заставляет форум переходить на кракозяблики
напишу мылом

Лукашевский

Пост N: 217 Зарегистрирован: 08.04.06

Отправлено: 26.02.08 22:31. Заголовок: Pasha пишет: Так GT..

Pasha пишет:

цитата:

Так GTI_FONTWIDTH заработал ?

GTI_FONTWIDTH отказывается устанавливаться категорически, и на XP в том числе, - сегодня проверял.
Из-за этого терминалом GTWVT пока не пользуюсь совсем. Представляешь, что такое размер шрифта 8 (а он по умолчанию всегда такой) при разрешении экрана, к примеру, 1280х1024?

Лукашевский

Пост N: 218 Зарегистрирован: 08.04.06

Отправлено: 27.02.08 12:19. Заголовок: Pasha пишет: http:/..

Pasha пишет:

цитата:

http://groups.google.com/group/comp.lang.xharbour/topics?lnk=gschg
Задаете вопрос. Получаете компетентный ответ, причем оперативно

Какая-то там оперативность... неоперативная. За 14 часов мне пока никто не ответил

За неделю тоже!

Andrey
постоянный участник
Пост N: 508 Зарегистрирован: 12.09.06

Отправлено: 01.03.08 08:58. Заголовок: А можно прикрутить к..

А можно ли прикрутить к GTWVT вызов стандартного окна шрифтов ???
и получать по завершению:
1) выбранный шрифт
2) размер шрифта

Ответов - 96 , стр: 1 2 3 4 5 All [только новые]

Ответ:

1 2 3 4 5 6 7 8 9

показывать это сообщение только модераторам
не делать ссылки активными

Имя, пароль:

зарегистрироваться

Форум » [x]Harbour » Проблема с ярлыком и окном терминалки GTWVT

Тему читают:

- участник сейчас на форуме

- участник вне форума

Все даты в формате GMT 3 час. Хитов сегодня: 23
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет

Создай свой форум на сервисе Borda.ru
Форум находится на 59 месте в рейтинге
Текстовая версия