Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение) » тема закрыта
	перенос

Автор

Сообщение

gfilatov
модератор
Пост N: 699 Зарегистрирован: 25.05.05

Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение)

Начало темы находится здесь, а теперь

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №48, которая выйдет в конце недели.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс HEADERIMAGE для Grid и Browse;
- свойство Address в Hyperlink может теперь открывать папку или файл на диске;
- добавлен NOTABSTOP класс для Browse;
- поддержка пользовательских компонентов (заимствована из оффициального релиза);
- расширения и исправления в библиотеках TsBrowse и PropGrid;
- обновлены сборки Харбор и HMGS-IDE;
- новые и обновленные старые примеры (как обычно

Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]

Dima
администратор
Пост N: 5932 Зарегистрирован: 17.05.05

Отправлено: 30.07.16 12:17. Заголовок: Haz пишет: В этом З..

Haz пишет:

цитата:

В этом ЗЫ у минигуи наблюдаются проблемы с передачей фокуса

А дедько Линарес в FW как то решил эту проблему однако

Но я не хочу FW , мне нравится Минигуи !

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

Отправлено: 30.07.16 12:28. Заголовок: Dima пишет: К приме..

Dima пишет:

цитата:

К примеру вот на этом примере глючит C:\MiniGUI\SAMPLES\Advanced\Tsb_LoadFields\

ЗЫ
Вынь 7

А у меня не заглючило, Win7 тоже

Dima
администратор
Пост N: 5933 Зарегистрирован: 17.05.05

Отправлено: 30.07.16 12:35. Заголовок: Петр Пару раз клацн..

Петр
Пару раз клацнул наверное.

У меня получилось на 4-ом разе.
Глючат исключительно приложения на минигуи со всем остальным все идеально.

Еще одно ЗЫ :)
Mingw у меня в приложениях (так же глючит)
А примерчик собран в BCC55

Dima
администратор
Пост N: 5934 Зарегистрирован: 17.05.05

Отправлено: 30.07.16 12:50. Заголовок: Петр А вот кино ht..

Петр
А вот кино
Скрытый текст

https://cloud.mail.ru/public/Bfu1/JCCd19jhg

В примере происходит тоже , кино снимать не стал.

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

Отправлено: 30.07.16 12:59. Заголовок: Dima пишет: Пару ра..

Dima пишет:

цитата:

Пару раз клацнул наверное.
У меня получилось на 4-ом разе.

Да нет, вроде. Клацал пока не надоело.
MiniGUI свежий, компилятор BCC55, Win7 со всеми доступными обновлениями, AVG.

Dima
администратор
Пост N: 5935 Зарегистрирован: 17.05.05

Отправлено: 30.07.16 13:26. Заголовок: Петр пишет: MiniGUI..

Петр пишет:

цитата:

MiniGUI свежий

+1
Петр пишет:

цитата:

компилятор BCC55

+1
Петр пишет:

цитата:

Win7 со всеми доступными обновлениями

на момент установки 15.05.2015 все стояло самое свежее + KB
Петр пишет:

цитата:

AVG

Drweb

ХЗ что делать , не за себя душа болит а за юзеров а у них только XP и 7 , начнут вот так вот
клацать и начнутся вопросы а ответить то и не чего

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

Отправлено: 30.07.16 13:42. Заголовок: Понятно, что собака ..

Понятно, что собака зарыта здесь: FUNCTION Events ( hWnd, nMsg, wParam, lParam )

Понятно, что код там (и не только там) нужно оптимизировать в любом случае, даже если бы не было артефактов.
Посмотрю, что можно сделать и отпишусь. Но нужно время, и отдельная тема, например "Обработка событий в MiniGUI", что бы ветку не зас..ть окончательно, причем из лучших побуждений.

Dima
администратор
Пост N: 5936 Зарегистрирован: 17.05.05

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

Петр пишет:

цитата:

Посмотрю, что можно сделать и отпишусь. Но нужно время, и отдельная тема, например "Обработка событий в MiniGUI"

Петр я готов тестить в любое время суток если что.

SergKis
постоянный участник
Пост N: 1114 Зарегистрирован: 17.02.12

Отправлено: 01.08.16 22:26. Заголовок: Поковырял команды ОО..

