administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Документирующие комментарии к Controls.pas

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2020-07-25 23:25:47 +03:00
parent cd227a5d90
commit 2b27b31fb1
8 changed files with 284 additions and 55 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
CodeCompletion/CodeFormatter.cs
View file

@ -3427,6 +3427,11 @@ namespace CodeFormatters
//sb.Append("|");
}
public override void visit(double_question_node dn)
{
visit_node(dn.left);
visit_node(dn.right);
}
#endregion
}
}

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "6";
public const string Build = "3";
public const string Revision = "2594";
public const string Revision = "2595";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=3
%REVISION%=2594
%MINOR%=6
%REVISION%=2595
%COREVERSION%=3
%MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.6.3.2594
3.6.3.2595

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.6.3.2594'
!define VERSION '3.6.3.2595'

2
TestSuite/CompilationSamples/GraphWPF.pas
View file

@ -1531,7 +1531,7 @@ procedure DrawGraph(f: real -> real; a, b: real; r: GRect; title: string) := Dra
procedure DrawGraph(f: real -> real; r: GRect; title: string) := DrawGraph(f, -5, 5, r, title);
procedure DrawGraph(f: real -> real; a, b: real; title: string) := DrawGraph(f, a, b, 0, 0, Window.Width - 1, Window.Height - 1, title);
procedure DrawGraph(f: real -> real; a, b: real; title: string) := DrawGraph(f, a, b, 0, 0, GraphWindow.Width - 1, GraphWindow.Height - 1, title);
procedure DrawGraph(f: real -> real; title: string) := DrawGraph(f, -5, 5, title);

320
bin/Lib/Controls.pas
View file

