Бильфельд Н.В., Затонский А.В. Основы разработки интерфейсов: Реализация в системе Borland Delphi
Подождите немного. Документ загружается.
80
Чтобы каждый раз не вводить координаты в компоненты Edit можно
получать их автоматически при щелчке по ячейку. Тогда для события
OnSelectCell компонента StringGrid достаточно написать
begin
Edit1.Text:=IntToStr(ARow); Edit2.Text:=IntToStr(ACol);
end;
Пример № 19
В данном примере рассмотрим помещение в ячейки компонента
StringGrid пиктограмм. Чтобы поместить в ячейку компонента StringGrid
пиктограмму достаточно вызвать метод
Canvas.Draw(X,Y,P.Graphic)
где X,Y – координаты, по которым необходимо вывести пиктограмму; P –
переменная типа TPicture (собственно, сама пиктограмма).
Использование данного подхода, позволяет визуализировать
множество задач, в которых обычный вывод числовых значений не дает
пользователю практически никакую информацию о результатах решаемой
задачи.
Рассмотрим типовую задачу о расстановке ферзей. Необходимо
расставить ферзи на шахматной доске таким образом, чтобы они не «рубили»
друг друга. Известно, что таких вариантов существует 92. Выводить 92
массива числовых значений, как было сказано раньше, не дает представление
о решаемой задаче.
Так как данная задача вызывает у студентов определенный интерес,
приведем полностью код ее решения и визуализации результатов.
Поместим на форму компонент StringGrid (шахматная доска),
компонент SpinEdit (для выбора варианта визуализации) и обычную кнопку.
Опишем глобальные переменные:
var
Form1: TForm1;
A:Array[1..100,1..8] Of Integer;{Массив расположения ферзей}
P,P1:TPicture; {пустая пиктограмма и пиктограмма ферзи}
V,N, X,Y:Integer;
Path:String;
Напишем свои процедуры:
Procedure TForm1.Obnul;
{Обнуление Grid}
Var I,J:Integer;
Begin
With StringGrid1 Do Begin
For I:=0 To N-1 Do Begin
For J:=0 To N-1 Do Begin
X:=(I)*(StringGrid1.DefaultColWidth+1);
81
Y:=(J)*(StringGrid1.DefaultRowHeight+1);
Canvas.Draw(X,Y,P1.Graphic);
End;
End;
Repaint;
End;
End;
Procedure TForm1.Ferz;
{Алгоритм расчета}
var
F:Array[1..10] Of Integer;B:Boolean;
Procedure Save;
{Запись вычисленных значений в массив}
var I:Integer;
begin
V:=V+1; if Not B then B:=true;
for i:=1 to N-1 do A[V,I]:=F[I]; A[V,N]:=F[N];
end;
Function Test(i:Integer):boolean;
{Анализ I-го варианта}
var J:Integer; B:Boolean;
begin
j:=1; B:=true;
while (j<>i) and B do begin
B:=(F[i]<>F[j]) and (abs(F[i]-F[j])<>i-j); j:=j+1;
end;
test:=B;
end;
Procedure Find(i:Integer);
{Поиск следующего варианта}
var J,K:Integer;
begin
for k:=1 to n do begin
F[i]:=k; if test(i) then if i=n then Save else Find(i+1);
end;
end;
Begin
V:=0; N:=8; B:=false; Find(1);
SpinEdit2.MaxValue:=V; SpinEdit2.Value:=V;
82
Label4.Caption:=IntToStr(V);
end;
Для процедуры создания формы:
Begin
GetDir(0,Path);X:=0;Y:=0;
P:=TPicture.Create;P1:=TPicture.Create;
P.LoadFromFile(Path+'\Ferz.bmp');
P1.LoadFromFile(Path+'\Pusto.bmp');
End;
Для компонента SpinEdit:
Var K1,I,J:Integer;
begin
K1:=SpinEdit2.Value;
Obnul;
With StringGrid1 Do Begin
For I:=1 To N Do Begin
X:=(A[K1,I]-1)*(StringGrid1.DefaultColWidth+1);
Y:=(I-1)*(StringGrid1.DefaultRowHeight+1);
StringGrid1.Canvas.Draw(X,Y,P.Graphic);
End;
End;
end;
Рис. 64. Расстановка ферзей для вариантов 85 и 71
83
Для кнопки:
Begin
Ferz;
end;
На рис. 64 приведены варианты работы программы.
Выбирая в компоненте SpinEdit любой из 92 вариантов, мы тут же
видим, как будут располагаться ферзи на шахматной доске.
Создание собственных компонентов.
Создание собственных компонентов – один из достаточно сложных
способов разработки интерфейсов. Обычно обходятся компонентами,
имеющимися в палитре компонентов. Также часто прибегают к
использованию так называемых компонентов третьих фирм. Обычно
исходные тексты таких компонентов распространяются на компакт дисках и
в Интернете. Но если компонент с необходимыми свойствами не найден,
приходиться прибегать к собственной разработке.
С другой стороны, использование собственных компонентов может
сделать Ваш интерфейс максимально индивидуальным и неповторимым.
Рассмотрим пример создания своей кнопки с дополнительным
свойством Color. К сожалению, у стандартных кнопок (TButton) как и у
кнопок класса TSpeedButton данное свойство отсутствует, т.е. изменить цвет
кнопки нельзя.
Обычно собственные компоненты разрабатываются на основе
стандартных компонентов.
Последовательность разработки следующая.
Выполним меню Component\NewComponent.
Далее необходимо заполнить предлагаемую форму (рис. 65).
Рис. 65. Заполнение формы для создания компонента
84
Назначения полей формы следующие.
Ancestor type – базовый компонент, на основе которого создается свой
компонент.
Class Name – имя класса создаваемого компонента.
Palette Page – страница палитры, на которую необходимо поместить
компонент.
Unit file name – путь и имя файла с исходным текстом создаваемого
компонента.
Search path – устанавливается Delphi по умолчанию и редактированию не
подлежит.
После нажатия копки «Ok» откроется модуль-заготовка создаваемого
компонента.
Приведем полностью код данного модуля для создания нашей кнопки
unit ColorButton;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls;
type
TDrawButtonEvent = procedure(Control: TWinControl;
Rect: TRect; State: TOwnerDrawState) of object;
TColorButton = class(TButton)
private
FCanvas: TCanvas;
IsFocused: Boolean;
FOnDrawButton: TDrawButtonEvent;
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure SetButtonStyle(ADefault: Boolean); override;
procedure CMEnabledChanged(var Message: TMessage); message
CM_ENABLEDCHANGED;
procedure CMFontChanged(var Message: TMessage); message
CM_FONTCHANGED;
procedure CNMeasureItem(var Message: TWMMeasureItem); message
CN_MEASUREITEM;
procedure CNDrawItem(var Message: TWMDrawItem); message
CN_DRAWITEM;
procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message
WM_LBUTTONDBLCLK;
procedure DrawButton(Rect: TRect; State: UINT);
85
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Canvas: TCanvas read FCanvas;
published
property OnDrawButton: TDrawButtonEvent read FOnDrawButton write
FOnDrawButton;
property Color;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TColorButton]);
end;
constructor TColorButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCanvas := TCanvas.Create;
end;
destructor TColorButton.Destroy;
begin
inherited Destroy;
FCanvas.Free;
end;
procedure TColorButton.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do Style := Style or BS_OWNERDRAW;
end;
procedure TColorButton.SetButtonStyle(ADefault: Boolean);
begin
if ADefault <> IsFocused then
begin
IsFocused := ADefault;
Refresh;
end;
86
end;
procedure TColorButton.CNMeasureItem(var Message: TWMMeasureItem);
begin
with Message.MeasureItemStruct^ do
begin
itemWidth := Width;
itemHeight := Height;
end;
end;
procedure TColorButton.CNDrawItem(var Message: TWMDrawItem);
var
SaveIndex: Integer;
begin
with Message.DrawItemStruct^ do
begin
SaveIndex := SaveDC(hDC);
FCanvas.Lock;
try
FCanvas.Handle := hDC;
FCanvas.Font := Font;
FCanvas.Brush := Brush;
DrawButton(rcItem, itemState);
finally
FCanvas.Handle := 0;
FCanvas.Unlock;
RestoreDC(hDC, SaveIndex);
end;
end;
Message.Result := 1;
end;
procedure TColorButton.CMEnabledChanged(var Message: TMessage);
begin
inherited;
Invalidate;
end;
procedure TColorButton.CMFontChanged(var Message: TMessage);
begin
inherited;
Invalidate;
end;
87
procedure TColorButton.WMLButtonDblClk(var Message:
TWMLButtonDblClk);
begin
Perform(WM_LBUTTONDOWN, Message.Keys, Longint(Message.Pos));
end;
procedure TColorButton.DrawButton(Rect: TRect; State: UINT);
var
Flags, OldMode: Longint;
IsDown, IsDefault, IsDisabled: Boolean;
OldColor: TColor;
OrgRect: TRect;
begin
OrgRect := Rect;
Flags := DFCS_BUTTONPUSH or DFCS_ADJUSTRECT;
IsDown := State and ODS_SELECTED <> 0;
IsDefault := State and ODS_FOCUS <> 0;
IsDisabled := State and ODS_DISABLED <> 0;
if IsDown then Flags := Flags or DFCS_PUSHED;
if IsDisabled then Flags := Flags or DFCS_INACTIVE;
if IsFocused or IsDefault then
begin
FCanvas.Pen.Color := clWindowFrame;
FCanvas.Pen.Width := 1;
FCanvas.Brush.Style := bsClear;
FCanvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
InflateRect(Rect, - 1, - 1);
end;
if IsDown then
begin
FCanvas.Pen.Color := clBtnShadow;
FCanvas.Pen.Width := 1;
FCanvas.Brush.Color := clBtnFace;
FCanvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
InflateRect(Rect, - 1, - 1);
end
else
DrawFrameControl(FCanvas.Handle, Rect, DFC_BUTTON, Flags);
if IsDown then OffsetRect(Rect, 1, 1);
88
OldColor := FCanvas.Brush.Color;
FCanvas.Brush.Color := Color;
FCanvas.FillRect(Rect);
FCanvas.Brush.Color := OldColor;
OldMode := SetBkMode(FCanvas.Handle, TRANSPARENT);
FCanvas.Font.Color := clBtnText;
if IsDisabled then
DrawState(FCanvas.Handle, FCanvas.Brush.Handle, nil, Integer(Caption), 0,
((Rect.Right - Rect.Left) - FCanvas.TextWidth(Caption)) div 2,
((Rect.Bottom - Rect.Top) - FCanvas.TextHeight(Caption)) div 2,
0, 0, DST_TEXT or DSS_DISABLED)
else
DrawText(FCanvas.Handle, PChar(Caption), - 1, Rect,
DT_SINGLELINE or DT_CENTER or DT_VCENTER);
SetBkMode(FCanvas.Handle, OldMode);
if Assigned(FOnDrawButton) then
FOnDrawButton(Self, Rect, TOwnerDrawState(LongRec(State).Lo));
if IsFocused and IsDefault then
begin
Rect := OrgRect;
InflateRect(Rect, - 4, - 4);
FCanvas.Pen.Color := clWindowFrame;
FCanvas.Brush.Color := clBtnFace;
DrawFocusRect(FCanvas.Handle, Rect);
end;
end;
end.
Данный код можно повторить. Пояснения к коду не входит в задачу
данного пособия. Остается только инсталлировать компонент. Для этого
необходимо выполнить меню
Component \InstalComponent
и в открывшемся окне подтвердить инсталляцию нажатием кнопки Ok.
В результате на странице Samples появится новая копка (рис. 66).
Рис. 66. Компонент появился в палитре компонентов
89
Если поместить данный компонент на форму, и посмотреть в
инспекторе объектов свойства данного компонента, то мы увидим, что у
кнопки появилось дополнительное свойство – Color (рис. 67).
Рис. 67. У компонента появилось дополнительное свойство – Color.
Теперь кнопкам можно установить необходимый цвет, в частности, как
показано на рис. 68.
Рис. 68. Пример использования созданного компонента
Формирование заставок (логотипов).
Вывод заставки (логотипа) до вывода главной формы является хорошим
стилем программирования. При этом желательно, чтобы соблюдались
следующие правила:
• На форме логотипа не используются какие-либо меню или кнопки.
•
Заставка должна закрываться автоматически.