Отправлено: 15.11.11 21:36. Заголовок: Примеры из Минигуи -ошибки, вопросы..... (продолжение)

Всем привет.
Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ?
А заодно может и исправить и добавить новые....

Очень красочный пример: \MiniGUI\SAMPLES\Advanced\AVI_Animation - не работает под Win7 (наверно AVI-шки нет в ресурсах)
Предложение Григорию:
Можно ли добавить еще один пример с отдельным AVI-файлом в ресурсах проекта и показом такого же бегунка ?


Пример: \MiniGUI\SAMPLES\Advanced\DisplayMode - не работает под ХР и далее....


Пример: \MiniGUI\SAMPLES\Advanced\Tsb_filter - вылетает на ХР
--------------------------------------------------------------------------------
Harbour MiniGUI Errorlog File
Harbour MiniGUI Extended Edition 2.0.1 - 2011.09.21
--------------------------------------------------------------------------------
Date: 11/15/2011 Time: 22:13:24
Error BASE/1124 Argument error: LEFT

Called from LEFT(0)
Called from SCANSOFT(195)
Called from MAIN(84)


Пример: \MiniGUI\SAMPLES\BASIC\MsgEdit - не собирается...
Z:\MiniGUI\SAMPLES\BASIC\MsgEdit>call ..\..\..\batch\compile.bat demo /L shell32
Harbour 3.1.0dev (Rev. 17042)
Copyright (c) 1999-2011, http://harbour-project.org/
Compiling 'demo.prg'...
Lines 20133, Functions/Procedures 30
Generating C source output to 'demo.c'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
demo.c:
Error E2141 demo.prg 993: Declaration syntax error
*** 1 errors in Compile ***

C compile error.

 Отправлено: 07.07.15 19:42. Заголовок: Dima пишет: пробну ..

Dima пишет:

цитата:

пробну

так нарисовать в любом окне

ShowNotifyIcon( GetFormHandle('Form_1'), .T., LoadTrayIcon( GetInstance(), "MY.ICO" ), "тултип" )

Так убить ( при убиении окно Form_1 должно жить )
DeleteNotifyIcon( GetFormHandle('Form_1') )

Это сама убивалка
#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"

#define WM_TASKBAR WM_USER + 1043

static BOOL DeleteNotifyIcon( HWND hWnd );

HB_FUNC( DELETENOTIFYICON )
{
hb_retl( ( BOOL ) DeleteNotifyIcon( ( HWND ) hb_parnl( 1 ) ) );
}

static BOOL DeleteNotifyIcon( HWND hWnd )
{
BOOL bRet;
NOTIFYICONDATA nid;

ZeroMemory( &nid, sizeof( nid ) );

nid.cbSize = sizeof( NOTIFYICONDATA );
nid.hWnd = hWnd;
nid.uID = 0;
nid.uFlags = NIF_ICON | NIF_MESSAGE | NIF_TIP;
nid.uCallbackMessage = WM_TASKBAR;

bRet = Shell_NotifyIcon( NIM_DELETE, &nid );

return bRet;
}

#pragma ENDDUMP

 Отправлено: 07.07.15 19:50. Заголовок: Andrey пишет: Вс..

Andrey пишет:

цитата:

что не так

Все так но, Почитай последние сообщения

 Отправлено: 07.07.15 19:57. Заголовок: Везде в примерах: MA..

Везде в примерах:
MAIN NOSHOW ;
....
NOTIFYICON 'AID_MAIN' ;
NOTIFYTOOLTIP PROGRAM ;
ON NOTIFYCLICK ????()

А мне нужен STANDART.
Как можно сделать тогда ?
Сначала сделать окно без иконки, а потом присвоить ему иконку ?

 Отправлено: 07.07.15 20:01. Заголовок: Andrey пишет: Как м..

Andrey пишет:

цитата:

Как можно сделать тогда ?

Андрей , ты издеваешься ?

Все ж написано , прочитай последние 5 сообщений по твоему вопросу

 Отправлено: 07.07.15 20:05. Заголовок: Haz пишет: Андрей ,..

Haz пишет:

цитата:

Андрей , ты издеваешься ?

Да не издеваюсь, а уточняю...
Сначала сделать окно без иконки, а потом присвоить ему иконку ? Так ?

 Отправлено: 07.07.15 20:06. Заголовок: Andrey пишет: Да не..

Andrey пишет:

цитата:

Да не издеваюсь, а уточняю...

я пас

 Отправлено: 07.07.15 20:08. Заголовок: Andrey пишет: Снача..

Andrey пишет:

цитата:

Сначала сделать окно без иконки, а потом присвоить ему иконку ? Так ?

да так

 Отправлено: 07.07.15 20:14. Заголовок: Спасибо ! :sm36: Ч..

Спасибо !
Что-то мозила тормозит... Пока предложение добавишь, а уже ответ есть на незаконченное предложение...

 Отправлено: 07.07.15 20:20. Заголовок: Andrey пишет: а уже..

Andrey пишет:

цитата:

а уже ответ есть

почитай еще это https://msdn.microsoft.com/ru-ru/library/windows/desktop/bb762159(v=vs.85).aspx
там есть метод StFocus. Возможно он дает фокус на скрытую в трее икону ( не пробовал )
Прикрутить можно подправив ChangeNotifyIcon , пример на примере DeleteNotifyIcon скинул

 Отправлено: 07.07.15 20:21. Заголовок: Спасибо БОЛЬШОЕ Haz ..

Спасибо БОЛЬШОЕ Haz !

 Отправлено: 07.07.15 21:25. Заголовок: Смотрю движок форума..

Смотрю движок форума на автомате стал закрывать "длинные" темы.

 Отправлено: 21.07.15 11:08. Заголовок: Всем привет. Имею те..

Всем привет.
Имею текст (заголовок) из трех строчек, разделитель CRLF - типа:
"Строка длинная 1"+CRLF+"Строка длинная 2"+CRLF+"Строка длинная 3"
Вверху формы окна делаю вывод:
@ 0, 0 LABEL Label_1 WIDTH nMaxWidth HEIGHT 120 VALUE cTitle ;
SIZE 24 BOLD FONTCOLOR WHITE BACKCOLOR aBackColor1 ;
CENTERALIGN VCENTERALIGN

Строка вытягивается в одну строчку. И не влазиет в ширину окна. Если убрать VCENTERALIGN то 3 строки,
но заголовок к верху окна прилипает.
Как отцентовать по вертикали текст из нескольких строчек ?

 Отправлено: 21.07.15 11:40. Заголовок: Andrey пишет: Как о..

