mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 03:58:01 +02:00
1011 lines
30 KiB
ObjectPascal
1011 lines
30 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
* MUIWSStdCtrls.pp *
|
|
* --------------- *
|
|
* *
|
|
* *
|
|
*****************************************************************************
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.LCL, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
unit MuiWSStdCtrls;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// Bindings
|
|
exec, intuition, agraphics, utility, mui,
|
|
// LCL
|
|
Classes, StdCtrls, Controls, LCLType, sysutils, Math,
|
|
//
|
|
MUIBaseUnit, MuiStdCtrls, tagsparamshelper,
|
|
// Widgetset
|
|
WSStdCtrls, WSLCLClasses;
|
|
|
|
type
|
|
{ TMUIWSScrollBar }
|
|
|
|
TMUIWSScrollBar = class(TWSScrollBar)
|
|
private
|
|
protected
|
|
public
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure SetKind(const AScrollBar: TCustomScrollBar; const AIsHorizontal: Boolean); override;
|
|
class procedure SetParams(const AScrollBar: TCustomScrollBar); override;
|
|
class procedure ShowHide(const AWinControl: TWinControl); override;
|
|
end;
|
|
|
|
{ TMUIWSCustomGroupBox }
|
|
|
|
TMUIWSCustomGroupBox = class(TWSCustomGroupBox)
|
|
private
|
|
protected
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure DestroyHandle(const AWinControl: TWinControl); override;
|
|
end;
|
|
|
|
{ TMUIWSGroupBox }
|
|
|
|
TMUIWSGroupBox = class(TWSCustomGroupBox)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TMUIWSCustomComboBox }
|
|
|
|
TMUIWSCustomComboBox = class(TWSCustomComboBox)
|
|
private
|
|
protected
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure DestroyHandle(const AWinControl: TWinControl); override;
|
|
|
|
class procedure GetPreferredSize(const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean); override;
|
|
class function GetItemIndex(const ACustomComboBox: TCustomComboBox): integer; override;
|
|
class procedure SetItemIndex(const ACustomComboBox: TCustomComboBox; NewIndex: integer); override;
|
|
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
|
|
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
|
|
|
|
class function GetItems(const ACustomComboBox: TCustomComboBox): TStrings; override;
|
|
class procedure FreeItems(var AItems: TStrings); override;
|
|
end;
|
|
|
|
{ TMUIWSComboBox }
|
|
|
|
TMUIWSComboBox = class(TWSComboBox)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TMUIWSCustomListBox }
|
|
|
|
TMUIWSCustomListBox = class(TWSCustomListBox)
|
|
private
|
|
protected
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle; override;
|
|
class function GetStrings(const ACustomListBox: TCustomListBox
|
|
): TStrings; override;
|
|
class procedure FreeStrings(var AStrings: TStrings); override;
|
|
class procedure SetItemIndex(const ACustomListBox: TCustomListBox; const AIndex: integer); override;
|
|
class function GetItemIndex(const ACustomListBox: TCustomListBox): integer; override;
|
|
end;
|
|
|
|
{ TMUIWSListBox }
|
|
|
|
TMUIWSListBox = class(TWSListBox)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TMUIWSCustomEdit }
|
|
|
|
TMUIWSCustomEdit = class(TWSCustomEdit)
|
|
private
|
|
protected
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure DestroyHandle(const AWinControl: TWinControl); override;
|
|
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
|
|
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
|
|
class procedure SetReadOnly(const ACustomEdit: TCustomEdit; NewReadOnly: boolean); override;
|
|
class procedure SetNumbersOnly(const ACustomEdit: TCustomEdit; NewNumbersOnly: Boolean); override;
|
|
public
|
|
end;
|
|
|
|
{ TMUIWSCustomMemo }
|
|
|
|
TMUIWSCustomMemo = class(TWSCustomMemo)
|
|
private
|
|
protected
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure DestroyHandle(const AWinControl: TWinControl); override;
|
|
{ class procedure AppendText(const ACustomMemo: TCustomMemo; const AText: string); override;
|
|
class procedure SetAlignment(const ACustomMemo: TCustomMemo; const AAlignment: TAlignment); override;}
|
|
class function GetStrings(const ACustomMemo: TCustomMemo): TStrings; override;
|
|
class procedure FreeStrings(var AStrings: TStrings); override;
|
|
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
|
|
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
|
|
end;
|
|
|
|
{ TMUIWSEdit }
|
|
|
|
TMUIWSEdit = class(TWSEdit)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TMUIWSMemo }
|
|
|
|
TMUIWSMemo = class(TWSMemo)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TMUIWSButtonControl }
|
|
|
|
TMUIWSButtonControl = class(TWSButtonControl)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TMUIWSButton }
|
|
|
|
TMUIWSButton = class(TWSButton)
|
|
private
|
|
protected
|
|
published
|
|
class procedure GetPreferredSize(const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean); override;
|
|
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure DestroyHandle(const AWinControl: TWinControl); override;
|
|
class procedure Invalidate(const AWinControl: TWinControl); override;
|
|
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
|
|
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
|
|
end;
|
|
|
|
{ TMUIWSCustomCheckBox }
|
|
|
|
TMUIWSCustomCheckBox = class(TWSCustomCheckBox)
|
|
private
|
|
protected
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure DestroyHandle(const AWinControl: TWinControl); override;
|
|
|
|
class function RetrieveState(const ACustomCheckBox: TCustomCheckBox): TCheckBoxState; override;
|
|
class procedure SetState(const ACustomCheckBox: TCustomCheckBox; const NewState: TCheckBoxState); override;
|
|
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
|
|
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
|
|
class procedure GetPreferredSize(const AWinControl: TWinControl;
|
|
var PreferredWidth, PreferredHeight: integer;
|
|
WithThemeSpace: Boolean); override;
|
|
end;
|
|
|
|
{ TMUIWSCheckBox }
|
|
|
|
TMUIWSCheckBox = class(TWSCheckBox)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TMUIWSToggleBox }
|
|
|
|
TMUIWSToggleBox = class(TWSToggleBox)
|
|
private
|
|
protected
|
|
public
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure DestroyHandle(const AWinControl: TWinControl); override;
|
|
end;
|
|
|
|
{ TMUIWSRadioButton }
|
|
|
|
TMUIWSRadioButton = class(TWSRadioButton)
|
|
private
|
|
protected
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure DestroyHandle(const AWinControl: TWinControl); override;
|
|
end;
|
|
|
|
{ TMUIWSCustomStaticText }
|
|
|
|
TMUIWSCustomStaticText = class(TWSCustomStaticText)
|
|
private
|
|
protected
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle; override;
|
|
class procedure DestroyHandle(const AWinControl: TWinControl); override;
|
|
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
|
|
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
|
|
class procedure SetColor(const AWinControl: TWinControl); override;
|
|
end;
|
|
|
|
{ TMUIWSStaticText }
|
|
|
|
TMUIWSStaticText = class(TWSStaticText)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
MuiStringsUnit, forms;
|
|
|
|
|
|
class function TMUIWSScrollBar.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLHandle;
|
|
var
|
|
MUIScrollbar: TMUIScrollbar;
|
|
TagList: TATagList;
|
|
AScrollBar: TCustomScrollBar;
|
|
begin
|
|
AScrollBar := TCustomScrollBar(AWinControl);
|
|
TagList.AddTags([
|
|
MUIA_Prop_First, AScrollBar.Position,
|
|
MUIA_Prop_Entries, AScrollBar.Max - AScrollBar.Min,
|
|
MUIA_Prop_Visible, AScrollBar.PageSize
|
|
]);
|
|
if TScrollbar(AWinControl).Kind = sbHorizontal then
|
|
TagList.AddTags([MUIA_Group_Horiz, TagTrue])
|
|
else
|
|
TagList.AddTags([MUIA_Group_Horiz, TagFalse]);
|
|
MUIScrollbar := TMUIScrollbar.Create(TagList);
|
|
With MUIScrollbar do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MUIScrollbar.Parent := TMuiObject(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MUIScrollbar);
|
|
end;
|
|
|
|
class procedure TMUIWSScrollBar.SetKind(const AScrollBar: TCustomScrollBar; const AIsHorizontal: Boolean);
|
|
var
|
|
MUIScrollbar: TMUIScrollbar;
|
|
begin
|
|
MUIScrollBar := TMUIScrollbar(AScrollBar.Handle);
|
|
if Assigned(MUIScrollBar) then
|
|
begin
|
|
if MUIScrollBar.Horizontal <> AIsHorizontal then
|
|
RecreateWnd(AScrollBar);
|
|
end;
|
|
end;
|
|
|
|
class procedure TMUIWSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);
|
|
var
|
|
MUIScrollbar: TMUIScrollbar;
|
|
begin
|
|
MUIScrollBar := TMUIScrollbar(AScrollBar.Handle);
|
|
if Assigned(MUIScrollBar) then
|
|
begin
|
|
MUIScrollBar.MinValue := AScrollBar.Min;
|
|
MUIScrollBar.MaxValue := AScrollBar.Max;
|
|
MUIScrollBar.Position := AScrollBar.Position;
|
|
MUIScrollBar.PageSize := AScrollBar.PageSize;
|
|
end;
|
|
end;
|
|
|
|
class procedure TMUIWSScrollBar.ShowHide(const AWinControl: TWinControl);
|
|
begin
|
|
|
|
end;
|
|
|
|
|
|
{ TMUIWSCustomStaticText }
|
|
|
|
class function TMUIWSCustomStaticText.CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle;
|
|
var
|
|
MuiLabel: TMuiText;
|
|
TagList: TATagList;
|
|
begin
|
|
//writeln('-->Create Label');
|
|
TagList.Clear;
|
|
MuiLabel := TMuiText.Create(TagList);
|
|
With MuiLabel do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
Caption := PChar(AParams.Caption);
|
|
Color := AWinControl.Color;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MuiLabel.Parent := TMuiObject(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MuiLabel);
|
|
//
|
|
end;
|
|
|
|
class procedure TMUIWSCustomStaticText.DestroyHandle(const AWinControl: TWinControl
|
|
);
|
|
begin
|
|
TMuiObject(AWinControl.Handle).Free;
|
|
AWinControl.Handle := 0;
|
|
end;
|
|
|
|
class function TMUIWSCustomStaticText.GetText(const AWinControl: TWinControl;
|
|
var AText: String): Boolean;
|
|
begin
|
|
Result := True;
|
|
AText := TMuiArea(AWinControl.Handle).Caption;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomStaticText.SetText(const AWinControl: TWinControl;
|
|
const AText: String);
|
|
begin
|
|
TMuiArea(AWinControl.Handle).Caption := AText;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomStaticText.SetColor(const AWinControl: TWinControl);
|
|
begin
|
|
TMUIArea(AWinControl.Handle).Color := AWinControl.Color;
|
|
end;
|
|
|
|
{ TMUIWSCustomComboBox }
|
|
|
|
{------------------------------------------------------------------------------
|
|
Method: TMUIWSCustomComboBox.CreateHandle
|
|
Params: None
|
|
Returns: Nothing
|
|
|
|
Allocates memory and resources for the control and shows it
|
|
------------------------------------------------------------------------------}
|
|
class function TMUIWSCustomComboBox.CreateHandle(
|
|
const AWinControl: TWinControl; const AParams: TCreateParams): TLCLHandle;
|
|
var
|
|
MuiCycle: TMuiCycle;
|
|
begin
|
|
//writeln('-->Create ComboBox');
|
|
MuiCycle := TMuiCycle.Create(PChar(AWinControl.Caption), TCustomComboBox(AWinControl).items, TCustomComboBox(AWinControl).Style = csDropDown);
|
|
With MuiCycle do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MuiCycle.Parent := TMuiObject(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MuiCycle);
|
|
//
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Method: TMUIWSCustomComboBox.DestroyHandle
|
|
Params: None
|
|
Returns: Nothing
|
|
|
|
Releases allocated memory and resources
|
|
------------------------------------------------------------------------------}
|
|
class procedure TMUIWSCustomComboBox.DestroyHandle(const AWinControl: TWinControl);
|
|
begin
|
|
TMuiCycle(AWinControl.Handle).Free;
|
|
AWinControl.Handle := 0;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomComboBox.GetPreferredSize(const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean);
|
|
var
|
|
i: Integer;
|
|
CCN: TCustomComboBox absolute AWinControl;
|
|
MaxWidth: Integer;
|
|
begin
|
|
PreferredHeight := 22;
|
|
PreferredWidth := 50;
|
|
if Assigned(CCN) then
|
|
begin
|
|
MaxWidth := Length(CCN.Text);
|
|
for i := 0 to CCN.Items.Count - 1 do
|
|
begin
|
|
if Length(CCN.Items[i]) > MaxWidth then
|
|
MaxWidth := Length(CCN.Items[i]);
|
|
end;
|
|
PreferredWidth := 20 + (MaxWidth + 2) * 7;
|
|
end;
|
|
if AWinControl.Width < PreferredWidth then
|
|
PreferredWidth := AWinControl.Width;
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Method: TMUIWSCustomComboBox.GetItemIndex
|
|
Params: None
|
|
Returns: The state of the control
|
|
------------------------------------------------------------------------------}
|
|
class function TMUIWSCustomComboBox.GetItemIndex(
|
|
const ACustomComboBox: TCustomComboBox): integer;
|
|
begin
|
|
Result := TMuiCycle(ACustomComboBox.Handle).Active;
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Method: TMUIWSCustomComboBox.SetItemIndex
|
|
Params: Item index in combo
|
|
Returns: Nothing
|
|
------------------------------------------------------------------------------}
|
|
class procedure TMUIWSCustomComboBox.SetItemIndex(
|
|
const ACustomComboBox: TCustomComboBox; NewIndex: integer);
|
|
begin
|
|
TMuiCycle(ACustomComboBox.Handle).Active := NewIndex;
|
|
end;
|
|
|
|
class function TMUIWSCustomComboBox.GetText(const AWinControl: TWinControl;
|
|
var AText: String): Boolean;
|
|
var
|
|
MuiCycle: TMuiCycle;
|
|
begin
|
|
Result := True;
|
|
MuiCycle := TMuiCycle(AWinControl.Handle);
|
|
AText := MuiCycle.Text;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomComboBox.SetText(const AWinControl: TWinControl; const AText: String);
|
|
var
|
|
MuiCycle: TMuiCycle;
|
|
begin
|
|
MuiCycle := TMuiCycle(AWinControl.Handle);
|
|
MuiCycle.Text := AText;
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Method: TMUIWSCustomComboBox.GetItems
|
|
Params: None
|
|
Returns: Returns a TStrings controlling the combo items
|
|
------------------------------------------------------------------------------}
|
|
class function TMUIWSCustomComboBox.GetItems(
|
|
const ACustomComboBox: TCustomComboBox): TStrings;
|
|
begin
|
|
Result := TMuiCycle(ACustomComboBox.Handle).Strings;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomComboBox.FreeItems(var AItems: TStrings);
|
|
begin
|
|
// Freed by TMUICycle;
|
|
end;
|
|
|
|
{ TMUIWSCustomEdit }
|
|
|
|
{------------------------------------------------------------------------------
|
|
Method: TMUIWSCustomEdit.CreateHandle
|
|
Params: None
|
|
Returns: Nothing
|
|
------------------------------------------------------------------------------}
|
|
class function TMUIWSCustomEdit.CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle;
|
|
var
|
|
MuiEdit: TMuiStringEdit;
|
|
Tags: TATagList;
|
|
CEdit: TCustomEdit absolute AWinControl;
|
|
Len: Integer;
|
|
MUIAlign: Integer;
|
|
begin
|
|
//writeln('-->Create StringEdit ', AWinControl.name);
|
|
//writeln(' Caption: "', CEdit.Text, '" ', CEdit.MaxLength, ' password: ', CEdit.EchoMode);
|
|
//writeln(' Align: ', CEDit.Alignment);
|
|
//MuiEdit := TMuiStringEdit.Create([PChar(AParams.Caption), 2048]);
|
|
MUIAlign := MUIV_String_Format_Left;
|
|
case CEDit.Alignment of
|
|
taLeftJustify: MUIAlign := MUIV_String_Format_Left;
|
|
taRightJustify: MUIAlign := MUIV_String_Format_Right;
|
|
taCenter: MUIAlign := MUIV_String_Format_Center;
|
|
end;
|
|
Len := CEdit.MaxLength;
|
|
if Len = 0 then
|
|
Len := 2048;
|
|
Tags.AddTags([
|
|
MUIA_String_Format, MUIAlign,
|
|
MUIA_String_MaxLen, Len,
|
|
MUIA_String_Contents, NativeUInt(PChar(CEDit.Text)),
|
|
MUIA_String_Secret, IfThen(CEdit.EchoMode <> emNormal, TagTrue, TagFalse)
|
|
]);
|
|
MuiEdit := TMuiStringEdit.Create(Tags);
|
|
With MuiEdit do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
Text := CEDit.Text;
|
|
TabStop := AWinControl.TabStop;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MuiEdit.Parent := TMuiObject(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MuiEdit);
|
|
//
|
|
end;
|
|
|
|
class procedure TMUIWSCustomEdit.DestroyHandle(const AWinControl: TWinControl);
|
|
begin
|
|
//writeln('-->Free StringEdit');
|
|
TMuiObject(AWinControl.Handle).Free;
|
|
AWinControl.Handle := 0;
|
|
end;
|
|
|
|
class function TMUIWSCustomEdit.GetText(const AWinControl: TWinControl;
|
|
var AText: String): Boolean;
|
|
begin
|
|
//writeln('-->GetText');
|
|
Result := True;
|
|
if TObject(AWinControl.Handle) is TMuiStringEdit then
|
|
AText := TMuiStringEdit(AWinControl.Handle).Text;
|
|
//writeln('-->Get Text ', AWinControl.Name, ' "'+AText+'"');
|
|
end;
|
|
|
|
class procedure TMUIWSCustomEdit.SetText(const AWinControl: TWinControl;
|
|
const AText: String);
|
|
begin
|
|
//writeln('-->Set Text ', AWinControl.Name, ' "'+AText+'"');
|
|
if TObject(AWinControl.Handle) is TMuiStringEdit then
|
|
TMuiStringEdit(AWinControl.Handle).Text := AText;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomEdit.SetReadOnly(const ACustomEdit: TCustomEdit; NewReadOnly: boolean);
|
|
begin
|
|
if ACustomEdit is TMemo then
|
|
begin
|
|
TMuiTextEdit(ACustomEdit.Handle).ReadOnly := NewReadOnly;
|
|
end;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomEdit.SetNumbersOnly(const ACustomEdit: TCustomEdit; NewNumbersOnly: Boolean);
|
|
begin
|
|
//writeln('set numbers only ', NewNumbersOnly);
|
|
if TObject(ACustomEdit.Handle) is TMuiStringEdit then
|
|
TMuiStringEdit(ACustomEdit.Handle).NumbersOnly := NewNumbersOnly;
|
|
end;
|
|
|
|
{ TMUIWSButton }
|
|
|
|
class procedure TMUIWSButton.GetPreferredSize(const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean);
|
|
begin
|
|
PreferredHeight := 20;
|
|
PreferredWidth := 150;
|
|
if AWinControl is TCustomButton then
|
|
begin
|
|
PreferredWidth := 7 * Length(TCustomButton(AWinControl).Caption);
|
|
end;
|
|
if AWinControl.Width < PreferredWidth then
|
|
PreferredWidth := AWinControl.Width;
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Method: TMUIWSButton.GetText
|
|
Params: None
|
|
Returns: Nothing
|
|
------------------------------------------------------------------------------}
|
|
class function TMUIWSButton.GetText(const AWinControl: TWinControl;
|
|
var AText: String): Boolean;
|
|
begin
|
|
Result := True;
|
|
AText := TMuiButton(AWinControl.Handle).Caption;
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Method: TMUIWSButton.SetText
|
|
Params: None
|
|
Returns: Nothing
|
|
------------------------------------------------------------------------------}
|
|
class procedure TMUIWSButton.SetText(const AWinControl: TWinControl;
|
|
const AText: String);
|
|
var
|
|
t: string;
|
|
begin
|
|
t := stringreplace(AText, '&', '', [rfReplaceAll]);
|
|
TMuiButton(AWinControl.Handle).Caption := t;
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Method: TMUIWSButton.CreateHandle
|
|
Params: None
|
|
Returns: Nothing
|
|
|
|
Allocates memory and resources for the control and shows it
|
|
------------------------------------------------------------------------------}
|
|
class function TMUIWSButton.CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle;
|
|
|
|
var
|
|
MuiButton: TMuiButton;
|
|
Params: TAParamList;
|
|
begin
|
|
//writeln('-->Create Button');
|
|
Params.SetParams([NativeUInt(PChar(AParams.Caption))]);
|
|
MuiButton := TMuiButton.Create(Params);
|
|
With MuiButton do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MuiButton.Parent := TMuiObject(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MuiButton);
|
|
//
|
|
end;
|
|
|
|
class procedure TMUIWSButton.DestroyHandle(const AWinControl: TWinControl);
|
|
begin
|
|
//writeln('<--Destroy Button');
|
|
TMuiButton(AWinControl.Handle).Free;
|
|
AWinControl.Handle := 0;
|
|
end;
|
|
|
|
class procedure TMUIWSButton.Invalidate(const AWinControl: TWinControl);
|
|
begin
|
|
inherited Invalidate(AWinControl);
|
|
end;
|
|
|
|
{ TMUIWSCustomCheckBox }
|
|
|
|
class procedure TMUIWSCustomCheckBox.GetPreferredSize(const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean);
|
|
begin
|
|
PreferredHeight := 20;
|
|
PreferredWidth := Length(AWinControl.Caption) * 7 + 40;
|
|
if AWinControl.Width < PreferredWidth then
|
|
PreferredWidth := AWinControl.Width;
|
|
end;
|
|
|
|
|
|
class function TMUIWSCustomCheckBox.RetrieveState(
|
|
const ACustomCheckBox: TCustomCheckBox): TCheckBoxState;
|
|
begin
|
|
if TMuiArea(ACustomCheckBox.Handle).Checked then
|
|
Result := cbChecked
|
|
else
|
|
Result := cbUnchecked;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomCheckBox.SetState(
|
|
const ACustomCheckBox: TCustomCheckBox; const NewState: TCheckBoxState);
|
|
begin
|
|
//writeln('----> SET ', ACustomCheckBox.Tag, ' to ', (NewState = cbChecked));
|
|
TMuiArea(ACustomCheckBox.Handle).Checked := (NewState = cbChecked);
|
|
//writeln('<---- SET ', ACustomCheckBox.Tag, ' to ', (NewState = cbChecked));
|
|
end;
|
|
|
|
class function TMUIWSCustomCheckBox.GetText(const AWinControl: TWinControl;
|
|
var AText: String): Boolean;
|
|
begin
|
|
Result := False;
|
|
if AWinControl = nil then
|
|
Exit;
|
|
if AWinControl.Handle = 0 then
|
|
Exit;
|
|
AText := TMuiArea(AWinControl.Handle).Caption;
|
|
Result := True;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomCheckBox.SetText(const AWinControl: TWinControl;
|
|
const AText: String);
|
|
begin
|
|
//
|
|
//writeln('checkmark text: ',AText);
|
|
TMuiArea(AWinControl.Handle).Caption := AText;
|
|
end;
|
|
|
|
class function TMUIWSCustomCheckBox.CreateHandle(
|
|
const AWinControl: TWinControl; const AParams: TCreateParams
|
|
): TLCLHandle;
|
|
var
|
|
MuiCheckMark : TMuiCheckMark;
|
|
Params: TAParamList;
|
|
begin
|
|
//writeln('create CheckBox');
|
|
Params.SetParams([NativeUInt(PChar(AParams.Caption))]);
|
|
MuiCheckMark := TMuiCheckMark.Create(Params);
|
|
With MuiCheckMark do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
Color := AWinControl.Color;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MuiCheckMark.Parent := TMuiCheckMark(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MuiCheckMark);
|
|
end;
|
|
|
|
class procedure TMUIWSCustomCheckBox.DestroyHandle(
|
|
const AWinControl: TWinControl);
|
|
begin
|
|
//writeln('Destroy CheckBox');
|
|
TMuiCheckMark(AWinControl.Handle).Free;
|
|
AWinControl.Handle := 0;
|
|
end;
|
|
|
|
{ TMUIWSRadioButton }
|
|
|
|
class function TMUIWSRadioButton.CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle;
|
|
var
|
|
MUIRadioButton : TMuiRadioButton;
|
|
Params: TAParamList;
|
|
begin
|
|
//writeln('create CheckBox ', AParams.Caption);
|
|
Params.SetParams([NativeUInt(PChar(AParams.Caption))]);
|
|
MUIRadioButton := TMuiRadioButton.Create(Params);
|
|
With MUIRadioButton do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
Visible := False;
|
|
PasObject := AWinControl;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MUIRadioButton.Parent := TMUIRadioButton(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MUIRadioButton);
|
|
end;
|
|
|
|
class procedure TMUIWSRadioButton.DestroyHandle(const AWinControl: TWinControl);
|
|
begin
|
|
//writeln('Destroy RadioButton');
|
|
TMuiRadioButton(AWinControl.Handle).Free;
|
|
AWinControl.Handle := 0;
|
|
end;
|
|
|
|
class function TMUIWSToggleBox.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLHandle;
|
|
var
|
|
MUIToggleButton : TMuiToggleButton;
|
|
Params: TAParamList;
|
|
begin
|
|
//writeln('create ToggleBox');
|
|
Params.SetParams([NativeUInt(PChar(AParams.Caption))]);
|
|
MUIToggleButton := TMuiToggleButton.Create(MUIO_Button, Params);
|
|
With MUIToggleButton do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MUIToggleButton.Parent := TMUIToggleButton(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MUIToggleButton);
|
|
end;
|
|
|
|
class procedure TMUIWSToggleBox.DestroyHandle(const AWinControl: TWinControl);
|
|
begin
|
|
TMuiToggleButton(AWinControl.Handle).Free;
|
|
AWinControl.Handle := 0;
|
|
end;
|
|
|
|
{ TMUIWSCustomMemo }
|
|
|
|
class function TMUIWSCustomMemo.CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle;
|
|
var
|
|
MuiTEdit: TMuiTextEdit;
|
|
TagList: TATagList;
|
|
begin
|
|
//writeln('-->Create TextEdit NOW');
|
|
TagList.Clear;
|
|
MuiTEdit := TMuiTextEdit.Create(TCustomMemo(AWinControl).Lines, TagList);
|
|
With MuiTEdit do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MuiTEdit.Parent := TMuiObject(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MuiTEdit);
|
|
//
|
|
end;
|
|
|
|
class procedure TMUIWSCustomMemo.DestroyHandle(const AWinControl: TWinControl);
|
|
begin
|
|
//writeln('free object');
|
|
TMuiObject(AWinControl.Handle).free;
|
|
AWinControl.Handle := 0;
|
|
//writeln('done free object')
|
|
end;
|
|
|
|
class function TMUIWSCustomMemo.GetStrings(const ACustomMemo: TCustomMemo): TStrings;
|
|
begin
|
|
Result := TMuiTextEdit(ACustomMemo.Handle).Strings;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomMemo.FreeStrings(var AStrings: TStrings);
|
|
begin
|
|
AStrings := NIL;
|
|
end;
|
|
|
|
class function TMUIWSCustomMemo.GetText(const AWinControl: TWinControl;
|
|
var AText: String): Boolean;
|
|
begin
|
|
Result := True;
|
|
AText := TMuiTextEdit(AWinControl.Handle).Strings.Text;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomMemo.SetText(const AWinControl: TWinControl;
|
|
const AText: String);
|
|
begin
|
|
TMuiTextEdit(AWinControl.Handle).Strings.Text := AText;
|
|
end;
|
|
|
|
{ TMUIWSListBox }
|
|
|
|
class function TMUIWSCustomListBox.CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLHandle;
|
|
var
|
|
MuiList: TMuiListView;
|
|
TagList: TATagList;
|
|
begin
|
|
//writeln('-->Create ListView');
|
|
TagList.Clear;
|
|
MuiList := TMuiListView.Create(TCustomListBox(AWinControl).items, TagList);
|
|
With MuiList do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
end;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MuiList.Parent := TMuiObject(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MuiList);
|
|
//
|
|
end;
|
|
|
|
class function TMUIWSCustomListBox.GetStrings(
|
|
const ACustomListBox: TCustomListBox): TStrings;
|
|
begin
|
|
Result := TMuiListView(ACustomListBox.Handle).Strings;
|
|
end;
|
|
|
|
class procedure TMUIWSCustomListBox.FreeStrings(var AStrings: TStrings);
|
|
begin
|
|
//Do nothing, autofree by MUIlistbox
|
|
end;
|
|
|
|
class procedure TMUIWSCustomListBox.SetItemIndex(
|
|
const ACustomListBox: TCustomListBox; const AIndex: integer);
|
|
begin
|
|
TMuiListView(ACustomListBox.Handle).Active := AIndex;
|
|
end;
|
|
|
|
class function TMUIWSCustomListBox.GetItemIndex(
|
|
const ACustomListBox: TCustomListBox): integer;
|
|
begin
|
|
Result := TMuiListView(ACustomListBox.Handle).Active;
|
|
end;
|
|
|
|
{ TMUIWSCustomGroupBox }
|
|
|
|
class function TMUIWSCustomGroupBox.CreateHandle(
|
|
const AWinControl: TWinControl; const AParams: TCreateParams
|
|
): TLCLHandle;
|
|
var
|
|
MuiArea: TMUIGroupBox;
|
|
Tags: TATagList;
|
|
FText: PChar;
|
|
cap: String;
|
|
begin
|
|
Cap := AWinControl.Caption;
|
|
FText := System.AllocMem(Length(Cap) + 1);
|
|
Move(Cap[1], FText^, Length(cap));
|
|
Tags.AddTags([
|
|
MUIA_Frame, MUIV_Frame_Group,
|
|
MUIA_FrameTitle, NativeUInt(FText)
|
|
]);
|
|
MuiArea := TMUIGroupBox.Create(Tags);
|
|
With MuiArea do
|
|
begin
|
|
Left := AParams.X;
|
|
Top := AParams.Y;
|
|
Width := AParams.Width;
|
|
Height := AParams.Height;
|
|
PasObject := AWinControl;
|
|
Color := AWinControl.Color;
|
|
end;
|
|
MUIArea.FText := FText;
|
|
|
|
if AWinControl.Parent <> NIL then
|
|
begin
|
|
MuiArea.Parent := TMuiObject(AWinControl.Parent.Handle);
|
|
end;
|
|
//
|
|
Result := TLCLHandle(MUIArea);
|
|
//
|
|
end;
|
|
|
|
class procedure TMUIWSCustomGroupBox.DestroyHandle(
|
|
const AWinControl: TWinControl);
|
|
begin
|
|
TMUIGroupBox(AWinControl.Handle).Free;
|
|
end;
|
|
|
|
end.
|