Поковырял команды ООП This... :
i_this.ch Скрытый текст

 
 ... 
 // WINDOWS (THISWINDOW) 
  
 #xtranslate ThisWindow . <p:Title,NotifyIcon,NotifyTooltip,FocusedControl,BackColor,Name,Row,Col,Width,Height,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost> => GetProperty ( _HMG_THISFORMNAME , <"p"> ) 
 #xtranslate ThisWindow . <p:Title,NotifyIcon,NotifyTooltip,Cursor,BackColor,Row,Col,Width,Height,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost> := <arg> => SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> ) 
 #xtranslate ThisWindow . <p:Activate,Center,Release,Maximize,Minimize,Restore,Show,Hide,SetFocus> [ () ] => DoMethod ( _HMG_THISFORMNAME , <"p"> ) 
 #xtranslate ThisWindow . <p:Handle> => GetFormHandle ( _HMG_THISFORMNAME ) 
 #xtranslate ThisWindow . <p:Index>  => GetFormIndex  ( _HMG_THISFORMNAME )  
 #xtranslate ThisWindow . <p:ClientWidth>  => GetCliWidth ( GetFormHandle ( _HMG_THISFORMNAME ) ) 
 #xtranslate ThisWindow . <p:ClientHeight> => GetCliHeight( GetFormHandle ( _HMG_THISFORMNAME ) )  
 ... 
 // COMMON ( REQUIRES TYPE CHECK ) 
  
 #xtranslate This . <p:Name,Row,Col,Width,Height,BackColor> => iif ( _HMG_THISType == 'C' , GetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> ) , GetProperty ( _HMG_THISFORMNAME , <"p"> ) ) 
 #xtranslate This . <p:Row,Col,Width,Height,BackColor> := <arg> => iif ( _HMG_THISType == 'C' , SetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <arg> ) , SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> ) ) 
 #xtranslate This . <p:Show,Hide,SetFocus> [ () ] => iif ( _HMG_THISType == 'C' , DoMethod ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> ) , DoMethod ( _HMG_THISFORMNAME , <"p"> ) ) 
 #xtranslate This . <p:Handle> => iif ( _HMG_THISType == 'C' , GetControlHandle ( _HMG_THISCONTROLNAME , _HMG_THISFORMNAME ) , GetFormHandle ( _HMG_THISFORMNAME ) ) 
 #xtranslate This . <p:Index>  => iif ( _HMG_THISType == 'C' , GetControlIndex  ( _HMG_THISCONTROLNAME , _HMG_THISFORMNAME ) , GetFormIndex  ( _HMG_THISFORMNAME ) )   
 #xtranslate This . <p:ClientWidth>  => GetCliWidth ( iif ( _HMG_THISType == 'C' , GetControlHandle ( _HMG_THISCONTROLNAME , _HMG_THISFORMNAME ) , GetFormHandle ( _HMG_THISFORMNAME ) ) ) 
 #xtranslate This . <p:ClientHeight> => GetCliHeight( iif ( _HMG_THISType == 'C' , GetControlHandle ( _HMG_THISCONTROLNAME , _HMG_THISFORMNAME ) , GetFormHandle ( _HMG_THISFORMNAME ) ) ) 
 #xtranslate This . <c> . <p:ClientWidth>  => GetCliWidth ( GetControlHandle ( <"c"> , _HMG_THISFORMNAME ) ) 
 #xtranslate This . <c> . <p:ClientHeight> => GetCliHeight( GetControlHandle ( <"c"> , _HMG_THISFORMNAME ) )  
 #xtranslate This . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,Icon,ToolTip,FontName,FontSize,FontBold,FontUnderline,FontItalic,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo,Tabstop> => GetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> )  
 #xtranslate This . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,Icon,ToolTip,FontName,FontSize,FontBold,FontUnderline,FontItalic,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo,Tabstop> := <n> => SetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> , <n> )  
 #xtranslate This . <c> . <p:ListWidth,Position,CaretPos,ForeColor,AllowAppend,AllowDelete,AllowEdit,InputItems,DisplayItems,FormatString,Indent,Linecolor,ItemHeight,AutoFont,RichValue> => GetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> )  
 #xtranslate This . <c> . <p:ListWidth,Position,CaretPos,ForeColor,AllowAppend,AllowDelete,AllowEdit,Blink,InputItems,DisplayItems,FormatString,Indent,Linecolor,ItemHeight,AutoFont,RichValue> := <n> => SetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> , <n> )  
 #xtranslate This . <c> . <p:Caption,Header,Image,Item,Icon,ToolTip,Width,ColumnWidth,Enabled,RichValue,HeaderImage,CheckboxItem> (<arg>) => GetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> , <arg> )  
 #xtranslate This . <c> . <p:Velocity> := <n> => SetProperty ( _HMG_THISFORMNAME, <"c"> , "Velocity" , <n> )  
 #xtranslate This . <c> . <p:Caption,Header,Image,Item,Icon,ToolTip,Width,ColumnWidth,Enabled,RichValue,CheckboxItem> (<arg>) := <n> => SetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> , <arg> , <n> )  
 #xtranslate This . <c> . <p:Cell> (<arg1> , <arg2>) => GetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> , <arg1> , <arg2> )  
 #xtranslate This . <c> . <p:Cell> (<arg1> , <arg2>) := <n> => SetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> , <arg1> , <arg2> , <n> )  
 #xtranslate This . <c> . <p:HeaderImage> (<arg1>) := <arg2> => SetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> , <arg1> , <arg2> )  
 #xtranslate This . <c> . <p:HeaderImage> (<arg1>) := {<arg2> , <arg3>} => SetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> , <arg1> , <arg2> , <arg3> )  
 #xtranslate This . <c> . <p:EnableUpdate,DisableUpdate,Refresh,SetFocus,DeleteAllItems,Release,Show,Save,Hide,Play,Stop,Close,Pause,Eject,OpenDialog,Resume,Action,OnClick,OnGotFocus,OnLostFocus,OnChange,OnDblClick,ColumnsAutoFit,ColumnsAutoFitH> \[()\] => Domethod ( _HMG_THISFORMNAME, <"c"> , <"p"> )  
 #xtranslate This . <c> . <p:AddItem,DeleteItem,Open,DeletePage,DeleteColumn,Expand,Collapse,Seek,ColumnAutoFit,ColumnAutoFitH> (<a>) => Domethod ( _HMG_THISFORMNAME, <"c"> , <"p"> , <a> )  
 #xtranslate This . <c> . <p:AddItem,AddPage> (<a1> , <a2>) => Domethod ( _HMG_THISFORMNAME, <"c"> , <"p"> , <a1> , <a2> )  
 #xtranslate This . <c> . <p:AddItem,AddPage> (<a1> , <a2> , <a3> ) => Domethod ( _HMG_THISFORMNAME, <"c"> , <"p"> , <a1> , <a2> , <a3> )  
 #xtranslate This . <c> . <p:AddItem,AddColumn,AddControl,AddPage> (<a1> , <a2> , <a3> , <a4> ) => Domethod ( _HMG_THISFORMNAME, <"c"> , <"p"> , <a1> , <a2> , <a3> , <a4> )  
 #xtranslate This . <c> . <p:ReadOnly,DisableEdit,Length> => GetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> )  
 #xtranslate This . <c> . <p:ReadOnly,DisableEdit,Speed,Volume,Zoom,Action,OnClick,OnGotFocus,OnLostFocus,OnChange,OnDblClick> := <n> => SetProperty ( _HMG_THISFORMNAME, <"c"> , <"p"> , <n> )  
 #xtranslate This . <x> . <c> . <p:Caption,Enabled,Value> => GetProperty ( _HMG_THISFORMNAME , <"x"> , <"c"> , <"p"> )  
 #xtranslate This . <x> . <c> . <p:Caption,Enabled,Value> := <n> => SetProperty ( _HMG_THISFORMNAME , <"x"> , <"c"> , <"p"> , <n> )  
 #xtranslate This . <x> (<k>) . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo> => GetProperty ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> )  
 #xtranslate This . <x> (<k>) . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo> := <n> => SetProperty ( _HMG_THISFORMNAME , <"x"> , <k> , <"c"> , <"p"> , <n> )  
 #xtranslate This . <x> (<k>) . <c> . <p:ListWidth,Position,CaretPos,ForeColor,RichValue> => GetProperty ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> )  
 #xtranslate This . <x> (<k>) . <c> . <p:ListWidth,Position,CaretPos,ForeColor,RichValue> := <n> => SetProperty ( _HMG_THISFORMNAME , <"x"> , <k> , <"c"> , <"p"> , <n> )  
 #xtranslate This . <x> (<k>) . <c> . <p:Caption,Header,Item,Icon,RichValue,CheckboxItem> (<arg>) => GetProperty ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> , <arg> )  
 #xtranslate This . <x> (<k>) . <c> . <p:Caption,Header,Item,Icon,RichValue,CheckboxItem> (<arg>) := <n> => SetProperty ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> , <arg> , <n> )  
 #xtranslate This . <x> (<k>) . <c> . <p:Refresh,SetFocus,DeleteAllItems,Release,Show,Save,Hide,Play,Stop,Close,Pause,Eject,OpenDialog,Resume,Action,OnClick,OnGotFocus,OnLostFocus,OnChange,OnDblClick> \[()\] => Domethod ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> )  
 #xtranslate This . <x> (<k>) . <c> . <p:AddItem,DeleteItem,Open,DeletePage,DeleteColumn,Expand,Collapse,Seek> (<a>) => Domethod ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> , <a> )  
 #xtranslate This . <x> (<k>) . <c> . <p:AddItem,AddPage> (<a1> , <a2>) => Domethod ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> , <a1> , <a2> )  
 #xtranslate This . <x> (<k>) . <c> . <p:AddItem,AddPage> (<a1> , <a2> , <a3> ) => Domethod ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> , <a1> , <a2> , <a3> )  
 #xtranslate This . <x> (<k>) . <c> . <p:AddItem,AddColumn,AddControl,AddPage> (<a1> , <a2> , <a3> , <a4> ) => Domethod ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> , <a1> , <a2> , <a3> , <a4> )  
 #xtranslate This . <x> (<k>) . <c> . <p:Length> => GetProperty ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> )  
 #xtranslate This . <x> (<k>) . <c> . <p:ReadOnly,DisableEdit,Speed,Volume,Zoom> := <n> => SetProperty ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> , <n> )  
 #xtranslate This . <x> (<k>) . <c> . <p:Cell> (<arg1> , <arg2>) => GetProperty ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> , <arg1> , <arg2> )  
 #xtranslate This . <x> (<k>) . <c> . <p:Cell> (<arg1> , <arg2>) := <n> => SetProperty ( _HMG_THISFORMNAME, <"x"> , <k> , <"c"> , <"p"> , <arg1> , <arg2> , <n> )  
 #xtranslate This . SplitBox  . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor,AllowEdit,Object,InputItems,DisplayItems,Cargo> => GetProperty ( _HMG_THISFORMNAME, "SplitBox" , <"c"> , <"p"> )  
 #xtranslate This . SplitBox  . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor,AllowEdit,Blink,InputItems,DisplayItems,Cargo> := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox" , <"c"> , <"p"> , <n> )  
 #xtranslate This . SplitBox  . <c> . <p:AllowAppend,AllowDelete,DisableEdit,ReadOnly> => GetProperty ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> )  
 #xtranslate This . SplitBox  . <c> . <p:AllowAppend,AllowDelete,DisableEdit,ReadOnly> := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <n> )  
 #xtranslate This . SplitBox  . <c> . <p:Caption,Header,Item,Icon,HeaderImages,CheckboxItem> (<arg>) => GetProperty ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <arg> )  
 #xtranslate This . SplitBox  . <c> . <p:Caption,Header,Item,Icon,HeaderImages,CheckboxItem> (<arg>) := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <arg> , <n> )  
 #xtranslate This . SplitBox  . <c> . <p:Cell> (<arg1> , <arg2>) => GetProperty ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <arg1> , <arg2> )  
 #xtranslate This . SplitBox  . <c> . <p:Cell> (<arg1> , <arg2>) := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <arg1> , <arg2> , <n> )  
 #xtranslate This . SplitBox  . <c> . <p:Refresh,SetFocus,DeleteAllItems,Release,Show,Save,Hide,Play,Stop,Close,Pause,Eject,OpenDialog,Resume,Action,OnClick,OnGotFocus,OnLostFocus,OnChange,OnDblClick> \[()\] => Domethod ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> )  
 #xtranslate This . SplitBox  . <c> . <p:AddItem,DeleteItem,Open,DeletePage,DeleteColumn,Expand,Collapse,Seek> (<a>) => Domethod ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <a> )  
 #xtranslate This . SplitBox  . <c> . <p:AddItem,AddPage> (<a1> , <a2>) => Domethod ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <a1> , <a2> )  
 #xtranslate This . SplitBox  . <c> . <p:AddItem,AddPage> (<a1> , <a2> , <a3> ) => Domethod ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <a1> , <a2> , <a3> )  
 #xtranslate This . SplitBox  . <c> . <p:AddItem,AddColumn,AddControl,AddPage> (<a1> , <a2> , <a3> , <a4> ) => Domethod ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <a1> , <a2> , <a3> , <a4> )  
 #xtranslate This . SplitBox  . <c> . <p:Name,Length> => GetProperty ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> )  
 #xtranslate This . SplitBox  . <c> . <p:ReadOnly,DisableEdit,Speed,Volume,Zoom> := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox", <"c"> , <"p"> , <n> )  
 #xtranslate This . SplitBox  . <x> . <c> . <p:Caption,Enabled,Value> => GetProperty ( _HMG_THISFORMNAME , "SplitBox" , <"x"> , <"c"> , <"p"> )  
 #xtranslate This . SplitBox  . <x> . <c> . <p:Caption,Enabled,Value> := <n> => SetProperty ( _HMG_THISFORMNAME , "SplitBox", <"x"> , <"c"> , <"p"> , <n> )  
  
 // EVENT PROCEDURES 
 ...