Andrey пишет:

цитата:

Как отцентовать по вертикали текст из нескольких строчек

при выводе текста используется DrawText() или DrawTextEx() где НЕ ПОДДЕРЖИВАЕТСЯ вертикальное выравнивание многострочного текста
https://msdn.microsoft.com/en-us/library/windows/desktop/dd162499(v=vs.85).aspx
Для решения предлагается писать свою выравнивалку
http://forums.codeguru.com/showthread.php?253508-How-to-align-a-text-in-vertical-center&highlight=center%20vertical%20text

 Отправлено: 21.07.15 12:20. Заголовок: Спасибо большое за р..

Спасибо большое за разъяснение !
А то я думал, что опять где-то что-то пропустил...

Haz пишет:

цитата:

Для решения предлагается писать свою выравнивалку

Да там не на харборе...
Может есть готовый код для Харбора ?

 Отправлено: 21.07.15 12:55. Заголовок: Andrey пишет: Может..

Andrey пишет:

цитата:

Может есть готовый код для Харбора ?

Так все равно править то придется сишный сырец.

 Отправлено: 21.07.15 13:04. Заголовок: Dima пишет: Так все..

Dima пишет:

цитата:

Так все равно править то придется сишный сырец.

Я в Си вообще не силён...

 Отправлено: 21.07.15 13:12. Заголовок: Andrey пишет: Я в С..

Andrey пишет:

цитата:

Я в Си вообще не силён...

А может и не Си.
Там 2 сырца я так понял H_label.prg и C_label.c (в последнем я ни нашел DrawText)
Посмотри для начала H_label.prg , возможно там что надо поправить.

 Отправлено: 24.07.15 19:33. Заголовок: Всем привет. Вопрос ..

Всем привет.
Вопрос про окна.
Если я создал окно MODAL и нахожусь на этой форме, то как можно вызвать другое окно CHILD просто для показа ожидания ?
Где то уже осуждали это, не могу найти....
Функция ожидания с окном CHILD - \samples\Basic\WAIT_WINDOW_2)

 Отправлено: 25.07.15 13:35. Заголовок: Andrey пишет:Если я ..

Andrey пишет:

цитата:

Если я создал окно MODAL и нахожусь на этой форме, то как можно вызвать другое окно CHILD просто для показа ожидания ?

Создай сначала CHILD, потом modal

 Отправлено: 25.07.15 17:28. Заголовок: SergKis пишет: Созд..

SergKis пишет:

цитата:

Создай сначала CHILD, потом modal

Да не могу. Нужно только в этом порядке.

 Отправлено: 25.07.15 19:15. Заголовок: Andrey пишет: Да не..

Andrey пишет:

цитата:

Да не могу. Нужно только в этом порядке.

можно в ЛЮБОМ порядке создавать , а обрабатывать (hide, show ...) в нужном

 Отправлено: 25.07.15 20:08. Заголовок: Andrey пишет: Где т..

Andrey пишет:

цитата:

Где то уже осуждали это, не могу найти....

Посмотри в этой теме пост №7
http://clipper.borda.ru/?1-1-0-00000434-000-0-0-1425331688

 Отправлено: 25.07.15 20:22. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Посмотри в этой теме пост №7

Спасибо БОЛЬШОЕ ! То что нужно !

 Отправлено: 25.07.15 20:41. Заголовок: Что то не получается..

Что то не получается.
На модальном окне кнопка, по ней отдельная функция в которой делаю:
_HMG_IsModalActive := .F. // разрешить вызов другого окна после модального
// создать окно ожидания
aBegin := WaitWinCreate( 'Загружаю отчёт в EXCEL ...' )
.....
WaitWinClose(aBegin) // убить окно ожидания
_HMG_IsModalActive := .T. // запретить вызов другого окна после модального

RETURN NIL
После отработки этой функции я могу попадать в ЛЮБОЕ ОКНО - а не возвращаюсь в это модальное окно.
Что не так делаю ?

 Отправлено: 27.07.15 15:15. Заголовок: А что, по умолчанию ..

А что, по умолчанию теперь в MiniGui берется минимальный размер шрифта?
По крайней для ...SAMPLES\BASIC GRID_X и Tree это верно. Размер шрифта
меню - как по умолчанию в системе, а все Control's имеют микроскопический шрифт.

 Отправлено: 27.07.15 15:25. Заголовок: nick_mi Да вроде вс..

nick_mi
Да вроде все норм.
В каком примере такая не понятка ?

 Отправлено: 27.07.15 15:32. Заголовок: ...SAMPLES\BASIC..

...SAMPLES\BASIC\GRID_1, ...SAMPLES\BASIC\GRID_2, ...SAMPLES\BASIC\TREE
...SAMPLES\ADVANCED\ACHOICE

 Отправлено: 27.07.15 15:56. Заголовок: nick_mi пишет: SAMP..

nick_mi пишет:

цитата:

SAMPLES\BASIC\TREE

Да вроде в норме все , по остальным тоже
Скрин покажи

 Отправлено: 27.07.15 15:58. Заголовок: nick_mi пишет: Разм..

nick_mi пишет:

цитата:

Размер шрифта меню - как по умолчанию в системе

Да, теперь так

nick_mi пишет:

цитата:

все Control's имеют микроскопический шрифт

Лечится в одну строку в начале программы

цитата:

set font to _GetSysFont() , 10

 Отправлено: 27.07.15 16:08. Заголовок: gfilatov2002 ]Лечит..

gfilatov2002

цитата:

]Лечится в одну строку в начале программы

Это конечно хорошо, что лечится, лечится также, если в окне
явно указать шрифт и размер шрифта. Но если не очень подготовленный
пользователь , или, предположим, просмотреть несколько примеров,
как в моем случае я проматривал GRID-ы, и в каждом примере править
править пример?
Мне кажется не кошерно как-то.

 Отправлено: 27.07.15 16:40. Заголовок: nick_mi пишет: Мне ..

nick_mi пишет:

цитата:

Мне кажется не кошерно как-то

Так в чем тут проблема-то - в том, что используется шрифт (и его размер) СИСТЕМЫ по умолчанию ?

 Отправлено: 28.07.15 08:58. Заголовок: Я конечно, дико изви..

Я конечно, дико извиняюсь, но проблема осталась. Я только что проверил системные
настройки для оформления экрана , кругом, где только допускалось, шрифты проставлены.
У меня дома на WINDOWS 7 все нормально. На работе на WINDOWS XP шрифты
микроскопические

