On-line: гостей 2. Всего: 2 [подробнее..]
АвторСообщение
постоянный участник


Пост N: 420
Зарегистрирован: 13.10.05
ссылка на сообщение  Отправлено: 19.12.13 18:16. Заголовок: TsBrowse в Минигуи (продолжение)


TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений
К примеру

 цитата:

DEFINE TBROWSE oBrw2 ;
AT 60,450 ;
ALIAS cAlias ;
OF Form1 ;
WIDTH 330 ;
HEIGHT 340 ;
FONT "Verdana" ;
SIZE 9 ;
ON DBLCLICK CopyRec();
ON GOTFOCUS fModelo_Hab(2) ;
AUTOFILTER ;
CELLED EDIT;
VALUE nRec;
GRID


Здесь я собрал параметры из разных tBrows
Можно или нет и какие парметры заменить
выражением ( и каким) ?
oBrw2:....
oBrw2:....

























<a href=http://www.bestmarket.com.ua >ноутбуки</a>























<a href=http://www.bestmarket.com.ua >ноутбуки</a>
Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 86 , стр: 1 2 3 4 5 All [только новые]





Пост N: 3222
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 22.05.20 21:08. Заголовок: Andrey пишет А как м..


Andrey пишет
 цитата:
А как можно отдельно задать фонт для суперхидера, сразу.
Пробовал так:
:hFontSupHdSet := GetFontHandle("CardSuperH") // 5-доп.фонт
Прога вылетает с ошибкой:


У тебя богатая фантазия
Делай так как написал выше, команда и метод

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6692
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 22.05.20 21:14. Заголовок: SergKis пишет: У те..


SergKis пишет:

 цитата:
У тебя богатая фантазия


Да не фантазия, а простая невнимательность. Слишком тороплюсь сделать.
Понял в чём дело, нужно так:
  :hFontSupHdSet( , GetFontHandle("TsbSuperH") )   // 5-доп.фонт 

Спасибо !

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 3223
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 22.05.20 21:32. Заголовок: Andrey Это будет на..


Andrey
Это будет на 1-ю колонку, а остальные ... + высота у фонта будет другая, т.е. этого мало.
Лучше команда или метод AddSuperHeader(), в них "букав больше"

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6693
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 22.05.20 22:06. Заголовок: SergKis пишет: Лучш..


SergKis пишет:

 цитата:
Лучше команда или метод AddSuperHeader(), в них "букав больше"



Тогда так примерно ?
   // суперхидер 
//:AddSuperHead( nFromCol, nToCol, uHead, nHeight, aColors, l3dLook, uFont, uBitMap, lAdjust, lTransp, ...)
:AddSuperHead( 1 , :nColCount() , aSupHd[1], , , , GetFontHandle("TsbSuperH") )


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 3224
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 22.05.20 22:09. Заголовок: Andrey пишет Понял в..


Andrey пишет
 цитата:
Понял в чём дело, нужно так:
:hFontSupHdSet( , GetFontHandle("TsbSuperH") ) // 5-доп.фонт


5-ый фонт и 6-ой можно сделать тоже, в целом, наверно, удобно будет
 
FUNCTION _DefineTBrowse( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight, ;
...
IF ! Empty( FontName ) .and. HB_ISARRAY( FontName )
AEval( FontName, { |cf| AAdd( aFonts, cf ) } )
aFont := ASize( aFonts, 6 )
FontName := aFont[1]
...
oBrw := TSBrowse():New( ControlName, nRow, nCol, nWidth, nHeight, ;
bFields, aHeaders, aWidths, ParentFormName, ;
change, bDblClick, bRClick, fontname, fontsize, ;
hCursor, aTmpColor, aBmp, cMsg, update, uAlias, uWhen, value, cell, ;
nStyle, bLClick, aFlds, aHeadClick, nLineStyle, lRePaint, ;
Delete, aJust, lock, appendable, lEnum, ;
lAutoSearch, uUserSearch, lAutoFilter, uUserFilter, aPicture, ;
lTransparent, uSelector, lEditable, lAutoCol, aColSel, tooltip )

IF HB_ISARRAY( aFont ) .and. Len(aFont) > 3
IF HB_ISCHAR(aFont[ 4 ])
oBrw:hFontSpcHd := GetFontHandle(aFont[ 4 ])
ENDIF
IF HB_ISCHAR(aFont[ 5 ])
oBrw:hFontSupHd := GetFontHandle(aFont[ 5 ])
ENDIF
IF HB_ISCHAR(aFont[ 6 ])
oBrw:hFontEdit := GetFontHandle(aFont[ 6 ])
ENDIF
ENDIF

...
CLASS TSBrowse FROM TControl
...
DATA hFontSpcHd AS NUMERIC // special header font
DATA hFontSupHd // super header font

...
Method AddSuperHead( nFromCol, nToCol, uHead, nHeight, aColors, l3dLook, uFont, uBitMap, lAdjust, lTransp, ;
...
Default lAdjust := .F., ;
...
uHead := "", ;
uFont := ::hFontSupHd

...


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6694
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 22.05.20 23:00. Заголовок: SergKis пишет: 5-ый..


SergKis пишет:

 цитата:
5-ый фонт и 6-ой можно сделать тоже, в целом, наверно, удобно будет


Да удобней и логичней !
И проще программировать, один раз задать и не делать потом различных манипуляций !
Везде параметры задал и всё, а с фонтами фокусами нужно заниматься...

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 86 , стр: 1 2 3 4 5 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 322
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет