Trzeci wpis w tej serii o 25 nowych komponentach sgcHTML. Tym razem formularze: sześć pól, które pojawiają się niemal w każdym ekranie administracyjnym, jaki kiedykolwiek trzeba było budować ręcznie — wybór tagów, próbka koloru, suwak zakresu, pole czasu, przechwytywanie podpisu i dwupanelowy przydzielacz ról. Każdy z nich to zwykły komponent Delphi/C++Builder/.NET: konfigurujesz go, odczytujesz HTML, a on wraca w tym samym cyklu żądania co każde inne pole formularza.
MultiSelect — wybór tagów z chipami
TsgcHTMLComponent_MultiSelect to przeszukiwalna lista rozwijana, która pozwala odwiedzającemu wybrać kilka wartości pokazywanych jako usuwalne chipy, z opcjonalnym limitem MaxSelections. Opcje można dodawać pojedynczo albo powiązać komponent bezpośrednio ze zbiorem danych.
uses
sgcHTML_Component_MultiSelect;
var
oMulti: TsgcHTMLComponent_MultiSelect;
begin
oMulti := TsgcHTMLComponent_MultiSelect.Create(nil);
try
oMulti.FieldName := 'tags';
oMulti.Placeholder := 'Select tags';
oMulti.MaxSelections := 3;
oMulti.Size := mssLarge;
oMulti.AddOption('js', 'JavaScript', True);
oMulti.AddOption('py', 'Python');
oMulti.AddOption('pas', 'Pascal');
WebModule.Response := oMulti.HTML; // dropdown + chips + hidden inputs
finally
oMulti.Free;
end;
end;
// Or fill it straight from a dataset:
oMulti.LoadFromDataSet(qryTags, 'Code', 'Name', 'IsSelected');
ColorPicker — natywne pole plus gotowe próbki jednym kliknięciem
TsgcHTMLComponent_ColorPicker opakowuje natywne pole koloru HTML5 opcjonalnym polem tekstowym z zapisem szesnastkowym oraz rzędem gotowych próbek dostępnych jednym kliknięciem — przydatne od ustawienia koloru marki po kolor tagu wydarzenia w kalendarzu.
uses
sgcHTML_Component_ColorPicker;
var
oColor: TsgcHTMLComponent_ColorPicker;
begin
oColor := TsgcHTMLComponent_ColorPicker.Create(nil);
try
oColor.FieldName := 'brand_color';
oColor.LabelText := 'Brand color';
oColor.Value := '#0d6efd';
oColor.ShowValueInput := True;
oColor.Swatches.Add('#0d6efd');
oColor.Swatches.Add('#198754');
oColor.Swatches.Add('#dc3545');
WebModule.Response := oColor.HTML; // color input + hex field + swatches
finally
oColor.Free;
end;
end;
// Or the static one-liner (field name, value, label):
Result := TsgcHTMLComponent_ColorPicker.Build('brand_color', '#0d6efd', 'Brand color');
Slider — suwak zakresu z odznaką aktualnej wartości
TsgcHTMLComponent_Slider to suwak zakresu Bootstrap z etykietami min/max oraz odznaką, która śledzi aktualną wartość w trakcie przeciągania, dopasowaną kolorem do motywu.
uses
sgcHTML_Enums, sgcHTML_Component_Slider;
var
oSlider: TsgcHTMLComponent_Slider;
begin
oSlider := TsgcHTMLComponent_Slider.Create(nil);
try
oSlider.FieldName := 'volume';
oSlider.LabelText := 'Volume';
oSlider.Min := 0;
oSlider.Max := 100;
oSlider.Step := 5;
oSlider.Value := 50;
oSlider.ShowMinMax := True;
oSlider.ColorStyle := hcSuccess;
WebModule.Response := oSlider.HTML; // form-range + live value badge
finally
oSlider.Free;
end;
end;
TimePicker — wprowadzanie czasu w ograniczonym zakresie
TsgcHTMLComponent_TimePicker to natywne pole czasu z konfigurowalnymi granicami MinTime/MaxTime — pole do rezerwacji wizyt, godzin otwarcia czy planowania zmian. Ma też statyczną pomocniczą metodę Build.
uses
sgcHTML_Component_TimePicker;
var
oTime: TsgcHTMLComponent_TimePicker;
begin
oTime := TsgcHTMLComponent_TimePicker.Create(nil);
try
oTime.FieldName := 'appointment_time';
oTime.LabelText := 'Appointment time';
oTime.MinTime := '08:00';
oTime.MaxTime := '18:00';
oTime.Required := True;
WebModule.Response := oTime.HTML; // <input type="time">
finally
oTime.Free;
end;
end;
// Or the static one-liner (field name, label, value):
Result := TsgcHTMLComponent_TimePicker.Build('appointment_time', 'Appointment time');
SignaturePad — przechwytywanie podpisu na płótnie
TsgcHTMLComponent_SignaturePad renderuje płótno obsługujące zdarzenia wskaźnika, z przyciskami Wyczyść, Cofnij i Zapisz, konfigurowalnym kolorem i szerokością pióra oraz adresem UploadURL, na który przesyłany jest przechwycony obraz. Zatwierdzanie dostaw, podpisywanie umów, formularze zrzeczenia się — wszędzie tam, gdzie mokry podpis zamienił się w dotknięcie ekranu.
uses
sgcHTML_Component_SignaturePad;
var
oPad: TsgcHTMLComponent_SignaturePad;
begin
oPad := TsgcHTMLComponent_SignaturePad.Create(nil);
try
oPad.FieldName := 'signature';
oPad.Width := 500;
oPad.Height := 220;
oPad.PenColor := '#1a1a2e';
oPad.PenWidth := 3;
oPad.UploadURL := '/api/signatures/upload';
WebModule.Response := oPad.HTML; // <canvas> + Clear/Undo/Save buttons
finally
oPad.Free;
end;
end;
Transfer — dwupanelowy przydzielacz ról
TsgcHTMLComponent_Transfer to klasyczny dwupanelowy widżet do przenoszenia elementów między listą "dostępnych" a "przydzielonych" — uprawnienia, role, przynależność do grup. ShowFilter dodaje pole wyszukiwania do każdego panelu, a FieldName sprawia, że strona przydzielona wraca jako ukryte pola formularza, więc wysłanie formularza po prostu działa.
uses
sgcHTML_Component_Transfer;
var
oTransfer: TsgcHTMLComponent_Transfer;
begin
oTransfer := TsgcHTMLComponent_Transfer.Create(nil);
try
oTransfer.TransferID := 'roles';
oTransfer.FieldName := 'roles';
oTransfer.TitleSource := 'Available roles';
oTransfer.TitleTarget := 'Assigned roles';
oTransfer.ShowFilter := True;
oTransfer.Height := '260px';
oTransfer.AddItem('admin', 'Administrator');
oTransfer.AddItem('editor', 'Editor', True);
oTransfer.AddItem('viewer', 'Viewer');
WebModule.Response := oTransfer.HTML; // dual panels + buttons + script
finally
oTransfer.Free;
end;
end;
// Or bind it straight to a dataset:
oTransfer.LoadFromDataSet(qryRoles, 'RoleId', 'RoleName', 'IsAssigned');
Wypróbuj je
Pełna dokumentacja, opisy kluczowych właściwości oraz przykłady kodu Delphi/C++Builder/.NET znajdują się na stronie każdego komponentu: MultiSelect, ColorPicker, Slider, TimePicker, SignaturePad oraz Transfer. W następnym odcinku: odznaki, podgląd PDF i komponenty, dzięki którym zapełniony ekran zaczyna działać responsywnie.
Masz pytania, uwagi albo potrzebujesz pomocy przy migracji? Skontaktuj się z nami — odpowie Ci osoba, która napisała ten kod.