click here

 Отправлено: 28.07.15 09:18. Заголовок: nick_mi пишет: У ме..

nick_mi пишет:

цитата:

У меня дома на WINDOWS 7 все нормально.

То же на 7 все хорошо
XP не могу проверить , слез с нее.

 Отправлено: 28.07.15 12:57. Заголовок: nick_mi пишет: Я ко..

nick_mi пишет:

цитата:

Я конечно, дико извиняюсь, но проблема осталась.

Да поставь свои шрифты - любые. Одна строчка всего:
SET FONT TO "Tahoma", 16

 Отправлено: 28.07.15 14:55. Заголовок: Andrey пишет:Да пост..

Andrey пишет:

цитата:

Да поставь свои шрифты - любые. Одна строчка всего: SET FONT TO "Tahoma", 16

Это спорный вопрос, т.к. было (теперь когда то, вер. 2.4.8. уже была изменена)
1.
_HMG_DefaultFontName := 'Arial'
_HMG_DefaultFontSize := 9
стало
2.
_HMG_DefaultFontName := _GetSysFont ()
_HMG_DefaultFontSize := GetDefaultFontSize ()
пробнул на двух компах с 8.1 (разные разрешения) на одном приемлемо, на другом почти приемлемо, но мелковато.
Если расчеты размеров контролов, окон от первого варианта, то при переходе на второй - все сыпется в разной степени и это не есть хорошо, надо править старые тексты ...
Я согласен с nick_mi

цитата:

Мне кажется не кошерно как-то.

 Отправлено: 28.07.15 14:57. Заголовок: SergKis пишет: Я со..

SergKis пишет:

цитата:

Я согласен с nick_mi

+1

 Отправлено: 28.07.15 16:23. Заголовок: SergKis пишет:Было ...

SergKis пишет:

цитата:

Было ... 1. _HMG_DefaultFontName := 'Arial' _HMG_DefaultFontSize := 9 стало 2. _HMG_DefaultFontName := _GetSysFont () _HMG_DefaultFontSize := GetDefaultFontSize ()

Если глянем, например, h_button.prg FUNCTION _DefineButton (...), размеры button по умолчанию
hb_default( @w, 100 )
hb_default( @h, 28 )
это соответствует для Arial, 9 (расчет из инчес в пиксели), т.е. размеры заявлены для h_init.prg п.1
Что получим с применением пункта 2 для размеров ?
И это относится не только к button, По мне пункт 2 становися все не более не кошерным.
Но может я гляжу не стой колокольни на изменения ?

 Отправлено: 29.07.15 22:04. Заголовок: nick_mi Можешь выло..

nick_mi
Можешь выложить скрины одного и того же окна в XP и в семерке ?
Что то микро-шрифта я не увидел. ХЗ может зрение упало.

 Отправлено: 29.07.15 22:44. Заголовок: На скрине размер шри..

На скрине размер шрифта в меню-10. Уменьши изображение так
чтобы шрифт на меню примерно соответствовал размеру 10. Тогда
шрифт на GRID будет очень мелким.
Завтра выложу с XP . С семерки
выкладываю

C опцией уменьшить до 640х480
click here

и без опции уменьшить до 640х480
click here

 Отправлено: 29.07.15 22:49. Заголовок: nick_mi OK , ждем...

nick_mi
OK , ждем.

 Отправлено: 30.07.15 08:37. Заголовок: И тот же GRID в XP С..

И тот же GRID в XP
С опцией Уменьшить до 640х480
click here

Без опции Уменьшить до 640х480
click here

И еще я выполнил программу с
SergKis

цитата:

_HMG_DefaultFontName := _GetSysFont () _HMG_DefaultFontSize := GetDefaultFontSize ()

Для WIN 7

_GetSysFont ()         = Segoe UI   
 GetDefaultFontSize () = 9 

Для WIN XP

_GetSysFont ()         = Tahoma 
 GetDefaultFontSize () = 4 

Хотя в настройках экрана я нигде не ставил шрифт размера 4

 Отправлено: 30.07.15 11:38. Заголовок: nick_mi пишет:И еще ..

nick_mi пишет:

цитата:

И еще я выполнил программу с SergKis

Теперь такая настройка стоит в h_init.prg (уст. значений переменным _HMG_...). Если не ставим специально set font ... , то работают такие значения для фонта

 Отправлено: 30.07.15 13:26. Заголовок: SergKis пишет: Тепе..

SergKis пишет:

цитата:

Теперь такая настройка стоит в h_init.prg

С учетом этого обсуждения изменил определение размера шрифта на

цитата:

_HMG_DefaultFontSize := Max( 9, GetDefaultFontSize () )

 Отправлено: 30.07.15 16:21. Заголовок: gfilatov2002 :sm36:..

gfilatov2002

 Отправлено: 07.08.15 14:32. Заголовок: нехорошее поведение функции EnumWindows из примеров

Столкнулся с проблемой жора памяти при использовании функции EnumWindows из примеров минигуи. Каждый ее вызов отгрызает память . Как бороть ?

Вот самодостаточный пример . При нажатии кнопки старт наглядно виден аппетит EhumWindows и прога падает без слов

 
 #include "hbthread.ch" 
 #include "minigui.ch" 
  
 Function Main 
 local nFreeMem := MemoryStatus(2) 
 	DEFINE WINDOW Form_1 ; 
 		AT 0,0 ; 
 		WIDTH 365 HEIGHT 245 ; 
 		TITLE "Free memory status" ; 
 		MAIN 
  
 		@ 20,145 BUTTON Button_1 ; 
 			CAPTION "Start"  ; 
 			ACTION { || hb_threadStart( HB_THREAD_INHERIT_PUBLIC, @Start() ) } ; 
 			WIDTH 80 HEIGHT 26 DEFAULT 
  
 		@ 70,31 PROGRESSBAR Progress_1 ; 
 			RANGE 0, nFreeMem ; 
 			WIDTH 300 HEIGHT 26 ; 
 			TOOLTIP "" 
  
  
 	END WINDOW 
  
 	DEFINE TIMER Timer_1 OF Form_1 INTERVAL 100 ACTION {|| Form_1.Progress_1.Value := MemoryStatus(2) } 
  
 	 
  
 	CENTER WINDOW Form_1 
  
 	ACTIVATE WINDOW Form_1 
  
 Return Nil 
  
  
 Func start() 
 local aWin := {} 
    while .t. 
        aWin := EnumWindows () 
    end 
 return nil 
  
 #pragma BEGINDUMP 
  
 #include <windows.h> 
  
 #include "hbapi.h" 
 #include "hbapiitm.h" 
  
 static PHB_ITEM pArray; 
  
 BOOL CALLBACK EnumWindowsProc (HWND hWnd, LPARAM lParam) 
 { 
    hb_arrayAddForward (pArray, hb_itemPutNLL (NULL, (LONG) hWnd)); 
    return TRUE; 
 } 
  
  
 HB_FUNC ( ENUMWINDOWS ) 
 { 
    pArray = hb_itemArrayNew ( 0 ); 
  
    EnumWindows ((WNDENUMPROC) EnumWindowsProc, (LPARAM) 0); 
  
    hb_itemReturnRelease ( pArray ); 
    pArray = NULL; 
 } 
  
 #pragma ENDDUMP 
  
 

 Отправлено: 09.08.15 21:22. Заголовок: Haz пишет: Столкнул..