Для команд выделенных цветом использовал доп. функции ( назвал так, что бы не пересечься с похожими )

 
 FUNCTION GetCliWidth ( nHandle ) 
    LOCAL aRect := {0,0,0,0} 
    GetClientRect( nHandle, aRect ) 
    RETURN ( aRect[3] - aRect[1] ) 
  
 FUNCTION GetCliHeight( nHandle ) 
    LOCAL aRect := {0,0,0,0} 
    GetClientRect( nHandle, aRect ) 
    RETURN ( aRect[4] - aRect[2] )

Если ф-ии лишнии, то надо убрать выделенные цветом команды. Использовать как обычно
This.Width , This.Height , This.Handle , This.Index
This.Btn.Width, This.Btn.Height, This.Btn.Handle , This.Btn.Index
This.ClientWidth, This.ClientHeight
This.Btn.ClientWidth, This.Btn.ClientHeight

Все варианты написания не проверял (может совместными усилиями ?)

gfilatov2002
moderator
Пост N: 969 Зарегистрирован: 11.02.10

Отправлено: 02.08.16 11:31. Заголовок: SergKis пишет: Для ..

SergKis пишет:

цитата:

Для команд выделенных цветом использовал доп. функции

Благодарю за дополнение команды This

P.S. Заменил доп. функции на одну уже существующую в коде библиотеки функцию _GetClientRect()

