sgcUI sgcEditors 现已发布

sgcEditors. 十五种输入控件。处处一致。

带真实预订规则的日历、日期和时间选择器、范围滑块、颜色选择器、标记、星级评分和数值微调框。用自己的语言输入日期，用一个属性切换到深色主题，并把编辑器绑定到数据集。适用于 Delphi、C++ Builder 和 .NET，包含源代码。

下载试用版了解 sgcEditors

VCL
FireMonkey
WinForms
WPF
Avalonia
Delphi 7 至 13

9款输入控件同属一个系列，共用一套主题和一套键盘模型
5个界面框架：VCL、FireMonkey、WinForms、WPF、Avalonia
10款数据感知编辑器，可绑定到 TDataSet 字段
5种语言，Calendar 演示可在运行时切换

表单应得的输入控件。

日期、范围、颜色和标签，输入快速，不易出错。sgcEditors 涵盖真实业务表单中的各类字段，适用于所有框架。

十五种输入控件
日历、选择器、范围滑块、颜色、标记、评分、微调、按钮、搜索、掩码、货币和查找编辑框、备注框。
真正的文本输入
内部使用原生编辑框，因此输入法、剪贴板、撤销和屏幕阅读器都能正常工作。
数据感知
Delphi 中为 TDataSet 表单提供十个数据库编辑器，WPF 中支持双向绑定。
有主题，且清晰锐利
浅色和深色主题、按显示器适配的 DPI，以及每个控件独立的区域设置。

看它运行。

截取自试用版附带的 sgcEditors 演示。

控件

遵循真实预订规则的日历。

SelectionMode 可选择单个日期或一段日期范围， MaxRangeDays 限制范围的最大天数。
超出 MinDate 和 MaxDate、DisabledDates、DisabledWeekDays 的日期，以及 OnIsDateDisabled 拒绝的任何日期，都会带删除线且无法选择。
日期选择器的下拉面板使用同一个日历，因此无论在哪里选择日期，规则都同样生效。

输入与键盘

真正的键入，而不只是点击。

每个文本字段都是平台原生的编辑框，因此输入法组合输入、剪贴板、撤销、右键菜单和屏幕阅读器都能正常工作。
宽松解析：斜杠、连字符、点、冒号、逗号或空格都可以分隔各字段，并能识别区域设置中的月份和星期名称。
所有功能都无需鼠标：F4 或 Alt+Down 可打开所有下拉面板，日历方向键会跳过禁用的日期。

同一表单上的四个月历，分别使用英语、德语、西班牙语和法语，各有自己的一周起始日和星期名称

语言

每个控件都说用户的语言。

每个控件都有自己的 FormatSettings，因此同一个表单上的两个控件甚至可以使用两种区域设置。
FirstDayOfWeek 和 WeekNumbering 遵循区域设置或您自己的规则，默认使用 ISO 8601 周数。
支持阿拉伯语和希伯来语的从右到左排版：按钮移到另一侧，滑块、评分和日历都从右侧开始。

数据感知

把编辑器直接绑定到您的数据集。

十个数据感知控件通过 DataSource 和 DataField绑定到字段：日期选择器、时间选择器、数值微调框、评分、范围滑块、按钮编辑框、掩码编辑框、货币编辑框、备注框和查找编辑框。
范围滑块通过 EndDataField绑定第二个滑块，开启 AllowEmpty 时，空值字段显示为空。
TsgcEditorFieldLink 只使用 DB 单元，因此 FireMonkey 版本无需 LiveBindings。在 WPF 中，值属性支持双向绑定。

sgcEditors 的更多功能。

清晰的缩放、双滑块范围、标记和完整的 Gallery 表单，直接来自演示。

同一个月历在 100% 和 200% 缩放下的渲染效果 — 按逻辑像素布局，并按每台显示器的缩放比例绘制，代码中无需任何处理。

带两个滑块、刻度和标签的范围滑块 — `RangeMode` 增加第二个滑块； `Step` 让数值按步长对齐， `MinRange` 保持最小间距。

标记编辑框，带有 Delphi 和 VCL 两个标记以及“Add a tag”提示 — 标记编辑框会把键入或粘贴的文本变成标记， `OnValidateToken` 会检查每一个标记。

Gallery 演示：十五个编辑器位于同一个表单，浅色主题 — Gallery 演示：十五个编辑器位于同一个表单，带主题开关、只读开关和 PNG 导出。

几行代码即可完成反馈表单。

一个评分、一个范围滑块和一个标记编辑框，全部通过 OnChange报告变化。Delphi、C++ Builder 和 C# 使用相同的 API。

dotnet add package esegece.sgcEditors.WinForms

C++ Builder 和 C# 版本

uses
  SysUtils, Classes, Controls, Forms, StdCtrls,
  sgcEditors_Types, sgcEditors_VCL_Value, sgcEditors_VCL_Token;

type
  TFeedbackForm = class(TComponent)
  public
    Stars: TsgcVCLRating;
    Budget: TsgcVCLRangeSlider;
    Tags: TsgcVCLTokenEdit;
    Summary: TLabel;
    procedure EditorChange(Sender: TObject);
  end;

procedure TFeedbackForm.EditorChange(Sender: TObject);
begin
  // OnChange fires for every new value: clicked, dragged or typed
  Summary.Caption := Format('%.1f stars, budget %.0f to %.0f, %d tags',
    [Stars.Value, Budget.Value, Budget.EndValue, Tags.Tokens.Count]);
end;

function CreateFeedbackForm(aForm: TForm): TFeedbackForm;
begin
  Result := TFeedbackForm.Create(aForm);
  Result.Stars := TsgcVCLRating.Create(aForm);
  Result.Stars.Parent := aForm;
  Result.Stars.SetBounds(16, 16, 200, 32);
  Result.Stars.Glyph := ergHeart;
  Result.Stars.Precision := erpHalf;
  Result.Stars.Value := 3.5;
  Result.Stars.OnChange := Result.EditorChange;
  Result.Budget := TsgcVCLRangeSlider.Create(aForm);
  Result.Budget.Parent := aForm;
  Result.Budget.SetBounds(16, 60, 320, 48);
  Result.Budget.Max := 500;
  Result.Budget.Step := 10;
  Result.Budget.RangeMode := True;
  Result.Budget.Value := 80;
  Result.Budget.EndValue := 240;
  Result.Budget.ShowLabels := True;
  Result.Budget.OnChange := Result.EditorChange;
  Result.Tags := TsgcVCLTokenEdit.Create(aForm);
  Result.Tags.Parent := aForm;
  Result.Tags.SetBounds(16, 120, 320, 64);
  Result.Tags.TextHint := 'Add a tag';
  Result.Tags.AutoCompleteItems.CommaText := 'Breakfast,Parking,Pool';
  Result.Tags.AddToken('Breakfast');
  Result.Tags.OnChange := Result.EditorChange;
  Result.Summary := TLabel.Create(aForm);
  Result.Summary.Parent := aForm;
  Result.Summary.SetBounds(16, 196, 320, 20);
  Result.EditorChange(nil);
end;