Место общения программистов, форум разработчиков БД на Clarion
https://www.forum.clarionlife.net/
Тут совсем всё плохо. Нетбуки, на фиксированное нестандартное разрешение (типа 1356*...). При запуске приложения, приложение полностью использует рабочий стол, по максиму. Я сделал выбор и изменение шрифтов для каждой таблицы в отдельности, но хотелось бы красиво, зашел в настройки выбрал для таблиц шрифт, один для всех таблиц. И заодно изменить для выше указанных контролов. Я разве многого хочу?Дед Пахом писал(а):Может проще поменять сразу настройки ОС?
Да никаких проблем. Если подождёшь до завтра, то сделаю специально для тебя рыбу и пришлю (давай адрес). Я просто посмотрел в каком состоянии там сейчас задание шрифтов и ужаснулся (я давно уже шрифтами не играюсь).gopstop2007 писал(а):Игорь, если Ваши шаблоны хотя бы частично подходят, можно ими воспользоваться?
А так вырежу ненужное, вставлю необходимое и получится готовый простенький шаблончик. А там уже сам долижешь до нужного тебе уровня.Код: Выделить всё
An array property which returns the next control number in sequence of a window or report. (READ-ONLY) The control number returned is the control following the array element numbered control. The order in which PROP:NextField returns field numbers is undefined. PROP:NextField returns zero when the array element number is the last control in its list. This property easily allows you to loop through all the controls in a window or report, whether those controls have USE attributes or not.
Example:
WinView WINDOW('View'),AT(0,0,320,200),MDI,MAX,HVSCROLL
IMAGE(),AT(0,0,,),USE(?Image)
BUTTON('Save Picture'),AT(80,180,60,20),USE(?SavePic)
BUTTON('New Picture'),AT(160,180,60,20),USE(?NewPic)
BUTTON('Last Picture'),AT(240,180,60,20),USE(?LastPic)
END
ThisField SHORT(0)
CODE
OPEN(WinView)
LOOP
ThisField = WinView{PROP:NextField,ThisField} !Process every control
IF ThisField
ThisField{PROP:FontName} = 'Arial' !Changing the font
ThisField{PROP:FontSize} = 10
ELSE
BREAK !Break when done
END
ACCEPT
END
Насчет 100% попадания- самое оно! : ) СпасибА огромное!А вообще-то думаю, что тебе стоит посмотреть и готовый пример из хелпа по PROP:NextField. ИМХО - 100% попадание )))