SergKis
постоянный участник
Пост N: 1123 Зарегистрирован: 17.02.12

Отправлено: 02.08.16 12:53. Заголовок: gfilatov2002 Еще к ..

gfilatov2002
Еще к командам ООП Скрытый текст

 
 i_window.ch  
 ======== 
 ... 
 #ifdef _SOOP_CONTAINERS_ 
 ... 
    #xcommand DECLARE WINDOW <w> ; 
    =>;  
    #xtranslate <w>   . \<p:Handle\> => GetFormHandle ( <"w"> ) ;;   
    #xtranslate <w>   . \<p:Index\>  => GetFormIndex  ( <"w"> ) ;;   
    #xtranslate <w>   . \<p:Name,Title,Height,Width,Col,Row,NotifyIcon,NotifyToolTip,FocusedControl,BackColor,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost,HelpButton\> => GetProperty ( <"w">, \<"p"\> ) ;; 
 ... 
    #xtranslate <w>   . \<p:SaveAs\> (\<a\>) => DoMethod ( <"w"> , "SaveAs", \<a\> ) ;;  
    #xtranslate <w>   . \<p:ClientHeight\> => GetCliHeight( GetFormHandle ( <"w"> ) ) ;;  
    #xtranslate <w>   . \<p:ClientWidth\>  => GetCliWidth ( GetFormHandle ( <"w"> ) ) ;;  
    #xtranslate <w>   . \<c\> . \<p:SaveAs\> (\<a\>) => DoMethod ( <"w"> , \<"c"\> , "SaveAs", \<a\> ) ;;  
    #xtranslate <w>   . \<c\> . \<p:Handle\>       => GetControlHandle ( \<"c"\> , <"w"> ) ;;   
    #xtranslate <w>   . \<c\> . \<p:Index\>        => GetControlIndex  ( \<"c"\> , <"w"> ) ;;   
    #xtranslate <w>   . \<c\> . \<p:ClientHeight\> => GetCliHeight( GetControlHandle ( \<"c"\> , <"w"> ) ) ;;   
    #xtranslate <w>   . \<c\> . \<p:ClientWidth\>  => GetCliWidth ( GetControlHandle ( \<"c"\> , <"w"> ) ) ;;   
    #xtranslate <w>   . \<c\> . \<p:Value,Name,Address,BackColor,FontColor,Picture,Icon,ToolTip,FontName,FontSize,FontBold,FontUnderline,FontItalic,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo,Tabstop\> => GetProperty ( <"w">, \<"c"\> , \<"p"\> ) ;; 
 ... 
 #else 
  
    #xcommand DECLARE WINDOW <w> ; 
    =>;  
    #xtranslate <w>   . \<p:Handle\> => GetFormHandle ( <"w"> ) ;;   
    #xtranslate <w>   . \<p:Index\>  => GetFormIndex  ( <"w"> ) ;;   
    #xtranslate <w>   . \<p:Name,Title,Height,Width,Col,Row,NotifyIcon,NotifyToolTip,FocusedControl,BackColor,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost,HelpButton\> => GetProperty ( <"w">, \<"p"\> ) ;; 
 ... 
    #xtranslate <w>   . \<p:SaveAs\> (\<a\>) => DoMethod ( <"w"> , "SaveAs", \<a\> ) ;;  
    #xtranslate <w>   . \<p:ClientHeight\> => GetCliHeight( GetFormHandle ( <"w"> ) ) ;;  
    #xtranslate <w>   . \<p:ClientWidth\>  => GetCliWidth ( GetFormHandle ( <"w"> ) ) ;;   
    #xtranslate <w>   . \<c\> . \<p:SaveAs\> (\<a\>) => DoMethod ( <"w"> , \<"c"\> , "SaveAs", \<a\> ) ;;  
    #xtranslate <w>   . \<c\> . \<p:Handle\>       => GetControlHandle ( \<"c"\> , <"w"> ) ;;   
    #xtranslate <w>   . \<c\> . \<p:Index\>        => GetControlIndex  ( \<"c"\> , <"w"> ) ;;   
    #xtranslate <w>   . \<c\> . \<p:ClientHeight\> => GetCliHeight( GetControlHandle ( \<"c"\> , <"w"> ) ) ;;   
    #xtranslate <w>   . \<c\> . \<p:ClientWidth\>  => GetCliWidth ( GetControlHandle ( \<"c"\> , <"w"> ) ) ;;   
    #xtranslate <w>   . \<c\> . \<p:Value,Name,Address,BackColor,FontColor,Picture,Icon,ToolTip,FontName,FontSize,FontBold,FontUnderline,FontItalic,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo,Tabstop\> => GetProperty ( <"w">, \<"c"\> , \<"p"\> ) ;; 
 ... 
  
 #endif 
 ... 
  
 i_pseudofunc.ch 
 ========== 
 ... 
 #translate Application.Height := <arg> => MoveWindow ( Application.Handle , Application.Col , Application.Row , Application.Width , <arg> , .t. )  
 #translate Application.ClientWidth  => GetCliWidth ( Application.Handle )   
 #translate Application.ClientHeight => GetCliHeight( Application.Handle )   
 #translate Application.Title => GetWindowText ( Application.Handle ) 
 ... 
 Лень все время писать Application..... сделал себе вариант App....  
 #translate App.ExeName             => GetExeFileName() 
 #translate App.Handle              => _HMG_MainHandle 
 #translate App.FormName            => _HMG_aFormNames \[ _HMG_MainIndex \] 
 #translate App.Col                 => GetWindowCol ( App.Handle ) 
 #translate App.Col := <arg>        => MoveWindow ( App.Handle , <arg> , App.Row , App.Width , App.Height , .t. ) 
 #translate App.Row                 => GetWindowRow ( App.Handle ) 
 #translate App.Row := <arg>        => MoveWindow ( App.Handle , App.Col , <arg> , App.Width , App.Height , .t. ) 
 #translate App.Width               => GetWindowWidth ( App.Handle ) 
 #translate App.Width := <arg>      => MoveWindow ( App.Handle , App.Col , App.Row , <arg> , App.Height , .t. ) 
 #translate App.ClientWidth         => GetCliWidth  ( App.Handle )   
 #translate App.ClientHeight        => GetCliHeight ( App.Handle )   
 #translate App.Height              => GetWindowHeight ( App.Handle ) 
 #translate App.Height := <arg>     => MoveWindow ( App.Handle , App.Col , App.Row , App.Width , <arg> , .t. ) 
 #translate App.Title               => GetWindowText ( App.Handle ) 
 #translate App.Title := <arg>      => SetWindowText ( App.Handle, <arg> ) 
 #translate App.Cursor := <arg>     => SetWindowCursor ( App.Handle, <arg> ) 
 #translate App.BackColor           => _HMG_aFormBkColor \[ _HMG_MainIndex \] 
 #translate App.BackColor := <arg>  => _SetWindowBackColor ( App.Handle, <arg> ) 
 #translate App.Topmost             => GetProperty ( App.FormName, 'Topmost' ) 
 #translate App.Topmost := <arg>    => _ChangeWindowTopmostStyle ( App.Handle, <arg> ) 
 #translate App.HelpButton          => GetProperty ( App.FormName, 'HelpButton' ) 
 #translate App.HelpButton := <arg> => _ChangeWindowHelpButtonStyle ( App.FormName, <arg> )  
 ...

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

