Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.299 RSS
←   Июль 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.299 подписчиков
-1 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Delphi и Lazarus


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Boriss
Статус: Академик
Рейтинг: 2484
∙ повысить рейтинг » 		star9491
Статус: Профессионал
Рейтинг: 2326
∙ повысить рейтинг » 		Евгений/Genia007/
Статус: Профессионал
Рейтинг: 1003
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Delphi и Lazarus

Номер выпуска:1542
Дата выхода:03.07.2010, 01:30
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:301 / 191
Вопросов / ответов:1 / 2

Вопрос № 179331: Здравствуйте уважаемые эксперты! Очень нужна Ваша помощь. 1. Наведите пожалуйста примеры работы с компонентами TrackBar и UpDown(как-то не приходилось работать). 2. Как с помощ...

Вопрос № 179331:

Здравствуйте уважаемые эксперты!
Очень нужна Ваша помощь.
1. Наведите пожалуйста примеры работы с компонентами
TrackBar и UpDown(как-то не приходилось работать).
2. Как с помощью значения переменной задать количество цифр после запятой в числе с пл. точкой?
Т.е. нужен аналог С++ функции setprecision() и при этом интересуют функции
как и для консольных приложений так и для Win32. Спасибо большое.

Отправлен: 28.06.2010, 00:28
Вопрос задал: Мироненко Николай Николаевич, Практикант
Всего ответов: 2
Страница вопроса »

Отвечает Евгений/Genia007/, Профессионал :
Здравствуйте, Мироненко Николай Николаевич.
По первому вопросу:
КОМПОНЕНТЫ СТРАНИЦЫ WIN 32
TTrackBar-регулятор величины



Компонент класса TTrackBar предназначен для визуального управления числовой величиной. Он во многом схож со стандартным элементом TScroll-Ваг и отличается от него в основном оформлением.
Свойства компонента:
property Frequency: Integer; Определяет частоту нанесения меток: 1 - каждое значение диапазона изменения имеет метку; 2 - каждое 2-е значение и т. д.
property LineSize: Integer; Определяет смещение ползунка при нажатии клавиш курсора или при единичном перемещении мышью
property Max: Integer; Определяет максимальное значение диапазона изменения
property Min: Integer; Определяет минимальное значение диапазона изменения
property Orientation: TTrackBarOrientation; Определяет ориентацию компонента: trHor izontal -горизонтальная; trVertical -вертикальная
property PageSize: Integer; Определяет смещение ползунка при нажатии клавиш Page Up, Page Down или при щелчке мышью на концах шкалы
property Position: Integer; Определяет текущее положение ползунка
property SelEnd: Integer; Задает конечную позицию выделения
property SelStart: Integer; Задает начальную позицию выделения
property SliderVisible: Boolean Определяет, будет ли видимым указатель компонента Определяет длину указателя
property ThumbLength: Integer; TTickMark = (tmBottomRight, tmTopLeft, tmBoth) ; property TickMarks: TTickMark; TTickstyle="(tsNone," tsAuto, tsManual) ; property TickStyle: TTickStyle; Определяет способ нанесения меток: tmBottomRight -внизу или справа; tmTopLeft - вверху или слева; tmBottom - по обеим сторонам
property TickMarks: TTickMark; TTickstyle="(tsNone," tsAuto, tsManual) ; property TickStyle: TTickStyle; Определяет стиль нанесения меток: tsNone - нет меток; tsAuto - метк и наносятся с частотой Frequence; tsManual - наносятся начальная и конечная метки, остальные наносит программа с помощью метода setTick
С помощью метода
procedure SetTick(Value: Integer); устанавливается метка в позицию, определяемую значением value.

Пример:

TrackBar.Position:= 50; Выставляет ползунок в позицию 50 от начала ползунка.


TUpDown - спаренная кнопка



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

Свойства компонента:

TUDAlignButton = (udLeft, udRight) ; property AlignButton: TUDAlignButton; Определяет положени е компонента относительно компаньона: udLeft - TUpDown располагается слева от него; udRight - справа от него
property Associate: TWinuontrol; Определяет связанный компонент. TupDown автоматически располагается с нужной стороны компаньона и выравнивает свою высоту с его высотой
property Increment: Smallint; Определяет шаг наращивания/уменьшения регулируемой величины
property Max: Smallint; Определяет максимальное значение диапазона изменения регулируемой величины
property Min: Smallint; Определяет минимальное значение диапазона изменения регулируемой величины
TUDOrientation = (udHorizontal, udVertical) ; property Orientation: TUDOrientation; Определяет ориентацию компонента: udHorizontal - по горизонтали; udVertical - по вертикали
property Position: Sallint; Содержит текущее значение регулируемой величины
property Thousands: Boolean; Если содержит True, в отображение числовой величины в компаньоне вставляются разделители тысяч
property Wrap: Boo lean; Запрещает/разрешает выход position из диапазона Max...Min (True - запрещает)
Для компонента определены события
type TUDChangi ngEvent = procedure (Sender: TObject; var AllowChange: Boolean) of object; property OnChar.ging: TUDChanginEvent;
И
type TUDBtnType = (btNext, btPrev) ;
type TUDClickEvent = procedure (Sender: TObject; Button: TUDBtnType) ;
property OnClick: TUDClickEvent;
Первое возникает при любом изменении регулируемой величины. Обработчик события в параметре AllowChange сообщает, может ли величина измениться. Второе - при щелчке по кнопкам элемента. Параметр Button определяет нажатую кнопку: btprev - вниз или влево; btNext - вверх или вправо.

Пример:
Мне обычно хватает выставить
UpDown.Associate:= Edit; ну и
UpDown.Max;
UpDown. Min;
и считываю содержание Edit.Text или UpDown.Position.
-----
Помогли тебе, помоги и ты.

Ответ отправил: Евгений/Genia007/, Профессионал
Ответ отправлен: 28.06.2010, 11:53
Номер ответа: 262310

Оценка ответа: 5
Комментарий к оценке:
Спасибо, разобрался :)

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 262310 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Отвечает star9491, Профессионал :
    Здравствуйте, Мироненко Николай Николаевич.
    2) Для консоли: Writeln(x:a:b)
    a - ширина поля вывода
    b - число цифр после запятой

    Для Win32: Edit1.Text:=FloatToStrF(x,ffFixed,Precision,Digits);

    Ответ отправил: star9491, Профессионал
    Ответ отправлен: 28.06.2010, 13:40
    Номер ответа: 262313

    Оценка ответа: 5
    Комментарий к оценке:
    Спасибо Вам большое! В примере для Win32 Precision это тоже ширина поля вывода, а Digits соответственно число цифр после запятой?

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 262313 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.16 от 26.05.2010
    В избранное