Haz пишет:

цитата:

Столкнулся с проблемой жора памяти при использовании функции EnumWindows из примеров минигуи. Каждый ее вызов отгрызает память . Как бороть ?

Проверил , так и есть.......тихо схлопнулась прога и гудбай....
В рабочих программах юзать ее в таком виде как есть (не доведенном до ума) опасно.

 Отправлено: 17.08.15 16:42. Заголовок: Haz пишет: Столкнул..

Haz пишет:

цитата:

Столкнулся с проблемой жора памяти при использовании функции EnumWindows из примеров минигуи. Каждый ее вызов отгрызает память . Как бороть ?

Поборол, Работает корректно.

  
 Func EnumWindows() 
 local aWin := {} 
       EnumWin( {|hWin, nLParam| AADD( aWin,  hWin ) } )  
 return aWin 
  
 #pragma BEGINDUMP 
  
  
 #include <hbapi.h> 
 #include <hbapiitm.h> 
 #include <windows.h> 
  
 void hb_evalBlock( PHB_ITEM pCodeBlock, ... ); 
  
 static PHB_ITEM pCodeBlock = NULL; 
  
 BOOL CALLBACK static EnumWinProc( HWND hWnd, LPARAM lParam ) 
 { 
     PHB_ITEM pHWnd  = hb_itemPutNL( NULL, ( LONG ) hWnd ); 
     PHB_ITEM pParam = hb_itemPutNL( NULL, ( LONG ) lParam ); 
  
     if( pCodeBlock ) 
       hb_evalBlock( pCodeBlock, pHWnd, pParam, 0 ); 
  
    hb_itemRelease( pHWnd ); 
    hb_itemRelease( pParam ); 
  
    return TRUE; 
 } 
  
 HB_FUNC( ENUMWIN ) 
 { 
    LPARAM lParam = ( LPARAM ) hb_parnl( 2 ); 
    pCodeBlock = hb_param( 1, HB_IT_BLOCK ); 
    hb_retl( EnumWindows( (WNDENUMPROC) EnumWinProc, lParam)); 
    pCodeBlock = NULL; 
 } 
    
  #pragma ENDDUMP  
    
  
 

PS.
Григорий
В примерах MiniGui есть другой вариант EnumWindows , выше в своем сообщении приводил тест, подтверждающий жор памяти.
Может в библиотеку включить из этого поста, нормально работающую ?

 Отправлено: 19.08.15 17:30. Заголовок: Если допустим в цикл..

Если допустим в цикле вывожу список полей базы на форму:

ELSEIF cType == 'N' .OR. cType == 'D' .OR. cType == 'C'
xRet := FIELDGET( FIELDNUM( cPole ) )
cRet := "A"+ TRANSFORM( xRet, cPicture ) + "A"
nWFld := GetTxtWidth( cRet, aFontFields[ 2 ], aFontFields[ 1 ] )

@ nRowFld, nColFld GETBOX &cObj VALUE xRet ;
PICTURE cPicture ;
WIDTH nWFld HEIGHT aFontFields[ 2 ] *2.5 - nDelHeight ;
FONT aFontFields[ 1 ] SIZE aFontFields[ 2 ] ;
BACKCOLOR { aBackColorPage, {255,255,200},{200,255,255}} ;
FONTCOLOR { aClrFld , {255,255,200},{0,0,255}}

ТО как мне определить, было ли исправлено хоть одно значение в GETBOX ?

 Отправлено: 19.08.15 17:56. Заголовок: Haz пишет: Может в ..

Haz пишет:

цитата:

Может в библиотеку включить из этого поста, нормально работающую ?

Благодарю за помощь
Конечно, сделаю...

 Отправлено: 19.08.15 21:00. Заголовок: Haz Предлагаю прове..

Haz
Предлагаю проверить еще такой вариант этой функции:

static PHB_ITEM pArray; 
  
 #if defined( __BORLANDC__ ) 
    #pragma argsused 
 #endif 
  
 BOOL CALLBACK EnumWindowsProc( HWND hWnd, LPARAM lParam ) 
 { 
   PHB_ITEM pHWnd = hb_itemPutNL( NULL, ( LONG ) hWnd );  
 #if defined( __MINGW32__ ) 
    UNREFERENCED_PARAMETER( lParam ); 
 #endif 
    hb_arrayAddForward( pArray, pHWnd ); 
    hb_itemRelease( pHWnd ); 
  
    return TRUE; 
 } 
  
 HB_FUNC ( ENUMWINDOWS ) 
 { 
    pArray = hb_itemArrayNew( 0 ); 
  
    EnumWindows( ( WNDENUMPROC ) EnumWindowsProc, ( LPARAM ) 0 ); 
  
    hb_itemReturnRelease( pArray ); 
    pArray = NULL; 
 }

 Отправлено: 19.08.15 21:17. Заголовок: Григорий Предлагаю п..

Григорий

цитата:

Предлагаю проверить еще такой вариант этой функции:

протестирую завтра, на первый взгляд она практически та же, что я выкладывал в примере жора памяти.
Разница в этом

 
  #if defined( __BORLANDC__ )  
     #pragma argsused  
  #endif 
 

и в передаче параметра в функцию

 
 hb_arrayAddForward( pArray, pHWnd ) 
 

не уверен что это поможет, но всяко бывает )

ПОМОГЛО ! увидел в чем проблема
hb_itemRelease( pHWnd ) - лечит жор