Отправлено: 02.08.16 13:48. Заголовок: SergKis пишет: Испо..

SergKis пишет:

цитата:

Использовать как обычно
This.Width , This.Height , This.Handle , This.Index

Т.е. вместо
nFWidth := GetClientWidth( GetFormHandle( _HMG_ThisFormName ) )
nFHeight := GetClientHeight( GetFormHandle( _HMG_ThisFormName ) )
можно будет писать так:
nFWidth := This.Width
nFHeight := This.Height

Dima
администратор
Пост N: 5938 Зарегистрирован: 17.05.05

Отправлено: 02.08.16 13:58. Заголовок: Andrey пишет: This...

Andrey пишет:

цитата:

This.Width

This.ClientWidth

gfilatov2002
moderator
Пост N: 970 Зарегистрирован: 11.02.10

Отправлено: 02.08.16 14:41. Заголовок: SergKis пишет: Еще ..

SergKis пишет:

цитата:

Еще к командам ООП

Благодарю

Добавил эти модификации также...

SergKis
постоянный участник
Пост N: 1124 Зарегистрирован: 17.02.12

Отправлено: 02.08.16 23:07. Заголовок: Andrey пишет можно б..

Andrey пишет

цитата:

можно будет писать так:
nFWidth := This.Width
nFHeight := This.Height

