Проблема с ярлыком и окном терминалки GTWVT

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

Проблема с ярлыком и окном терминалки GTWVT

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

Ответов - 96, стр: 1 2 3 4 5 All

Лукашевский: Pasha пишет: линкеру дай параметр -aa А я о чём говорю?! Именно с этим параметром в 98-м и ME окно одно, а в XP - два!

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

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

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

Andrey: Pasha пишет: Недавно сделал настройку палитры цветов для gtwvt, через функции Wvt_GetPalette(), Wvt_SetPalette(), Wvt_ChooseColor() А можно еще до кучи и этот кусочек примера показать про эти настройки ? спасибо заранее .... Pasha пишет: Этим вопрос с размером окна закрыл полностью, каждому юзеру ставлю настройки как ему удобно Т.е. ты сам в ини-файлы ставишь ручками шрифт и размер шрифта ?

Pasha: 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: „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: Krakozyabliki po4emu-to poshli :0

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

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

Pasha: Я получил разьяснение от 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 Задаете вопрос. Получаете компетентный ответ, причем оперативно, без лишнего передаточного звена в моем лице Если есть затруднения с английским - попросите знакомого перевести свой небольшой и несложный текст, или воспользуйтесь переводчиком

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

Pasha: Я тоже об это споткнулся winxp и win9x ведут себя по разному, чтот для меня было неожиданно Поэтому можно написать так: GTInfo( GTI_WINTITLE, if(hb_gt_version()='WVT'.or.OS_ISWIN9X(), HB_OemToAnsi( cCap ), cCap) ) Так GTI_FONTWIDTH заработал ? У меня работает с последними сырцами, если поставить request

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

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

Pasha: „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: что-то в коде процедуры заставляет форум переходить на кракозяблики напишу мылом

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

Лукашевский: Pasha пишет: http://groups.google.com/group/comp.lang.xharbour/topics?lnk=gschg Задаете вопрос. Получаете компетентный ответ, причем оперативно Какая-то там оперативность... неоперативная. За 14 часов мне пока никто не ответил За неделю тоже!

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

полная версия страницы