PS
Григорий в официале HMG тоже жор будет вот из последнего

 
 BOOL CALLBACK EnumWindowsProc (HWND hWnd, LPARAM lParam) 
 { 
    UNREFERENCED_PARAMETER (lParam); 
    hb_arrayAddForward (pArray, hb_itemPutNLL (NULL, (LONG_PTR) hWnd)); 
    return TRUE; 
 } 
 

 Отправлено: 19.08.15 21:40. Заголовок: Haz пишет: ПОМОГЛО ..

Haz пишет:

цитата:

ПОМОГЛО ! увидел в чем проблема

Благодарю за подтверждение
Тогда буду использовать этот вариант в примерах новой сборки

 Отправлено: 19.08.15 21:43. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Тогда буду использовать этот вариант в примерах новой сборки

спасибо

PS
Григорий в официале HMG тоже жор будет вот из последнего

  
  BOOL CALLBACK EnumWindowsProc (HWND hWnd, LPARAM lParam)  
  {  
     UNREFERENCED_PARAMETER (lParam);  
     hb_arrayAddForward (pArray, hb_itemPutNLL (NULL, (LONG_PTR) hWnd));  
     return TRUE;  
  }  
 

 Отправлено: 31.08.15 17:42. Заголовок: Делаю следующее: ..

Делаю следующее:
@ 0, 50 LABEL Label_1 VALUE .... СENTERALIGN VCENTERALIGN

Как можно потом снять у этого объекта СENTERALIGN и VCENTERALIGN ?

 Отправлено: 31.08.15 21:03. Заголовок: Andrey пишет: Как м..

Andrey пишет:

цитата:

Как можно потом снять у этого объекта СENTERALIGN и VCENTERALIGN ?

Это можно сделать с помощью функции ChangeStyle(), см. пример ниже

/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
  
 #include "minigui.ch" 
  
 #include "i_winuser.ch" 
  
  
 Function Main 
  
 	DEFINE WINDOW Form_1 ; 
 		AT 0,0 ; 
 		WIDTH 400 ; 
 		HEIGHT 300 ; 
 		TITLE "MiniGUI Label Demo" ; 
 		MAIN ; 
 		FONT "Arial" SIZE 10  
  
 		@ 010,10 LABEL Label_1 VALUE "Label_1" WIDTH 200 TOOLTIP "Label 1" CENTERALIGN VCENTERALIGN backcolor GRAY 
  
 	END WINDOW 
  
 	DeleteStyleCenter( GetControlHandle('Label_1','Form_1') ) 
 	Form_1.Label_1.Value := 'New Value' 
  
 	CENTER WINDOW Form_1 
  
 	ACTIVATE WINDOW Form_1 
  
 Return Nil 
  
  
 Function DeleteStyleCenter( hControl ) 
  
 	ChangeStyle( hControl, , ES_CENTER, .F. ) 
 	ChangeStyle( hControl, , SS_CENTERIMAGE, .F. ) 
  
 return .t. 
 

 Отправлено: 31.08.15 22:20. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Это можно сделать с помощью функции ChangeStyle(), см. пример ниже

Спасибо БОЛЬШОЕ !

 Отправлено: 03.09.15 13:30. Заголовок: Со сменой версии (не..

Со сменой версии (не помню с какой) теперь какая то фигня с окнами.
Создаю основное окно MAIN - не на весь экран. Из него WINDOWTYPE STANDARD. Оно становиться активным и в нем работаю.
И стало теперь ВСЕГДА при вызове MODAL окна - появляться MAIN окно !
Т.е. какой то бутерброд: STANDARD окно,поверх MAIN окно, а потом MODAL окно.
А должно быть просто STANDARD окно, а потом MODAL окно.
Как исправить (убрать) появление MAIN окна поверх STANDARD окна ?

 Отправлено: 03.09.15 14:37. Заголовок: Andrey пишет: Как и..

Andrey пишет:

цитата:

Как исправить (убрать) появление MAIN окна поверх STANDARD окна ?

Есть два пути на выбор:
1) изменить при определении окна класс STANDARD на CHILD;
2) скрывать (а затем снова показывать) главное окно MAIN при вызове MODAL окна.

 Отправлено: 03.09.15 15:11. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

2) скрывать (а затем снова показывать) главное окно MAIN при вызове MODAL окна.

Вот это мне больше нравиться !
А как скрывать ? Делать HIDE или минимизировать окно ?

 Отправлено: 03.09.15 15:29. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как скрывать

из толкового словаря русского языка ( Ожегова )

 
 СКРЫТЬ,  Спрятать, чтобы кто-н. не обнаружил. 
 

т.е. Если минимизировать, то кто -то может обнаружить

 Отправлено: 08.09.15 15:19. Заголовок: Всем привет. Хочу в ..

Всем привет.
Хочу в GETBOX адреса, отвечающим за буквы сделать перекодировку автоматом латинские буквы в русские.
Как это сделать ?

 Отправлено: 08.09.15 17:12. Заголовок: Andrey пишет: Как э..

Andrey пишет:

цитата:

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