пример использования

 
  DEFINE WINDOW wndCalc       AT 0,0   ; 
 ... 
     nWidth := This.ClientWidth - x * 2 
 ... 
     @ y, x LABEL Itog VALUE "" ; 
 ... 
     y += This.Itog.Height + n 
 ... 
         For i := 1 To len(a) 
             If ! empty(a[ i ]) 
                j := "Btn"+a[ i ][1] 
                DEFINE BUTTONEX &j 
 ... 
                ACTION     PostMsg() 
                END BUTTONEX 
                This.&(j).Cargo := a[ i ][2] 
             EndIf 
 ... 
     nW := This.ClientWidth - int(n * 0.6) 
     nH := y  
  
     DRAW RECTANGLE IN WINDOW &( This.Name ) AT nY, nX  TO nH, nW ; 
          PENCOLOR BLUE  
  
  END WINDOW 
 ... 
  
 STATIC FUNCTION PostMsg( nKey, lFocus ) 
 LOCAL c, j := This.Name 
  
  Default lFocus := .T. 
  
  If j != ThisWindow.Name   // это контрол не окно 
     c := This.&(j).Cargo 
     If     c == "."        ; nKey := 190 
     Elseif c == "C"        ; nKey := 32 
     ElseIf c $ "0123456789"; nKey := 48 + val(c) 
     EndIf 
  EndIf 
  If ! empty(nKey) 
     PostMessage( ThisWindow.Handle, WM_KEYDOWN, nKey, 0) 
  EndIf 
  If lFocus 
     This.Itog.SetFocus 
  EndIf 
  
 RETURN Nil

SergKis
постоянный участник
Пост N: 1125 Зарегистрирован: 17.02.12

Отправлено: 03.08.16 09:20. Заголовок: gfilatov2002 Еще не..

gfilatov2002
Еще немного ООП строк Скрытый текст

 
 i_this.ch 
 ========= 
 ... 
 // WINDOWS (THISWINDOW) 
  
 #xtranslate ThisWindow . <p:Type>         => GetWindowType  ( _HMG_THISFORMNAME )  
 #xtranslate ThisWindow . <p:Handle>       => GetFormHandle  ( _HMG_THISFORMNAME ) 
 ... 
 // COMMON ( REQUIRES TYPE CHECK ) 
 ... 
 #xtranslate This . <p:Type>   => iif ( _HMG_THISType == 'C' , GetControlType   ( _HMG_THISCONTROLNAME , _HMG_THISFORMNAME ) , GetWindowType ( _HMG_THISFORMNAME ) )  
 #xtranslate This . <p:Handle> => iif ( _HMG_THISType == 'C' , GetControlHandle ( _HMG_THISCONTROLNAME , _HMG_THISFORMNAME ) , GetFormHandle ( _HMG_THISFORMNAME ) ) 
 ... 
 #xtranslate This . <c> . <p:Type>         => GetControlType   ( _HMG_THISCONTROLNAME , _HMG_THISFORMNAME )  
 #xtranslate This . <c> . <p:Handle>       => GetControlHandle ( <"c"> , _HMG_THISFORMNAME )  
 ... 
  
 i_window.ch  
 =========== 
 #ifdef _SOOP_CONTAINERS_ 
 ... 
    #xcommand DECLARE WINDOW <w> ; 
    =>; 
    #xtranslate <w>   . \<p:Type\>   => GetWindowType ( <"w"> ) ;;   
    #xtranslate <w>   . \<p:Handle\> => GetFormHandle ( <"w"> ) ;;   
 ... 
    #xtranslate <w>   . \<c\> . \<p:Type\>         => GetControlType   ( \<"c"\> , <"w"> ) ;;  
    #xtranslate <w>   . \<c\> . \<p:Handle\>       => GetControlHandle ( \<"c"\> , <"w"> ) ;;   
 ... 
 #else 
  
    #xcommand DECLARE WINDOW <w> ; 
    =>; 
    #xtranslate <w>   . \<p:Type\>   => GetWindowType ( <"w"> ) ;;   
    #xtranslate <w>   . \<p:Handle\> => GetFormHandle ( <"w"> ) ;;   
 ... 
    #xtranslate <w>   . \<c\> . \<p:Type\>           => GetControlType   ( \<"c"\> , <"w"> ) ;;   
    #xtranslate <w>   . \<c\> . \<p:Handle\>         => GetControlHandle ( \<"c"\> , <"w"> ) ;; 
 ... 
  
 #endif 
 ... 
  
 i_pseudofunc.ch 
 =============== 
 ... 
 //////////////////////////////////////////// 
 // System pseudo-commands 
 //////////////////////////////////////////// 
  
 #translate Desktop.Col    => GetDesktopRealLeft() 
 #translate Desktop.Row    => GetDesktopRealTop() 
 #translate Desktop.Width  => GetDesktopRealWidth() 
 #translate Desktop.Height => GetDesktopRealHeight() 
  
 #translate System.Clipboard => RetrieveTextFromClipboard() 
 ...

gfilatov2002
moderator
Пост N: 971 Зарегистрирован: 11.02.10

Отправлено: 03.08.16 11:43. Заголовок: SergKis пишет: #xtr..

SergKis пишет:

цитата:

#xtranslate This . <p:Type>

Благодарю за дополнение - добавил

SergKis пишет:

цитата:

#translate Desktop.Col => GetDesktopRealLeft() #translate Desktop.Row => GetDesktopRealTop() #translate Desktop.Width => GetDesktopRealWidth() #translate Desktop.Height => GetDesktopRealHeight()

Не стал добавлять, поскольку эти функции не входят в библиотеку (они взяты из примеров).

