Updated: Dec 16, 2023
Follow on twitter

����� � AlphaControls 2016 (������ 11)

��������� ��������������� ���� (��������������� � �������).

Click image for enlarge.

� ���������� TsSkinManager ��������� �������� Options.ScaleMode �� ���������� sm100, sm125, sm150, smAuto � smOldMode. ��������� ��-��������� �������� smOldMode, ��� ��� ��������� ����� ����� ���� ��� �� ��� � ����������� �������� ������, SkinManager ����� �� ����� ������ �� ������� ���� � �����������.

�������� sm100, sm125sm150 ��������� ��������� ������� �������, � ������� ����� ���������� ����� ���������� (100:100, 125:100 � 150:100 ��������������).

���� ����������� �������� smAuto, �� SkinManager ����� �������� ������� ������������� � ����������� �� �������� �������.


���� ������ �������� � ���������� TsAlphaImageList, �� ��� ������ ������� �������������:


������������ ��� ������������ ����������, ��������������� � ������� �������� TsSkinManager.Options.ScaleMode:
  • �������� TForm.Scaled ������ ���� ���������.
  • ������� TsSkinManager.ScaleInt ������������ ����� ����� � �������� ��������, ����� ����������� ��� ��������� ����� ������ ������ � � ������ �������.
  • ��� ������������ ��������� �������� ���� (���� ����������) ����������� ��������� TsSkinManager.UpdateScale(Ctrl: TWinControl; iCurrentScale: integer = 100). ��������� ������ ������� ���� �� ��������, ��������� ���������� iCurrentScale � �������� ����������.
  • ����������� TsAlphaImageList ��� �������� ������, ������� ����� ������������� ������ ������ � ����������� �� �������� � SkinManager.
�����������, �������������� ��� ������������� �������� TsSkinManager.Options.ScaleMode:
  • ��������� SkinManager ������ ���� ������� ��� ������ �������� Options.ScaleMode
  • ��������� ������� ������ ����� �������, �������� � �������, SkinManager �� ������ �� ������� ��������� ��������.
  • ����������� ������ ���� ��������� ��� ������������ � ��������� � ����������������� ��������� ����������, � ����� �� ��������� Anchors
����������� ������ ���� � ���� ������������ ����, �������� ���� ��� PopupMenu.

��� ������ ����� � ����� ������������ ���� ���������� ������� ���� �� ��������, ����������� � ������ acPopupController.pas

��� ������ ������ ��������� ������������ ���� ����� ��������� ������������� ������������ �������� ���������� AOwnerControl. ������ ��������� ��������� ������ ���������� ������ �������� ���� �����.


����� ����������
TsSkinSelector

��������� ������������� ������� ��������� ����� � ������������ �� ������������ � ���� �������� ������ � ��������������. ��������� �������� ����� ���������� ������������� ����� ������ �������������.

TsTrackEdit

���������, ����������� ������������� ����� � ������� ������������ ���� � TrackBar.

TsPopupBox

��������� ����� ��� ComboBox � ��������� ���������� ����� ����� ��� ����������� ���� ������ ������ ComboBox.

������� ����� ������� ����� ������� ����� ������������ ��� ������� �� TsPopupBox. ����� ��� ����� ����� ��������� � �������� TsPopupBox.PopupForm. ����� ������� ����� �� PopupBox ��� ���������� ������ Alt+Down ������������� ����� ����� ��������.

���������� ��������� �������� ������������ �������� �������������. ��������, ����� ������ �� ����� ������ "Ok", ������� ��������� ����� � ����������� ���� TsPopupBox.Text ������������ ��������.

TsGradientPanel

��������� ������������ ����� ������, ����������� ����������. ���������� ����������� ������������ ���� �������� �����, ��� ������� ��� ���������� ������������� �� ����� �������.

����������� �������� PaintData ��� ������� ������ � ����������� ���������. ���� ��������� ���������� �������� �������� PaintData.CustomGradient:

����� ��������
TsSkinManager.MenuSupport.CustomFont � TsSkinManager.MenuSupport.Font

���� �������� CustomFont �����������, �� ���� ����������� �������� ����� ���������� ���� � ������� �������� Font.

��� �������� �������� ������ ���� ����� �������.

TsColorSelect.PopupMode

�������� ��������� �������� ������ ������ �����. ���� ������ ��� cpmColorList, �� ���� ���������� �� ����������� ������. ���� cpmPickColor, �� ��� ������� �� ��������� �������� ������ ������ �����.

TsSkinProvider.DisabledBlendColor

��������� �������� ���� ���������� ���� ��� Enabled = False � ������������� �������� TsSkinProvider.DisabledBlendValue

TsFrameBar.Items[i].Alignment

��������� ����������� �� ����������� ���������� ��������� ����������.

TsTimePicker.Use12Hour

���� �������� ��������, �� ����� ������������� � 12-�� ������� ������� (AM/PM)

TsDateEdit.IsEmpty

���������� True ���� �������� ���������� ������.

����� ���������
procedure ChangeControlColors(AControl: TControl; AFontColor, AColor: TColor);

��������� ������ ���� ���� � ������ ��������� �������� ����������. ���� ����� ���� clNone � ������� ���������� ��������, �� �������� ������������ � ����, ������� ����� � ������� �����. ��������� ��������� � ������ sVclUtils.pas

������ ���������
��������� ���������� ������ "MAINCOLOR"

������ ������ � ������ ����� ������ ������� ���������� �������� ������ �����, ������� �����������.

������ ������� ����� ����������� ����.




Installing, using and licensing the demo programs � Sergii Goncharov, Ukraine, Odessa 2004-2023