самое простое - в процедуре по ON CHANGE делай замену через CharRepl , типа

 
 SetProperty('Form_1', 'GetBox_1', 'Value', CharRepl("qwert", GetProperty('Form_1', GetBox_1', 'Value'), "йцуке" )  
 

 Отправлено: 08.09.15 18:01. Заголовок: Haz пишет: самое пр..

Haz пишет:

цитата:

самое простое - в процедуре по ON CHANGE делай замену через CharRepl , типа

Спасибо !

Как получить список устанновленных SET RELATION по базе ?
Хотя это вопрос не по МиниГуи, но нужно получить список для контроля.

 Отправлено: 08.09.15 18:17. Заголовок: Andrey пишет: Как п..

Andrey пишет:

цитата:

Как получить список устанновленных SET RELATION по базе

начать читать справку, для начала эту
http://harbour.edu.pl/clipper/en/ng2dfcc.html

 Отправлено: 08.09.15 18:33. Заголовок: Haz пишет: начать ч..

Haz пишет:

цитата:

начать читать справку, для начала эту http://harbour.edu.pl/clipper/en/ng2dfcc.html

Классная справка. И не знал что есть такая, более подробная чем xHarbour Language Reference Guide.chm

 Отправлено: 08.09.15 21:51. Заголовок: Andrey пишет: Класс..

Andrey пишет:

цитата:

Классная справка

эта функция из Clipper, ей 25 лет примерно

 Отправлено: 08.09.15 22:37. Заголовок: Haz пишет: эта функ..

Haz пишет:

цитата:

эта функция из Clipper, ей 25 лет примерно

Так я не про функцию пишу, а про справку.
Искать Клиперовскую справку было влом, а здесь всё под рукой, включая Клипер.
Ктож упомнит то всё...

 Отправлено: 30.09.15 17:10. Заголовок: Привет всем. Вопрос..

Привет всем.
Вопрос возник по окнам STANDARD.

На главной форме Form_Main есть кнопка. В этой кнопке:
ACTION { || Form_Main.Minimize,;
Form_MyTable(),;
Form_Main.Restore }

Один раз (первый) срабатывает как положено. На второй раз нет. Почему ?
Т.е. я хочу чтобы окно STANDARD во второй раз открылось на экране, а главная форма минимизировалась.
Скрытый текст

///////////////////////////////////////////////// Function Form_MyTable() .............. IF !_IsWindowActive( cFormName ) DEFINE WINDOW &cFormName ; WINDOWTYPE STANDARD TOPMOST ; ....... ELSE hWndMain := GetFormHandle("Form_Main") IF IsIconic( hWndMain ) // главное окно на экране DoMethod( "Form_Main", "Minimize" ) // минимизировать главное окно ENDIF SwitchToWin( cFormName ) // переключить на тек.форму hWnd := GetFormHandle(cFormName) BringWindowToTop( hWnd ) // поверх всех окон Brw4Focus() // фокус на таблицу ENDIF // !IsWindowActive() RETURN NIL

 Отправлено: 24.10.15 20:53. Заголовок: Привет всем ! Вот во..

Привет всем !
Вот вопрос возник:

 Отправлено: 24.10.15 23:36. Заголовок: Andrey Цветной Таб ..

Andrey
Цветной Таб настроен для размера шрифта до 12 пунктов.
Настройка, оптимизированная для шрифтов большего размера, как на рисунке, будет доступна в следующей сборке (уже поправил исходник)

 Отправлено: 25.10.15 18:25. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

будет доступна в следующей сборке (уже поправил исходник)

Ура ! Спасибо !

 Отправлено: 25.10.15 21:18. Заголовок: Заодно ещё вопрос по..

Заодно ещё вопрос по Tab:

 Отправлено: 15.11.15 13:16. Заголовок: Ошибка в RichEdit

У меня в программе во всех меню пропали иконки. Начал разбираться и вычислил проблему в
использовании RichEdit, который я брал практически один в один из примеров.

Нашел ошибку в папке RichEditEx.
Если вставить оператор SET MENUSTYLE EXTENDED то иконки показываться не будут вообще.
В папке RichEditEx_2 такой ошибки уже нет.
Скорей всего ошибка в модуле l_richeditbox.prg. Там проги на C, поэтому не докопал...
Поменял этот модуль и у меня все заработало.

 Отправлено: 16.11.15 20:24. Заголовок: Почему не компилируе..

Почему не компилируется вот такое:
Form_AYC.Image_0.BackgroundColor := aBColor

Синтаксис объекта IMAGE отличается от других объектов ? И в хелпе нет ничего по этому свойству.
Как тогда мне "передёрнуть" цвет у уже выведенной PNG картинки на форме ?

 Отправлено: 17.11.15 10:05. Заголовок: Andrey , я у себя та..

Andrey , я у себя такие штуки делаю через
SETPROPERTY('Form_AYC','Image_0','BackgroundColor',aBColor)
И всё компилируется отлично :)

 Отправлено: 17.11.15 10:19. Заголовок: Softlog86 пишет: И ..

Softlog86 пишет:

цитата:

И всё компилируется отлично :)

Компилируется да. Спасибо.
Только вот цвет на ходу не передёргивается ...
Наверно еще что-то нужно подшаманить...

 Отправлено: 17.11.15 10:31. Заголовок: Не, не шаманиться.....

Не, не шаманиться....
Делаю так:
ACTION { || aBColor := GetColor(),;
Form_AYC.Label_1.BackColor := aBColor,;
Form_AYC.Label_2.BackColor := aBColor,;
Form_AYC.Label_3.BackColor := aBColor,;
Setproperty(ThisWindow.Name,'Image_0','Visible',.F.),;
Setproperty(ThisWindow.Name,'Image_0','BackgroundColor',aBColor),;
Setproperty(ThisWindow.Name,'Image_0','Visible',.T.),;
RedrawAll() }

Может ещё как то надо ?

 Отправлено: 17.11.15 11:03. Заголовок: Я понял из примера M..

Я понял из примера MiniGUI\SAMPLES\BASIC\IMAGE_2
что объект надо убить... А потом заново нарисовать....
Ну блин, ...

 Отправлено: 18.11.15 12:19. Заголовок: Не убить , а измени..

Не убить , а [выключить] изменить и [включить] :)

 Отправлено: 18.11.15 16:00. Заголовок: Softlog86 пишет: Не..

Softlog86 пишет:

цитата:

Не убить , а [выключить] изменить и [включить] :)

А я что делаю:
Setproperty(ThisWindow.Name,'Image_0','Visible',.F.),;
Setproperty(ThisWindow.Name,'Image_0','BackgroundColor',aBColor),;
Setproperty(ThisWindow.Name,'Image_0','Visible',.T.),;

 Отправлено: 05.12.15 18:58. Заголовок: Как правильно поднят..

Как правильно поднять EXCEL и оставить его на экране в МиниГуи ?

Т.е. я создаю файл EXCEL переключаюсь на него и нужно остаться в EXCEL-е.
А у меня управление возвращается на мою программу и она выходит на первый план.

.....
hWnd := oExcel:hWnd
ShowWindow( hWnd, 3 ) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6
BringWindowToTop( hWnd )

// вот здесь в терминалке я ставил INKEY(0) и было для юзера удобно !
// Что поставить для МиниГуи ?

RETURN NIL

 Отправлено: 12.12.15 17:04. Заголовок: Всем привет ! Непоня..

Всем привет !
Непонятка одна... Читаем доку:
@ <nRow> ,<nCol> GETBOX <ControlName>
.....
[ NOBORDER ]
Классный вид, т.е. привычный юзеру.

А если я хочу включить "бордюр" для уже выведенного объекта на форме ?
SetProperty( ..., ..., "NoBorder" , .F./.T. ) SetProperty( ..., ..., "Border" , .F./.T. ) - не работает...

 Отправлено: 12.12.15 17:34. Заголовок: Andrey пишет: SetPr..

Andrey пишет:

цитата:

SetProperty( ..., ..., "NoBorder" , .F./.T. )

Может включить надо так ?
SetProperty( ..., ..., "NoBorder" , .F. )

 Отправлено: 12.12.15 19:28. Заголовок: Dima пишет: Может в..