Кстати, завершена подготовка очередной сборки 16.08, которая выйдет на следующей неделе.
Список изменений см. ниже
Скрытый текст

  * Fixed: Missing NOBORDER clause handling in a GetBox control at the alternative 
            syntax. Problem was reported by Dusko Radojcin. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Changed: ANIMATERES User Component was moved from the samples to MiniGUI core. 
            This control opens and displays continuously an AVI clip from a resource 
            in a specified module. Note: You can only use silent AVI clips. 
            Syntax: 
              @ <row>,<col> ANIMATERES <name> [ OF <parent> ] ; 
              [ WIDTH <nWidth> ] [ HEIGHT <nHeight> ] ; 
              FILE <DLL or EXE filename> ID <resource> [ TOOLTIP <tooltip> ] 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\AVI_Animation) 
   * Changed: The ON CANCEL action in the ComboBox control will fire only if a last 
            pressed key was <Escape> key. It indicates the user's initial selection 
            is to be ignored. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Enhanced: Added the readonly 'Index', 'Type', 'ClientWidth' and 'ClientHeight' 
            properties to 'This' object reference. 
            Common syntax: Control_idx := This.Index, Form_idx := This.Index etc. 
            Windows only syntax: Form_idx := ThisWindow.Index 
            Based upon a contribution of Russian user SergKis 
            (see demo in folder \samples\Basic\GetClientSize) 
   * Enhanced: Added a shorten form 'App' for the 'Application' object. 
            Examples: App.ExeName, App.Handle, App.FormName etc. 
            Suggested by SergKis. 
   * Enhanced: The function PutFile() supports an optional 7-th parameter to control 
            the overwriting if a file already exists. 
            Syntax: 
              PutFile( aFilter, title, cIniFolder, lNoChangeCurDir, cDefFileName,; 
                       /*@*/ nFilterIndex, lPromptOverwrite ) 
            If <lPromptOverwrite> set to .T. (default is .F.) and a file already 
            exists, user will be asked to overwrite it or not. 
            Contributed by Pete Dionysopoulos <pete_westg@yahoo.gr> 
            (see demo2.prg in folder \samples\Basic\PutFile) 
   * Updated: Synchronized Extended HMG for compatibility with Official HMG: 
            * Added MiniPrint2 library with the following modifications: 
            - Enhanced look and feel of Print Preview; 
            - Enhanced quality of images of ThumbNails in printer preview; 
            - Changed cursor behavior in Print Preview window: 
              Zoom and Glass Cursor only into page to print. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see source in folder \Source\MiniPrint2) 
            (see demo in folder \samples\Advanced\MiniPrint2) 
   * Updated: Header file i_hmgcompat.ch for compatibility with Official HMG: 
            - added the following commands: 
              SET CONTROL <ControlName> OF <FormName> ; 
                CLIENTEDGE | STATICEDGE | WINDOWEDGE | NOTEDGE 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: C-code cleaning for correct compiling with the Embarcadero BCC 10.1: 
            - added missing casting for C++ mode into the MiniGUI core, CallDll, 
              HbPrinter and MiniPrint libraries. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG:  
            - fixed a tooltip handle assigning error at Windows Server 2008. 
              Problem was reported by Dusko Radojcin. 
            - fixed a wrong workaround (introduced in the build 16.07). 
              Bug was reported by Jaroslaw Kadziola <kadziola@tlen.pl> 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.14.0dev. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2016-07-18 20:32). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'DO REPORT command with a simple formatting' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo2.prg in folder \samples\Basic\DO_REPORT) 
   * New: 'ActiveX Report Generator' sample. 
            Based upon a freeware CatchysoftReport.Dll from the following URL: 
            http://www.catchysoft.com/report_generator.html. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\ActiveX_Report) 
   * New: 'Run the executable file from an application resource' console sample. 
            Based upon a contribution at Harbour developer forum. 
            (see in folder \samples\Advanced\RCDataToFile) 
   * Updated: 'HMG Cursor' sample: 
            - added the function PutMouse(). 
            Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> 
            (see in folder \samples\Basic\CURSOR) 
   * Updated: 'TSBrowse Incremental Seek With Footer's GetBox' sample: 
            - fixed using of "hole" detection. 
            Problem was reported by russian user. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\Tsb_seek_2)

И напоследок - небольшой запрос

Требуется помощь в портировании winapi-функции TaskDialogIndirect в среду Харбор/Минигуи.
Петр, возьметесь

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

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

gfilatov2002 пишет:

цитата:

Требуется помощь в портировании winapi-функции TaskDialogIndirect в среду Харбор/Минигуи.
Петр, возьметесь

Вечером посмотрю, чем могу помочь

gfilatov2002
moderator
Пост N: 972 Зарегистрирован: 11.02.10

Отправлено: 03.08.16 12:53. Заголовок: Петр пишет: посмотр..

Петр пишет:

цитата:

посмотрю, чем могу помочь

Заранее благодарен

В принципе, вызов этой функции на Си выглядит несложно:

HRESULT hr; 
 TASKDIALOGCONFIG tdc = { sizeof(TASKDIALOGCONFIG) }; 
 int nClickedBtn; 
 BOOL bCheckboxChecked; 
 TASKDIALOG_BUTTON aCustomButtons[] = { 
     { 1000, MAKEINTRESOURCE(IDS_DOWNLOAD_BTN_TEXT) }, 
     { 1001, MAKEINTRESOURCE(IDS_DONT_DOWNLOAD_BTN_TEXT) } 
   }; 
  
     tdc.hwndParent = m_hWnd; 
     tdc.hInstance = _AtlBaseModule.GetResourceInstance(); 
     tdc.dwFlags = TDF_USE_COMMAND_LINKS|TDF_ENABLE_HYPERLINKS; 
     tdc.pButtons = aCustomButtons; 
     tdc.cButtons = _countof(aCustomButtons); 
     tdc.pszWindowTitle = MAKEINTRESOURCE(IDS_TASKDLG_TITLE); 
     tdc.pszMainIcon = MAKEINTRESOURCE(IDI_MY_TD_ICON); 
     tdc.pszMainInstruction = MAKEINTRESOURCE(IDS_TASKDLG_HEADER); 
     tdc.nDefaultButton = 1001; 
     tdc.pszExpandedInformation = MAKEINTRESOURCE(IDS_TASKDLG_EXTRA_INFO); 
     tdc.pszVerificationText = MAKEINTRESOURCE(IDS_TASKDLG_CHKBOX_TEXT); 
     tdc.pszFooter = MAKEINTRESOURCE(IDS_TASKDLG_FOOTER); 
     tdc.pszFooterIcon =  TD_INFORMATION_ICON; 
     tdc.pfCallback = TDCallback; 
     tdc.lpCallbackData = (LONG_PTR) this;   // not used, but I'm setting this for demonstration purposes 
  
     hr = TaskDialogIndirect ( &tdc, &nClickedBtn, NULL, &bCheckboxChecked );

