Delphi 6. Что нового? 11

Delphi 6. Что нового? Здравствуй Linux!
Для создания приложений для платформы Linux вы можете использовать компоненты библиотеки CLX, например компонент LCDNumber. Он находится на странице Additional. Рассмотрим, для каких действий его можно использовать в приложениях.
LCDNumber представляет собой элемент управления, который может показывать числовую информацию и символы в формате цифры.
Компонент LCDNumber использует семь элементов формата для отображения числовой или символьной информации, аналогично цифровой информации, отображаемой на электронных часах.
Цифры и символы, отображаемые компонентом: 0, O, 1, 2, 3, 4, 5, S, 6, 7, 8, 9, g, минус, точка, A, B, C, D, E, F, h, H, L, o, P, r, u, U, Y, двоеточие, знак градуса.
Рассмотрим свойства компонента LCDMumber.
Свойство property AutoSize: Boolean; — определяет, будет ли высота компонента автоматически адаптироваться к размеру его содержимого.
При свойстве AutoSize, установленном в True, автоматически изменяет размер компонента таким образом, чтобы было видно все содержащееся в нем. При свойстве AutoSize, установленном в False (по умолчанию), размеры компонента фиксированы.
Свойство type TNumDigits = 0..99;
property Digits: TNumDigits; — указывает максимальное число цифр, которые компонент может показывать.
Если компонент содержит десятичную точку и свойство PointSize установлено в ptSmall, то точка отображается между фактическими цифрами и не затрагивает количество цифр, необходимых для отображения.
Если PointSize установлено в ptLarge, то десятичная точка занимает положение цифры и уменьшает число цифр, которые необходимо отобразить в компоненте.
Если для отображения информации в компоненте необходимо превысить максимальное число цифр, указанных свойством Digits, то компонент реагирует на это одним из двух возможных путей в зависимости от свойства AutoSize:
если свойство AutoSize = True, то размеры компонента автоматически увеличиваются по числу размещаемых цифр, чтобы разметить необходимое число цифр;
если свойство AutoSize = False, то элемент управления генерирует событие OnOverflow, и видимая часть цифр обрезается по числу цифр, указанных свойством Digits.
Свойство type
TLCDMode = (lcdHexadecimal, lcdDecimal, lcdOctal, lcdBinary);
property Mode: TLCDMode; — определяет, по какому основанию осуществлять отображение числа.
Следующие значения определяют возможные виды отображений числа:
LcdHexadecimal — отображение числа по основанию 16;
LcdDecimal — отображение числа по основанию 10;
LcdOctal — отображение числа по основанию 8;
LcdBinary — отображение числа по основанию 2.
Свойство type
TLCDPointSize = (ptSmall, ptLarge);
property PointSize: TLCDPointSize; — определяет возможность отображения десятичной точки. Если PointSize — ptSmall, то точка показывается между фактическими цифрами и не затрагивает число цифр, которые могут быть показаны, как определено свойством Digits. Если PointSize — ptLarge, то десятичная точка занимает положение цифры и увеличивает число цифр, определяемых свойством Digits.
Свойство type
TLCDSegmentStyle = (ssOutline, ssFilled, ssFlat);
property SegmentStyle: TLCDSegmentStyle; — определяет, каким образом элемент управления отображает сегменты цифр.
Свойство содержит следующие значения:
SsOutline — сегменты имеют цвет фона;
SsFilled — сегменты имеют цвет переднего плана;
SsFlat — сегменты имеют плоский вид, заполненные цветом переднего плана.
Свойство property Value: WideString; — определяет значения, которые отображаются в компоненте.
Элемент управления может отображать следующие знаки:
числовые значения: 0-9;
буквенные значения: A, B, C, D, E, F, g, h, H, L, o, O, P, r, S, u, U, Y;
пунктуация: двоеточие, признак градуса (степени), минус, десятичная точка, пробел.
Событие property OnOverflow: TNotifyEvent; — происходит в том случае, когда текст, предназначенный для отображения в компоненте, требует большего количества цифр, чем это определено свойством Digits.
Свойство property BorderStyle: TBorderStyle; — определяет стиль границы для компонента.
Следующий пример позволяет изменять содержимое компонента LCDNumber после щелчка левой кнопкой мыши по компоненту:
procedure TForm1.LCDNumber1Click (Sender: TObject);
begin
LCDNumber1.Value:='U';
LCDNumber1.Color:=clRed;
LCDNumber1.BorderStyle:=bsEtched;
end;
Программный код, приведенный ниже, позволяет использовать компонент LCDNumber для отображения результатов расчета:
procedure TForm1.LCDNumber1Click (Sender: TObject);
var
A,B: Real;
V:Variant;
C:String;
begin
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
B:=A*B;
V:=B;
C:=V;
LCDNumber1.Value:=C;
end;

procedure TForm1.Button1Click (Sender: TObject);
begin
LCDNumber1.Value:='0';
Edit1.Text:='0';
Edit2.Text:='0';
end;

end.

Владимир Скуратов