Dima пишет:

цитата:

Может включить надо так ? SetProperty( ..., ..., "NoBorder" , .F. )

Дима, так скорее не получится. думаю надо стиль окна Getbox менять.
Во всяком случае проперти GetBoх сделать это не позволяют ( в исходниках нет такой возможности ).

 Отправлено: 12.12.15 19:53. Заголовок: Haz пишет: надо сти..

Haz пишет:

цитата:

надо стиль окна Getbox менять

С этим засада - стиль WS_BORDER не будет устанавливаться после определения контрола (по-видимому, ограничение WinAPI).

Поэтому можно решить "в лоб" эту задачу таким образом (см. ниже)
Скрытый текст

/* * MINIGUI - Harbour Win32 GUI library Demo * */ #include "minigui.ch" Function Main DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 400 ; HEIGHT 300 ; TITLE "MiniGUI GetBox Demo" ; MAIN ; FONT "Arial" SIZE 10 @ 030,30 GETBOX GetBox_1 VALUE "Input value" WIDTH 200 TOOLTIP "GetBox 1" NOBORDER @ 110,30 BUTTONEX BUTTON_1 ; CAPTION "Set Border" ; ACTION SetBorderStyle( 'GetBox_1','Form_1' ); WIDTH 80 ; HEIGHT 28 END WINDOW CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 Return Nil Function SetBorderStyle( Control, Form ) Local v := _GetValue( Control, Form ) _ReleaseControl( Control, Form ) @ 030,30 GETBOX &Control OF &Form VALUE v WIDTH 200 TOOLTIP Control Form_1.BUTTON_1.Enabled := .F. return .t.

 Отправлено: 12.12.15 21:02. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

С этим засада - стиль WS_BORDER не будет устанавливаться после определения контрола (по-видимому, ограничение WinAPI). Поэтому можно решить "в лоб" эту задачу таким образом (см. ниже)

Спасибо БОЛЬШОЕ Григорий !
Эх, опять кучу текста переделывать нужно....

 Отправлено: 13.12.15 14:05. Заголовок: Привет всем ! Можно ..

Привет всем !
Можно ли заранее определить какой ПОСЛЕДНИЙ тип окна уже открыт ?
Т.е. если последнее окно у меня открыто MODAL, то при открытии из него другого типа окна кроме MODAL приводит программу к ошибке и закрытию программы...
Или можно поступить как то по другому в этом случае ?

 Отправлено: 13.12.15 14:23. Заголовок: Andrey пишет: Или м..

Andrey пишет:

цитата:

Или можно поступить как то по другому в этом случае ?

Можно не открывать из модального окна немодальные.
Не понятно зачем самому себе раскладывать грабли ?

ЗЫ в минигуи есть псевдопеременная _HMG_IsModalActive, она устанавливается при активации модального окна. См. исходники

 Отправлено: 13.12.15 14:41. Заголовок: Andrey пишет:Можно л..

Andrey пишет:

цитата:

Можно ли заранее определить какой ПОСЛЕДНИЙ тип окна уже открыт ?

GetWindowType ( FormName ) - даст тип окна
посмотри содержимое:
aEval(_HMG_aFormNames, {|n,i| MsgDebug(i, n, _HMG_aFormType [ i ], _HMG_aFormActive [ i ]) })

 Отправлено: 13.12.15 14:49. Заголовок: Andrey пишет: какой..

Andrey пишет:

цитата:

какой ПОСЛЕДНИЙ тип окна

В данном контексте вопрос звучит странно . т.к если открыто модальное окно - ПОСЛЕДНИМ может быть ТОЛЬКО модальное
"Non Modal Window can't be activated when a Modal window is active."

 Отправлено: 14.12.15 03:04. Заголовок: А можно сделать функ..

Всем доброй ночи !
А можно сделать функцию, которая бы показывалась ВЕЗДЕ при нажатии комбинаций клавиш ?
Попробовал сделать как в примере SAMPLES\Applications\FOCUS_IT, но у меня в других окнах эти клавиши не срабатывают....
Но может я тест простой написал ? ОДНО окно (CHILD и MODAL) без других объектов...

 Отправлено: 17.12.15 16:02. Заголовок: Привет всем ! Как сд..

Привет всем !
Как сделать конструкцию из терминалки nKey := INKEY(nTime) в МиниГуи ?
? LASTKEY(nKey)

Можно так сделать nKey := INKEYGUI(nTime*1000) ?
Или INKEYGUI() ничего не возвращает ?

 Отправлено: 17.12.15 16:26. Заголовок: Andrey пишет: Или I..

Andrey пишет:

цитата:

Или INKEYGUI() ничего не возвращает ?

Посмотри в C:\MiniGUI\Doc\ChangeLog.txt что возвращает

 Отправлено: 21.12.15 13:07. Заголовок: http://f1.s.qip.ru/~..

Почему не всегда показывается картинка на форме ?
У меня показывает, на Win2008 нет...

 Отправлено: 21.12.15 14:10. Заголовок: Andrey пишет: У мен..

Andrey пишет:

цитата:

У меня показывает

На футболке ?
Хоть бы код показал которым выводишь пикчу , по ходу если дергаешь ее из файла
то скорее всего забыл его сложить на сервант 2008.

 Отправлено: 21.12.15 14:41. Заголовок: Вот код: FUNCTION W..

Вот код:

FUNCTION WinOpenDbf( cTitle )
.....
DEFINE WINDOW Form_TrsfDbf ;
.....
WINDOWTYPE MODAL ;
NOSHOW ;

@ 30, (nWidth-nImgWidth)/2 IMAGE Image_1 ;
PICTURE cImgRes ;
WIDTH nImgWidth ;
HEIGHT nImgHeight
....
Form_TrsfDbf.Center
Activate Window Form_TrsfDbf NoWait
ProcessMessages() // ОБЯЗАТЕЛЬНО ! Чтобы форма ОБНОВИЛАСЬ !
Form_TrsfDbf.Hide // скрыть окно

RETURN aRet

Строю скрытое окно, а там дальше проверяю, если нужно показать, то делаю
domethod("Form_TrsfDbf","Show") // показать окно
и включаю бегунки...

Ресурсы все в ехе-нике.
У меня Win8.1 и у других нормально. А на Win2008 сбоит и то не всегда.
Что ещё можно сделать для прорисовки картинки ?

 Отправлено: 23.12.15 16:18. Заголовок: А как подключить рус..