Вопрос в том, как это оформить для удобного использования в Харборе (с учетом вызова Callback-функции и использования ресурсных строк)

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

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

gfilatov2002 пишет:

цитата:

Вопрос в том, как это оформить для удобного использования в Харборе (с учетом вызова Callback-функции и использования ресурсных строк)

Вот так пойдет?

TaskDialogIndirect( aConfig, @nButton, @nRadioButton, @lVerificationFlagChecked )

Шаблон демо
Скрытый текст

цитата:

#include "tdi.ch"

PROCEDURE TDI_Demo()

LOCAL aConfig, nButton, nRadioButton, lVerificationFlagChecked := .f.
LOCAL nResult

aConfig := Array( TDC_CONFIG )

/*
2. TDC_HWND - handle to the parent window. This member can be NIL.
*/
aConfig[TDC_HWND] := ThisWindow.Handle

/*
3. TDC_HINSTANCE - handle to the module that contains the icon resource identified
by the pszMainIcon or pszFooterIcon members, and the string resources identified by the
pszWindowTitle, pszMainInstruction, pszContent, pszVerificationText, pszExpandedInformation,
pszExpandedControlText, pszCollapsedControlText or pszFooter members.
*/
aConfig[TDC_HINSTANCE] := GetInstance()

/*
4. TDC_TASKDIALOG_FLAGS - Specifies the behavior of the task dialog. This parameter can be a combination of flags.
*/
aConfig[TDC_TASKDIALOG_FLAGS] := hb_bitOr( TDF_USE_COMMAND_LINKS, TDF_ENABLE_HYPERLINKS )

/*
6. TDC_WINDOWTITLE - the string to be used for the task dialog title.
This parameter can be either a string or an integer resource identifier passed to the MAKEINTRESOURCE macro.
If this parameter is NIL, the filename of the executable program is used
*/
aConfig[TDC_WINDOWTITLE] := "Window Title"

/*
8. TDC_MAININSTRUCTION - the string to be used for the main instruction.
This parameter can be either a string or an integer resource identifier passed to the MAKEINTRESOURCE macro
*/
aConfig[TDC_MAININSTRUCTION] := "Main Instruction"

/*
9. TDC_CONTENT - the string to be used for the dialog's primary content.
This parameter can be either a string or an integer resource identifier passed to the MAKEINTRESOURCE macro.
If the ENABLE_HYPERLINKS flag is specified for the TDC_DWFLAGS,
then this string may contain hyperlinks in the form: <A HREF="executablestring">Hyperlink Text</A>.
*/
aConfig[TDC_CONTENT] := "Content"

/*
16. TDC_VERIFICATIONTEXT - the string to be used to label the verification checkbox.
This parameter can be either a string or an integer resource identifier passed to the MAKEINTRESOURCE macro.
If this parameter is NIL, the verification checkbox is not displayed in the task dialog.
If the lVerificationFlagChecked parameter of TaskDialogIndirect is NIL, the checkbox is not enabled.
*/
aConfig[TDC_VERIFICATIONTEXT] := "Verification Text"

/*
17. TDC_EXPANDEDINFORMATION - the string to be used for displaying additional information.
This parameter can be either a string or an integer resource identifier passed to the MAKEINTRESOURCE macro.
The additional information is displayed either immediately below the content or below the footer text
depending on whether the TDF_EXPAND_FOOTER_AREA flag is specified.
If the TDF_ENABLE_HYPERLINKS flag is specified for the TDC_DWFLAGS,
then this string may contain hyperlinks in the form: <A HREF="executablestring">Hyperlink Text</A>.
*/
aConfig[TDC_EXPANDEDINFORMATION] := "Expanded Information"

/*
18. TDC_EXPANDEDCONTROLTEXT - the string to be used to label the button for collapsing the expandable information.
This parameter can be either a string or an integer resource identifier passed to the MAKEINTRESOURCE macro.
This member is ignored when the TDC_EXPANDEDINFORMATION member is NIL.
If this member is NIL and the TDC_COLLAPSEDCONTROLTEXT is specified, then the TDC_COLLAPSEDCONTROLTEXT value
will be used for this member as well.
*/
aConfig[TDC_EXPANDEDCONTROLTEXT] := "Expanded Control Text"

/*
19. TDC_COLLAPSEDCONTROLTEXT - the string to be used to label the button for expanding the expandable information.
This parameter can be either a string or an integer resource identifier passed to the MAKEINTRESOURCE macro.
This member is ignored when the TDC_EXPANDEDINFORMATION member is NIL.
??
If this member is NIL and the TDC_COLLAPSEDCONTROLTEXT is specified, then the TDC_COLLAPSEDCONTROLTEXT value
will be used for this member as well.
??
*/
aConfig[TDC_COLLAPSEDCONTROLTEXT] := "Collapsed Control Text"

/*
21. TDC_FOOTER - the string to be used in the footer area of the task dialog.
This parameter can be either a string or an integer resource identifier passed to the MAKEINTRESOURCE macro.
If the TDF_ENABLE_HYPERLINKS flag is specified for the TDC_DWFLAGS,
then this string may contain hyperlinks in the form: <A HREF="executablestring">Hyperlink Text</A>.
*/
aConfig[TDC_FOOTER] := "Footer"

/*
22. TDC_CALLBACK
*/
aConfig[TDC_CALLBACK] := {|h,n,w,l| callback( h,n,w,l )}

/*
24. TDC_WIDTH - the width of the task dialog's client area, in dialog units.
If 0, the task dialog manager will calculate the ideal width.
*/
aConfig[TDC_WIDTH] := 0

nResult := TaskDialogIndirect( aConfig, @nButton, @nRadioButton, @lVerificationFlagChecked )

/* TODO */

RETURN

Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]

Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение) » тема закрыта

Тему читают:

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

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

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

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