Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 end; { for }

 if Norm = 0 then Norm := 1; { В случае если у нас все нули }

 with TPaintBox(Sender).Canvas do begin

{ Рисуем задний фон }

Brush.color:= clWhite;

FillRect(ClipRect);

{ Рисуем ось }

MoveTo(0, ClipRect.Bottom div 2);

LineTo(ClipRect.Right, ClipRect.Bottom div 2);

MoveTo(LMarg, 0);

LineTo(LMarg, ClipRect.Bottom);

{

Печатаем текст левого поля }

TextOut(0, 0, IntToStr(Norm));

TextOut(0, ClipRect.Bottom div 2, '0');

TextOut(0, ClipRect.Bottom + Font.Height, IntToStr(-Norm));

TextOut(0, ClipRect.Bottom div 2, '0');

TextOut(0, ClipRect.Bottom div 2, '0');

TextOut(0, ClipRect.Bottom div 2, '0');

{ Печатаем текст оси X }

{ Теперь рисуем бары на основе нормализованного значения. Вычисляем ширину баров (чтобы они все вместились в окне) и ширину пробела между ними, который приблизительно равен 20% от их ширины. }

{ SelectObject(PaintDC, CreateSolidBrush(RGB(255, 0, 0)));

SetBkMode(PaintDC, Transparent);}

ARect := ClipRect;

Wd := (ARect.Right - LMarg) div NumValues;

Step := Wd div 5;

Wd := Wd - Step;

with ARect do begin

Left := LMarg + (Step div 2);

Top := ClipRect.Bottom div 2;

end; { with }

{ Выводим бары и текст для оси X }

For i := Low(DataSample) to High(DataSample) do begin

with ARect do begin

Right := Left + Wd;

Bottom:= Top - Round((Top-5) * (DataSample[I] / Norm));

end; { with }

{ Заполняем бар }

Brush.color:= clFuchsia;

FillRect(ARect);

{ Выводим текст для горизонтальной оси }

Brush.color:= clWhite;

TextOut(ARect.Left, ClipRect.Bottom div 2 - Font.Height, StrPas(DataItemNames[i]));

with ARect do Left := Left + Wd + Step;

end; { for }

 end; { with }

end;

end.{ ***

КОНЕЦ КОДА DDEMLCLU.PAS *** }

{ *** НАЧАЛО КОДА DDEMLSVR.DPR *** }

program Ddemlsvr;

uses Forms,Ddesvru in 'DDESVRU.PAS' {Form1}, Ddedlg in '\DELPHI\BIN\DDEDLG.PAS' {DataEntry};

{$R *.RES}

begin

 Application.CreateForm(TForm1, Form1);

 Application.CreateForm(TDataEntry, DataEntry);

 Application.Run;

end.

{ *** КОНЕЦ КОДА DDEMLSVR.DPR *** }

{ *** НАЧАЛО КОДА DDESVRU.DFM *** }

object Form1: TForm1

 Left = 712

 Top = 98

 Width = 307

 Height = 162

 Caption = 'Демонстрация DDEML, Серверное приложение'

 Color = clWhite

 Font.Color = clWindow

 TextFont.Height = -13

 Font.Name = 'System'

 Font.Style = []

 Menu = MainMenu1

 PixelsPerInch = 96

 OnCreate = FormCreate

 OnDestroy = FormDestroy

 OnShow = FormShow

 TextHeight = 16

 object Label1: TLabel

Left = 0

Top = 0

Width = 99

Height = 16

Caption = 'Текущие значения:'

 end

 object Label2: TLabel

Left = 16

Top = 24

Width = 74

Height = 16

Caption = 'Data Item1:'

 end