А как подключить русский язык для архиватора zip из библиотеки Минигуи ?
Дело в том что русские имена файлов в архиве становятся кракозябами...

Использую оператор:
COMPRESS aFiles ;
TO cBackupZip ;
BLOCK { | cFile, nPos | ProgressUpdate( nPos, cFile, aSizeFiles, .T. ) } ;
LEVEL 7 ;
OVERWRITE ;
STOREPATH ;
FILEPROGRESS { | nPos, nTotal | ProgressFile( nPos, nTotal, .T. ) } ;
RESULT lSuccess

 Отправлено: 28.12.15 17:04. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как подключить русский язык для архиватора zip из библиотеки Минигуи ?

Самодостаточный пример сюда сложи.
PS
Русский язык указывается заданием "нужной" кодовой страницы.

 Отправлено: 30.12.15 02:12. Заголовок: Dima пишет: Самодос..

Dima пишет:

цитата:

Самодостаточный пример сюда сложи.

Сделал и выложил. В папке \FR3\ файлы с русскими буквами.
Файл с русскими буквами преобразуется в архиве кракозябами...
https://cloud.mail.ru/public/8MDq/upmSqF2xn

 Отправлено: 30.12.15 12:13. Заголовок: Andrey пишет: Файл ..

Andrey пишет:

цитата:

Файл с русскими буквами преобразуется в архиве кракозябами...

Андрей , имена файлов в ZIP-архиве хранятся в кодировке DOS, соответствующей языку локали.
это СТАНДАРТ
для понимания -> http://www.opennet.ru/tips/info/2494.shtml

т.к. в самой библе минизип нет установки нужной OEM кодировки нужно обеспечить выполнение архивирования в кодовой странице "RU866" для русского языка
проблему с именами ВНУТРИ архива это решит, но появится новая - GUI интерфейс работает не в OEM
так что придется еще и кой какой вывод транслировать в ANSI

 Отправлено: 30.12.15 18:00. Заголовок: Haz пишет: т.к. в с..

Haz пишет:

цитата:

т.к. в самой библе минизип нет установки нужной OEM кодировки нужно обеспечить выполнение архивирования в кодовой странице "RU866" для русского языка

А есть функция определения русского языка в строке ?
Хотя это не сложно сделать, но хочется посмотреть, как делают другие...

 Отправлено: 30.12.15 20:31. Заголовок: Andrey пишет: хочет..

Andrey пишет:

цитата:

хочется посмотреть, как делают другие...

Другим тоже хочется посмотреть как делают другие , тем более

цитата:

это не сложно сделать

 Отправлено: 30.12.15 22:37. Заголовок: Haz пишет: Другим т..

Haz пишет:

цитата:

Другим тоже хочется посмотреть как делают другие , тем более

Вот мой вариант:
FUNCTION IsRusChar(cStr)
LOCAL lRet := .F., nI, cBukva

FOR nI := 1 TO LEN(cStr)
cBukva := SUBSTR(cStr,nI,1)
IF ASC(cBukva) > 127
lRet := .T.
EXIT
ENDIF
NEXT

RETURN lRet

 Отправлено: 31.12.15 14:15. Заголовок: Haz пишет: Андрей ,..

Haz пишет:

цитата:

Андрей , имена файлов в ZIP-архиве хранятся в кодировке DOS, соответствующей языку локали. это СТАНДАРТ

Спасибо БОЛЬШОЕ за разъяснения !

 Отправлено: 31.12.15 14:59. Заголовок: Andrey пишет: Вот м..

Andrey пишет:

цитата:

Вот мой вариант:

тоже самое ( но нужен hbxpp )

 
 Func test( str) 
 local c 
 for each c in str 
     if asc(c) < 127 
        exit 
     end 
 end 
 return asc(c) < 127 
 

 Отправлено: 31.12.15 15:16. Заголовок: Haz пишет: тоже сам..

Haz пишет:

цитата:

тоже самое ( но нужен hbxpp )

Да похоже что не нужен уже , проверил работает и без него.
Я про строку for each c in str

 Отправлено: 02.01.16 20:56. Заголовок: А как при выводе в E..

А как при выводе в EDITBOX объекта Edit_Memo - показывать последнюю строку переменной ?
Т.е. я всегда добавляю в переменную и хочу в окне EDITBOX видеть последнюю строку.
cText := Form_Main.Edit_Memo.Value + CRLF
....
cText += " .... -> FMEMO" + CRLF
Form_Main.Edit_Memo.Value := cText
Form_Main.Edit_Memo.Setfocus

Исходник - https://cloud.mail.ru/public/Cp97/yM2KA9ba3

 Отправлено: 02.01.16 21:48. Заголовок: Andrey пишет: как п..

Andrey пишет:

цитата:

как при выводе в EDITBOX объекта Edit_Memo - показывать последнюю строку переменной ?

Посмотри пример ниже
Скрытый текст

/* * MINIGUI - Harbour Win32 GUI library Demo * */ #include "minigui.ch" #define WM_VSCROLL 277 // 0x0115 #define SB_PAGEDOWN 3 #define SB_PAGEUP 2 #define SB_BOTTOM 7 Function Main local v := "" for i:=1 to 100 v += strzero(i,3) + CRLF next DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 640 HEIGHT 480 ; TITLE 'Harbour MiniGUI Demo' ; ICON 'DEMO.ICO' ; MAIN ; FONT 'Arial' SIZE 10 DEFINE STATUSBAR STATUSITEM 'HMG Power Ready!' END STATUSBAR @ 30,10 EDITBOX Edit_1 ; WIDTH 410 ; HEIGHT 140 ; VALUE v ; TOOLTIP 'EditBox' ; NOHSCROLL // NOVSCROLL DEFINE BUTTON A ROW 210 COL 10 CAPTION 'PageDown' ACTION ( SendMessage ( GetControlHandle('Edit_1', 'Form_1') , WM_VSCROLL , SB_PAGEDOWN , 0 ) , Form_1.Edit_1.SetFocus ) END BUTTON DEFINE BUTTON B ROW 250 COL 10 CAPTION 'PageUp' ACTION ( SendMessage ( GetControlHandle('Edit_1', 'Form_1') , WM_VSCROLL , SB_PAGEUP , 0 ) , Form_1.Edit_1.SetFocus ) END BUTTON END WINDOW SendMessage ( GetControlHandle('Edit_1', 'Form_1') , WM_VSCROLL , SB_BOTTOM , 0 ) Form_1.Center() Form_1.Activate() Return Nil