@ -24,6 +24,11 @@ type
GPanel = System.Windows.Controls.Panel;
GControl = System.Windows.Controls.Control;
GStatusBar = System.Windows.Controls.Primitives.StatusBar;
MessageBox = System.Windows.MessageBox;
MessageBoxButton = System.Windows.MessageBoxButton;
MessageBoxResult = System.Windows.MessageBoxResult;
MessageBoxImage = System.Windows.MessageBoxImage;
/// Набор предопределённых цветов
Colors = System.Windows.Media.Colors;
Key = System.Windows.Input.Key;
@ -36,8 +41,9 @@ procedure InvokeP(p: procedure(r: real); r: real);
type
///!#
/// Базовый класс для панелей
PanelWPF = class
protected
private
p: StackPanel;
bb: Border;
procedure CreateP(wh: real; d: Dock; c: Color; InternalMargin: real);
@ -80,6 +86,7 @@ type
write Invoke(procedure -> p.Margin := new System.Windows.Thickness(internalMargin), value);
end;
/// Класс левой панели
LeftPanelWPF = class(PanelWPF)
public
constructor Create(width: real := 150; c: GColor := PanelsColor; internalMargin: real := 10);
@ -88,6 +95,7 @@ type
end;
end;
/// Класс правой панели
RightPanelWPF = class(PanelWPF)
public
constructor Create(width: real := 150; c: GColor := PanelsColor; internalMargin: real := 10);
@ -97,8 +105,9 @@ type
end;
///!#
/// Базовый класс для всех элементов управления
CommonElementWPF = class
protected
private
element: FrameworkElement;
procedure Init0(el: FrameworkElement; width: real := 0; x: real := -1; y: real := -1);
begin
@ -122,19 +131,27 @@ type
procedure SetHP(h: real) := element.Height := h;
procedure SetMP(m: real) := element.Margin := new Thickness(0,0,0,m);
procedure SetEP(enabled: boolean) := element.IsEnabled := enabled;
public
public
/// Ширина элемента управления
property Width: real read InvokeReal(()->element.Width) write Invoke(SetWP, value);
/// Высота элемента управления
property Height: real read InvokeReal(()->element.Height) write Invoke(SetHP, value); virtual;
/// Нижний отступ элемента управления
property Margin: real read InvokeReal(()->element.Margin.Bottom) write Invoke(SetMP, value);
/// Активирован ли элемент управления
property Enabled: boolean read InvokeBoolean(()->element.IsEnabled) write Invoke(SetEP, value);
end;
CommonControlWPF = class(CommonElementWPF)
private
procedure SetFSzP(size: real) := control.FontSize := size;
property Control: GControl read element as GControl;
procedure SetFSzP(size: real) := control.FontSize := size;
procedure SetFontNameP(name: string) := control.FontFamily := new FontFamily(name);
public
/// Размер шрифта
property FontSize: real read InvokeReal(()->control.FontSize) write Invoke(SetFSzP, value); virtual;
/// Имя шрифта
property FontName: string write Invoke(SetFontNameP, value); virtual;
end;
///!#
@ -146,18 +163,19 @@ type
Click;
end;
public
/// Событие нажатия на элемент управления
Click: procedure;
end;
///!#
/// Элемент управления "Изображение"
ImageWPF = class(CommonControlWPF)
protected
private
property im: Image read element as Image;
procedure CreatePXY(x,y: real; name: string; width: real := 0);
begin
Init0(new Image(),width,x,y);
im.Source := new BitmapImage();
im.Source := new BitmapImage(new System.Uri(name));
im.Source := new BitmapImage(new System.Uri(name,System.UriKind.RelativeOrAbsolute));
end;
procedure CreateP(name: string) := CreatePXY(-1,-1,name,0);
procedure CreatePP;
@ -174,19 +192,20 @@ type
end;
procedure SetNameP(value: string);
begin
im.Source := new BitmapImage(new System.Uri(value));
im.Source := new BitmapImage(new System.Uri(value,System.UriKind.RelativeOrAbsolute));
end;
constructor (i: integer) := Invoke(CreatePP); // фиктивный первый параметр
public
constructor (name: string) := Invoke(CreateP,name);
constructor (x,y: real; name: string; width: real := 0) := Invoke(CreatePXY,x,y,name,width);
/// Имя файла изображения
property Name: string read InvokeString(GetNameP) write Invoke(SetNameP,value);
end;
///!#
ButtonWPF = class(CommonControlWPF)
protected
/// Элемент управления "Кнопка"
ButtonWPF = class(ClickableControlWPF)
private
property b: GButton read element as GButton;
procedure CreatePXY(x,y: real; Txt: string; width: real; fontSize: real);
@ -200,16 +219,16 @@ type
procedure SetTextP(t: string) := b.Content := t;
public
Click: procedure;
constructor Create(Txt: string; fontSize: real := 12) := Invoke(CreateP, Txt, fontSize);
constructor Create(x, y: real; Txt: string; width: real := 0; fontSize: real := 12) := Invoke(CreatePXY, x, y, Txt, width, fontSize);
/// Текст на кнопке
property Text: string read InvokeString(()->b.Content as string) write Invoke(SetTextP, value);
end;
///!#
/// Элемент управления "Текст"
TextBlockWPF = class(CommonElementWPF)
protected
private
property tb: GTextBlock read element as GTextBlock;
procedure CreatePXY(x, y: real; Txt: string; width: real; fontsize: real);
@ -223,14 +242,20 @@ type
procedure SetTextP(t: string) := tb.Text := t;
procedure SetFontSizeP(sz: real) := tb.FontSize := sz;
procedure SetFontNameP(name: string) := tb.FontFamily := new FontFamily(name);
public
constructor Create(Txt: string; fontsize: real := 12):= Invoke(CreateP, Txt, fontsize);
constructor Create(x, y: real; Txt: string; width: real := 0; fontSize: real := 12):= Invoke(CreatePXY, x, y, Txt, width, fontSize);
/// Текст блока текста
property Text: string read InvokeString(()->tb.Text) write Invoke(SetTextP, value);
property FontSize: real read InvokeReal(()->tb.FontSize) write Invoke(SetFontSizeP, value);
/// Размер шрифта
property FontSize: real read InvokeReal(()->tb.FontSize) write Invoke(SetFontSizeP, value); virtual;
/// Имя шрифта
property FontName: string write Invoke(SetFontNameP, value); virtual;
end;
/// Элемент управления "Целое число"
IntegerBlockWPF = class(TextBlockWPF)
private
val := 0;
@ -246,9 +271,11 @@ type
constructor Create(message: string; initValue: integer := 0; fontSize: real := 12) := Invoke(CreateP, message, initValue, fontSize);
constructor Create(x, y: real; message: string; width: real := 0; initValue: integer := 0; fontSize: real := 12) := Invoke(CreatePXY, x, y, message, width, initValue, fontSize);
/// Значение целого
property Value: integer read val write begin val := value; Text := message + ' ' + val; end;
end;
/// Элемент управления "Вещественное число"
RealBlockWPF = class(TextBlockWPF)
private
val := 0.0;
@ -264,11 +291,13 @@ type
constructor Create(message: string; initValue: real := 0; fontSize: real := 12) := Invoke(CreateP, message, initValue, fontSize);
constructor Create(x, y: real; message: string; width: real := 0; initValue: real := 0; fontSize: real := 12) := Invoke(CreatePXY, x, y, message, width, initValue, fontSize);
/// Значение вещественного
property Value: real read val write begin val := value; Text := message + ' ' + val.ToString(FracDigits); end;
/// Количество цифр после десятичной точки
auto property FracDigits: integer := 1;
end;
///!#
/// Элемент управления "Текстовое поле"
TextBoxNoTitleWPF = class(CommonControlWPF)
private
property tb: GTextBox read element as GTextBox;
@ -289,25 +318,40 @@ type
begin
element := new TextBox();
element.Focusable := False;
tb.TextWrapping := TextWrapping.Wrap;
tb.AcceptsReturn := True;
//tb.TextWrapping := TextWrapping.Wrap;
tb.VerticalScrollBarVisibility := ScrollBarVisibility.Auto;
tb.HorizontalScrollBarVisibility := ScrollBarVisibility.Auto;
MainDockPanel.children.RemoveAt(MainDockPanel.children.Count-1);
MainDockPanel.children.Add(element);
end;
procedure SetReadOnlyP(value: boolean);
begin
element.Focusable := not value;
end;
constructor Create(i: integer) := Invoke(CreatePP);
public
/// Событие изменения текста
TextChanged: procedure;
constructor Create(text: string := '') := Invoke(CreateP, text);
constructor Create(x,y: real; text: string := ''; width: real := 0) := Invoke(CreatePXY, x, y, text, width);
/// Текст в текстовом поле
property Text: string read InvokeString(()->tb.Text) write Invoke(SetTextP, value);
/// Добавление строки в конец
procedure Print(s: string);
begin
Text += s + ' ';
end;
/// Добавление строки в конец и переход на новую строку
procedure Println(s: string);
begin
Text += s + NewLine;
end;
/// Очистка текста в текстовом поле
procedure Clear := Text := '';
/// Разрешено ли ручное редактирование текста
property Focusable: boolean read InvokeBoolean(()->not element.Focusable) write Invoke(SetReadOnlyP,value);
end;
///!#
@ -342,15 +386,28 @@ type
var sp := CreateStackPanel(el,title);
Init0(sp,width,x,y);
end;
procedure SetFSzP(size: real) := MainElement.FontSize := size;
procedure SetFSzP(size: real);
begin
tb.FontSize := size;
MainElement.FontSize := size;
end;
procedure SetFontNameP(name: string);
begin
tb.FontFamily := new FontFamily(name);
MainElement.FontFamily := new FontFamily(name);
end;
public
/// Заголовок
property Title: string read InvokeString(()->tb.Text) write Invoke(SetTitleP, value);
/// Высота элемента управления
property Height: real read InvokeReal(()->MainElement.ActualHeight) write Invoke(SetHP, value); override;
property FontSize: real read InvokeReal(()->MainElement.FontSize) write Invoke(SetFSzP, value); virtual;
/// Размер шрифта
property FontSize: real read InvokeReal(()->MainElement.FontSize) write Invoke(SetFSzP, value); override;
/// Имя шрифта
property FontName: string write Invoke(SetFontNameP, value); override;
end;
///!#
/// Элемент управления "Текстовое поле с заголовком"
TextBoxWPF = class(ControlWithTitleWPF)
private
property tbx: GTextBox read MainElement as TextBox;
@ -376,15 +433,20 @@ type
procedure CreateP(title,text: string) := CreatePXY(-1,-1,title,text,0);
constructor Create(i: integer) := Invoke(CreateAsMainControlP);
public
/// Событие "текст изменился"
TextChanged: procedure;
constructor Create(title: string := '') := Invoke(CreateP, title, '');
constructor Create(x,y: real; title: string := ''; width: real := 120) := Invoke(CreatePXY, x, y, title,'', width);
/// Очистка текста в текстовом поле
procedure Clear := Text := '';
/// Текст в текстовом поле
property Text: string read InvokeString(()->tbx.Text) write Invoke(SetTextP, value);
/// Разрешено ли несколько строк в текстовом поле
property MultiLine: boolean read InvokeBoolean(()->tbx.TextWrapping = TextWrapping.Wrap) write Invoke(SetMultiLineP, value);
end;
/// Элемент управления "Целое поле"
IntegerBoxWPF = class(TextBoxWPF)
private
function GetValue: integer;
@ -392,16 +454,16 @@ type
if Trim(Text) = '' then
Result := 0
else Result := integer.Parse(Text);
Result := Result.Clamp(Min,Max);
Result := Result.Clamp(Minimum,Maximum);
end;
procedure SetValue(x: integer) := Text := x.Clamp(Min,Max).ToString;
procedure SetValue(x: integer) := Text := x.Clamp(Minimum,Maximum).ToString;
procedure Rest(min,max:integer);
begin
Invoke(()-> begin
Self.Min := min;
Self.Max := max;
Value := Min;
Self.Minimum := min;
Self.Maximum := max;
Value := Minimum;
tbx.MouseWheel += (o, e) -> begin
if e.Delta > 0 then
Value := Value + 1
@ -426,13 +488,15 @@ type
Rest(min,max);
end;
auto property Min: integer := 0;
auto property Max: integer := 100;
/// Минимальное значение в тектовом поле
auto property Minimum: integer := 0;
/// Максимальное значение в тектовом поле
auto property Maximum: integer := 100;
/// Текущее значение текстового поля
property Value: integer read GetValue write SetValue;
end;
///!#
/// Элемент управления "Список"
ListBoxWPF = class(ControlWithTitleWPF)
protected
function lb: GListBox := MainElement as GListBox;
@ -461,20 +525,28 @@ type
procedure SortP := lb.Items.SortDescriptions.Add(new SortDescription('Content', ListSortDirection.Ascending));
procedure SortPDescending := lb.Items.SortDescriptions.Add(new SortDescription('Content', ListSortDirection.Descending));
public
/// Событие, возникающее при изменении текущего выделения
SelectionChanged: procedure;
constructor Create(title: string := ''; height: real := 150):= Invoke(CreateP, title, height);
constructor Create(x,y: real; title: string := ''; width: real := 150; height: real := 150):= Invoke(CreatePXY, x, y, title, width, height);
/// Сортировка строк в списке по возрастанию
procedure Sort := Invoke(SortP);
/// Сортировка строк в списке по убыванию
procedure SortDescending := Invoke(SortPDescending);
/// Добавляет элемент в список
procedure Add(s: string) := Invoke(AddP, s);
procedure AddRange(ss: sequence of string) := Invoke(AddRangeP, ss);
/// Добавляет набор элементов в список
procedure AddRange(params ss: array of string) := Invoke(AddRangeP, ss);
/// Количество элементов в списке
property Count: integer read InvokeInteger(()->lb.Items.Count);
/// Индекс выбранного элемента
property SelectedIndex: integer read InvokeInteger(()->lb.SelectedIndex) write Invoke(procedure(t: integer) -> lb.SelectedIndex := t, value);
/// Текст выбранного элемента
property SelectedText: string read InvokeString(()->(lb.SelectedItem as ListBoxItem).Content.ToString)
write Invoke(procedure(t: string) -> (lb.SelectedItem as ListBoxItem).Content := t, value);
end;
///!#
/// Элемент управления "Раскрывающийся список"
ComboBoxWPF = class(ControlWithTitleWPF)
private
property cb: ComboBox read MainElement as ComboBox;
@ -497,15 +569,20 @@ type
AddP(s);
end;
public
/// Событие, возникающее при изменении текущего выделения
SelectionChanged: procedure;
constructor Create(title: string := '') := Invoke(CreateP, title);
constructor Create(x,y: real; title: string := ''; width: real := 120) := Invoke(CreatePXY, x, y, title,'', width);
/// Добавляет элемент в список
procedure Add(s: string) := Invoke(AddP, s);
/// Добавляет набор элементов в список
procedure AddRange(params ss: array of string) := Invoke(AddRangeP, ss);
/// Выбранная строка
function SelectedString := InvokeString(()->cb.SelectedItem as string);
end;
/// Элемент управления "Слайдер"
SliderWPF = class(CommonControlWPF)
private
function sl: Slider := element as Slider;
@ -539,15 +616,21 @@ type
procedure ValueChangedP := if ValueChanged <> nil then ValueChanged;
public
/// Событие, возникающее при изменении значения
ValueChanged: procedure;
constructor Create(min, max: real; val: real := real.MinValue; freq: real := 0) := Invoke(CreateP, min, max, val, freq);
constructor Create(x,y: real; min, max: real; width: real; val: real := real.MinValue; freq: real := 0) := Invoke(CreatePXY, x,y,min, max, val, freq, width);
/// Минимальное значение
property Minimum: real read GetMinimum write SetMinimum;
/// Максимальное значение
property Maximum: real read GetMaximum write SetMaximum;
/// Текущее значение
property Value: real read GetValue write SetValue;
/// Интервал между делениями
property Frequency: real read GetFrequency write SetFrequency;
end;
/// Элемент управления "Флажок"
CheckBoxWPF = class(ClickableControlWPF)
private
property cb: CheckBox read element as CheckBox;
@ -563,10 +646,13 @@ type
constructor Create(text: string) := Invoke(CreateP, text);
constructor Create(x,y: real; text: string; width: real := 0) := Invoke(CreatePXY, x,y,text,width);
/// Текст элемента управления
property Text: string read InvokeString(()->cb.Content as string) write Invoke(procedure(t: string) -> cb.Content := t, value);
property IsChecked: boolean read InvokeBoolean(()->cb.IsChecked.Value) write Invoke(procedure(t: boolean) -> cb.IsChecked := t, value);
/// Включен ли флажок
property Checked: boolean read InvokeBoolean(()->cb.IsChecked.Value) write Invoke(procedure(t: boolean) -> cb.IsChecked := t, value);
end;
/// Элемент управления "Радиокнопка"
RadioButtonWPF = class(ClickableControlWPF)
private
property rb: RadioButton read element as RadioButton;
@ -582,10 +668,13 @@ type
constructor Create(text: string) := Invoke(CreateP, text);
constructor Create(x,y: real; text: string; width: real := 0) := Invoke(CreatePXY, x,y,text,width);
/// Текст элемента управления
property Text: string read InvokeString(()->rb.Content as string) write Invoke(procedure(t: string) -> rb.Content := t, value);
property IsChecked: boolean read InvokeBoolean(()->rb.IsChecked.Value) write Invoke(procedure(t: boolean) -> rb.IsChecked := t, value);
/// Включена ли радиокнопка
property Checked: boolean read InvokeBoolean(()->rb.IsChecked.Value) write Invoke(procedure(t: boolean) -> rb.IsChecked := t, value);
end;
/// Элемент управления "Строка статуса"
StatusBarWPF = class(CommonControlWPF)
private
property sb: GStatusBar read element as GStatusBar;
@ -621,15 +710,18 @@ type
end;
public
constructor Create(height: real := 24; itemWidth: real := 0) := Invoke(CreateP,height,itemWidth);
/// Добавить текстовое поле указанной ширины к строке статуса
procedure AddText(text: string; itemWidth: real := 0) := Invoke(AddItemP,text,itemWidth);
/// Текст основного текстового поля в строке статуса
property Text: string read InvokeString(()->(sb.Items[0] as StatusBarItem).Content as string)
write Invoke(SetTextP,value);
property ItemText[i: integer]: string read InvokeString(()->(sb.Items[0] as StatusBarItem).Content as string)
/// Текст i-того текстового поля в строке статуса
property ItemText[i: integer]: string read InvokeString(()->(sb.Items[i] as StatusBarItem).Content as string)
write Invoke(SetTextPI,i,value);
end;
///!#
/// Элемент управления "Канва"
CanvasWPF = class(CommonControlWPF)
protected
property can: Canvas read element as Canvas;
@ -648,6 +740,7 @@ type
end;
function GetColorP := (can.Background as SolidColorBrush).Color;
public
/// Цвет элемента управления
property Color: GColor read Invoke&<GColor>(GetColorP) write Invoke(SetColorP, value);
end;
@ -655,7 +748,7 @@ function GetProperties<T>(t1: T): sequence of string;
function GetFields<T>(t1: T): sequence of string;
type
///!#
/// Элемент управления "Список данных"
ListViewWPF = class(CommonControlWPF)
private
gv: GridView;
@ -671,11 +764,12 @@ type
end;
function ColumnCountP: integer := gv.Columns.Count;
function RowCountP: integer := lv.Items.Count;
public
constructor (i: integer);
begin
Invoke(CreatePP);
end;
public
/// Заполнить элемент управления данными
procedure Fill<T>(data: sequence of T);
begin
Invoke(()-> begin
@ -692,12 +786,14 @@ type
lv.ItemsSource := data;
end);
end;
/// Очистить данные
procedure Clear;
begin
Invoke(()-> begin
gv.Columns.Clear;
end);
end;
/// Установить заголовки для данных
procedure SetHeaders(params a: array of string);
begin
Invoke(()-> begin
@ -705,13 +801,18 @@ type
gv.Columns[i].Header := a[i];
end);
end;
/// Число столбцов данных
function ColumnCount: integer := InvokeInteger(ColumnCountP);
/// Число строк данных
function RowCount: integer := InvokeInteger(RowCountP);
end;
///!#
/// Пункт меню
MenuItemWPF = class
private
mi: MenuItem;
litem := new List<MenuItemWPF>;
procedure CreateP(mii: MenuItem; text: string);
begin
mi := mii;
@ -725,21 +826,47 @@ type
begin
mi.Header := text;
end;
function AddMenuItemP(text: string): MenuItemWPF;
function AddMenuItemP(text: string; p: procedure): MenuItemWPF;
begin
if text='-' then
begin
mi.Items.Add(new Separator);
exit
end;
var mii := new MenuItem;
mii.Header := text;
mi.Items.Add(mii);
Result := new MenuItemWPF(mii,text)
mii.Click += (o,e)->if Click<>nil then Click;
Result := new MenuItemWPF(mii,text);
Result.Click := p;
litem.Add(Result);
end;
procedure AddSeparatorP := mi.Items.Add(new Separator);
public
/// Событие выбора пункта меню
Click: procedure;
/// Текст пункта меню
property Text: string read InvokeString(()-> mi.Header as string) write Invoke(SetTextP,text);
function Add(text: string): MenuItemWPF := Invoke&<MenuItemWPF>(()->AddMenuItemP(text));
/// Набор пунктов меню
property Items[i: integer]: MenuItemWPF read Invoke&<MenuItemWPF>(()->litem[i]); default;
/// Добавить пункт подменю
function Add(text: string; p: procedure := nil): MenuItemWPF
:= Invoke&<MenuItemWPF>(()->AddMenuItemP(text,p));
/// Добавить разделитель
procedure AddSeparator := Invoke(AddSeparatorP);
/// Добавить набор пунктов меню
procedure AddRange(params items: array of string);
begin
foreach var it in items do
Add(it);
end;
end;
/// Элемент управления "Главное меню"
MenuWPF = class(CommonControlWPF)
private
litem := new List<MenuItemWPF>;
property m: Menu read element as Menu;
procedure CreatePP;
begin
@ -753,15 +880,25 @@ type
var mi := new MenuItem;
mi.Header := text;
m.Items.Add(mi);
Result := new MenuItemWPF(mi,text)
Result := new MenuItemWPF(mi,text);
litem.Add(Result);
end;
public
constructor Create := Invoke(CreatePP);
property Items[i: integer]: MenuItemWPF read Invoke&<MenuItemWPF>(()->litem[i]); default;
/// Добавить пункт горизонтального меню
function Add(text: string): MenuItemWPF := Invoke&<MenuItemWPF>(()->AddMenuItemP(text));
/// Добавить набор пунктов меню
procedure AddRange(params items: array of string);
begin
foreach var it in items do
Add(it);
end;
end;
///!#
/// Статический класс для создания главных контролов
/// Статический класс для создания главных элементов управления
SetMainControl = static class
public
static function AsImage: ImageWPF := new ImageWPF(0);
@ -770,49 +907,130 @@ type
static function AsTextBox: TextBoxNoTitleWPF := new TextBoxNoTitleWPF(0);
end;
///!#
/// Базовый класс стандартных окон диалога
FileDialogWPF = class
private
d: Microsoft.Win32.FileDialog;
procedure SetFilterP(value: string) := d.Filter := value;
procedure SetInitialDirectoryP(value: string) := d.InitialDirectory := value;
function ShowDialogP: boolean;
begin
var r := d.ShowDialog;
Result := r.HasValue and r.Value;
end;
public
function ShowDialog: boolean := InvokeBoolean(ShowDialogP);
function FileName: string := InvokeString(()->d.FileName);
property Filter: string read InvokeString(()->d.Filter) write Invoke(SetFilterP,value);
property InitialDirectory: string read InvokeString(()->d.InitialDirectory) write Invoke(SetInitialDirectoryP,value);
end;
/// Стандартное окно диалога открытия файла
OpenFileDialogWPF = class(FileDialogWPF)
private
procedure CreateP(initDirectory,filter: string);
begin
d := new Microsoft.Win32.OpenFileDialog;
d.InitialDirectory := initDirectory;
d.Filter := filter;
end;
public
constructor Create(initDirectory: string := ''; filter: string := '') := Invoke(CreateP,initDirectory,filter);
end;
/// Стандартное окно диалога сохранения файла
SaveFileDialogWPF = class(FileDialogWPF)
private
procedure CreateP(initDirectory,filter: string);
begin
d := new Microsoft.Win32.SaveFileDialog;
d.InitialDirectory := initDirectory;
d.Filter := filter;
end;
public
constructor Create(initDirectory: string := ''; filter: string := '') := Invoke(CreateP,initDirectory,filter);
end;
{-----------------------------------------------------}
// Для каждого контрола - пара функций.
// Функция без координат и ширины рассчитана на создание внутри вертикальной StackPanel (LeftPanel, RightPanel)
// Panel - вспомогательная, нужна только для создания LeftPanel, RightPanel
/// Элемент управления "Кнопка"
function Button(Txt: string; fontSize: real := 12): ButtonWPF;
/// Элемент управления "Кнопка" с заданными координатами
function Button(x, y: real; Txt: string; width: real := 0; fontSize: real := 12): ButtonWPF;
/// Элемент управления "Текст"
function TextBlock(Txt: string; fontSize: real := 12): TextBlockWPF;
/// Элемент управления "Текст" с заданными координатами
function TextBlock(x, y: real; Txt: string; width: real := 0; fontSize: real := 12): TextBlockWPF;
/// Элемент управления "Целое число"
function IntegerBlock(message: string; initValue: integer := 0; fontSize: real := 12): IntegerBlockWPF;
/// Элемент управления "Целое число" с заданными координатами
function IntegerBlock(x, y: real; message: string; width: real := 0; initValue: integer := 0; fontSize: real := 12): IntegerBlockWPF;
/// Элемент управления "Вещественное число"
function RealBlock(message: string; initValue: real := 0; fontSize: real := 12): RealBlockWPF;
/// Элемент управления "Вещественное число" с заданными координатами
function RealBlock(x, y: real; message: string; width: real := 0; initValue: real := 0; fontSize: real := 12): RealBlockWPF;
/// Элемент управления "Текстовое поле с заголовком"
function TextBox(text: string := ''): TextBoxWPF;
/// Элемент управления "Текстовое поле с заголовком" с заданными координатами
function TextBox(x, y: real; text: string := ''; width: real := 0): TextBoxWPF;
/// Элемент управления "Целое поле"
function IntegerBox(title: string; max: integer := 10): IntegerBoxWPF;
/// Элемент управления "Целое поле" с заданным диапазоном значений
function IntegerBox(title: string; min,max: integer): IntegerBoxWPF;
/// Элемент управления "Целое поле" с заданными координатами
function IntegerBox(x, y: real; title: string; min,max: integer; width: real := 0): IntegerBoxWPF;
/// Элемент управления "Список"
function ListBox(title: string := ''; height: real := 150): ListBoxWPF;
/// Элемент управления "Список" с заданными координатами
function ListBox(x,y: real; title: string := ''; width: real := 150; height: real := 150): ListBoxWPF;
/// Элемент управления "Слайдер"
function Slider(): SliderWPF;
/// Элемент управления "Слайдер" с заданным диапазоном значений
function Slider(min,max: real; val: real := real.MinValue; freq: real := 0): SliderWPF;
/// Элемент управления "Слайдер" с заданными координатами
function Slider(x,y: real; min,max: real; width: real; val: real := real.MinValue; freq: real := 0): SliderWPF;
/// Элемент управления "Изображение"
function Image(name: string): ImageWPF;
/// Элемент управления "Изображение" с заданными координатами
function Image(x,y: real; name: string; width: real := 0): ImageWPF;
/// Элемент управления "Раскрывающийся список"
function ComboBox(title: string := ''): ComboBoxWPF;
/// Элемент управления "Раскрывающийся список" с заданными координатами
function ComboBox(x,y: real; title: string := ''; width: real := 120): ComboBoxWPF;
/// Элемент управления "Главное меню"
function Menu: MenuWPF;
/// Стандартное окно диалога открытия файла
function OpenFileDialog(initDirectory: string := ''; filter: string := ''): OpenFileDialogWPF;
/// Стандартное окно диалога сохранения файла
function SaveFileDialog(initDirectory: string := ''; filter: string := ''): SaveFileDialogWPF;
/// Элемент управления "Левая панель"
function LeftPanel(width: real := 150; c: Color := PanelsColor; InternalMargin: real := 10): PanelWPF;
/// Элемент управления "Правая панель"
function RightPanel(width: real := 150; c: Color := PanelsColor; InternalMargin: real := 10): PanelWPF;
/// Элемент управления "Строка статуса"
function StatusBar(height: real := 24; itemWidth: real := 0): StatusBarWPF;
/// Пустой блок для задания промежутков между компонентами
procedure EmptyBlock(sz: integer := 16);
/// Графическое окно
function Window: WindowTypeWPF;
implementation
@ -862,9 +1080,15 @@ begin
end;
function Image(name: string): ImageWPF := new ImageWPF(name);
function Image(x,y: real; name: string; width: real): ImageWPF
:= new ImageWPF(x,y,name,width);
function Image(x,y: real; name: string; width: real): ImageWPF := new ImageWPF(x,y,name,width);
function ComboBox(title: string): ComboBoxWPF := new ComboBoxWPF(title);
function ComboBox(x,y: real; title: string; width: real): ComboBoxWPF := new ComboBoxWPF(x,y,title,width);
function Menu: MenuWPF := new MenuWPF;
function OpenFileDialog(initDirectory: string; filter: string) := new OpenFileDialogWPF(initDirectory,filter);
function SaveFileDialog(initDirectory: string; filter: string) := new SaveFileDialogWPF(initDirectory,filter);
function LeftPanel(width: real; c: Color; internalMargin: real) := new LeftPanelWPF(width,c,internalMargin);
function RightPanel(width: real; c: Color; internalMargin: real) := new RightPanelWPF(width,c,internalMargin);

2
bin/Lib/GraphWPF.pas
View file

@ -1531,7 +1531,7 @@ procedure DrawGraph(f: real -> real; a, b: real; r: GRect; title: string) := Dra
procedure DrawGraph(f: real -> real; r: GRect; title: string) := DrawGraph(f, -5, 5, r, title);
procedure DrawGraph(f: real -> real; a, b: real; title: string) := DrawGraph(f, a, b, 0, 0, Window.Width - 1, Window.Height - 1, title);
procedure DrawGraph(f: real -> real; a, b: real; title: string) := DrawGraph(f, a, b, 0, 0, GraphWindow.Width - 1, GraphWindow.Height - 1, title);
procedure DrawGraph(f: real -> real; title: string) := DrawGraph(f, -5, 5, title);