lazarus/lcl/interfaces/mui/muiwsforms.pp

{
 *****************************************************************************
 *                               MUIWSForms.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 MUIWSForms;

{$mode objfpc}{$H+}

interface

uses
  sysutils, Intuition, exec, utility,
  // LCL
  MUIBaseUnit, MuiFormsUnit, Mui, Classes, Forms, LCLType, Controls, Graphics,
  tagsparamshelper,
  // Widgetset
  WSForms, WSLCLClasses;

type

  { TMUIWSScrollingWinControl }

  TMUIWSScrollingWinControl = class(TWSScrollingWinControl)
  private
  protected
  public
  end;

  { TMUIWSScrollBox }

  TMUIWSScrollBox = class(TWSScrollBox)
  private
  protected
  public
  end;

  { TMUIWSCustomFrame }

  TMUIWSCustomFrame = class(TWSCustomFrame)
  private
  protected
  public
  end;

  { TMUIWSFrame }

  TMUIWSFrame = class(TWSFrame)
  private
  protected
  public
  end;

  { TMUIWSCustomForm }

  TMUIWSCustomForm = class(TWSCustomForm)
  private
  protected
  published
    class function  GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;

    class function  CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLHandle; override;
    class procedure DestroyHandle(const AWinControl: TWinControl); override;

    class procedure SetText(const AWinControl: TWinControl; const AText: String); override;

    class procedure SetFormBorderStyle(const AForm: Forms.TCustomForm;
                             const AFormBorderStyle: TFormBorderStyle); override;
    class procedure SetFont(const AWinControl: TWinControl;
                           const AFont: TFont); override;
    class procedure SetPos(const AWinControl: TWinControl; const ALeft, ATop: Integer); override;
    class procedure SetSize(const AWinControl: TWinControl; const AWidth, AHeight: Integer); override;
    class procedure ShowHide(const AWinControl: TWincontrol); override;
  end;

  { TMUIWSForm }

  TMUIWSForm = class(TWSForm)
  private
  protected
  public
  end;

  { TMUIWSHintWindow }

  TMUIWSHintWindow = class(TWSHintWindow)
  private
  protected
  public
  end;

  { TMUIWSScreen }

  TMUIWSScreen = class(TWSScreen)
  private
  protected
  public
  end;

  { TMUIWSApplicationProperties }

  TMUIWSApplicationProperties = class(TWSApplicationProperties)
  private
  protected
  public
  end;

implementation



{ TMUIWSCustomForm }

{------------------------------------------------------------------------------
  Method: TMUIWSCustomForm.CreateHandle
  Params:  None
  Returns: Nothing

  Allocates memory and resources for the control and shows it
 ------------------------------------------------------------------------------}
class function TMUIWSCustomForm.CreateHandle(const AWinControl: TWinControl;
  const AParams: TCreateParams): TLCLHandle;
var
  MUIForm: TMuiWindow;
  TagList: TATagList;
  Sizeable: Boolean;
begin
  //writeln('--> Create Form');
  Sizeable := True;
  case TCustomForm(AWincontrol).BorderStyle of
    bsNone: begin
      Sizeable := False;
      TagList.AddTags([MUIA_Window_Borderless, TagTrue]);
    end;
    bsDialog: begin
      TagList.AddTags([
        MUIA_Window_CloseGadget, TagTrue,
        MUIA_Window_SizeRight, TagFalse,
        MUIA_Window_SizeGadget, TagFalse
        ]);
      Sizeable := False;
    end;
    bsSingle: begin
      TagList.AddTags([MUIA_Window_SizeRight, TagFalse]);
    end;
    bsToolWindow: begin
      TagList.AddTags([MUIA_Window_SizeRight, TagFalse]);
      Sizeable := False;
    end;
    bsSizeToolWin: begin
      TagList.AddTags([MUIA_Window_SizeRight, TagFalse]);
    end;
  end;
  TagList.AddTags([
    MUIA_Window_LeftEdge, AParams.X,
    MUIA_Window_TopEdge, AParams.Y,
    MUIA_Window_Width, AParams.Width,
    MUIA_Window_Height, AParams.Height
    ]);
  MuiForm := TMuiWindow.Create(TagList);
  MuiForm.Sizeable := Sizeable;
  With Muiform do
  begin
    Left := AParams.X;
    Top := AParams.Y;
    Width := AParams.Width;
    Height := AParams.Height;
    PasObject := AWinControl;
    Caption := TCustomForm(AWinControl).Caption;
  end;
  Result := TLCLHandle(MuiForm);
end;

{------------------------------------------------------------------------------
  Method: TMUIWSCustomForm.DestroyHandle
  Params:  None
  Returns: Nothing
 ------------------------------------------------------------------------------}
class procedure TMUIWSCustomForm.DestroyHandle(const AWinControl: TWinControl);
begin
  //Writeln('<-- Destroy Form');
  TMuiWindow(AWinControl.Handle).Free;
  AWinControl.Handle := 0;
end;

{------------------------------------------------------------------------------
  Method: TMUIWSCustomForm.GetText
  Params:  None
  Returns: Nothing
 ------------------------------------------------------------------------------}
class function TMUIWSCustomForm.GetText(const AWinControl: TWinControl;
  var AText: String): Boolean;
var
  MUIForm: TMuiWindow;
begin
  Result := False;
  MUIForm := TMuiWindow(AWinControl.Handle);
  if Assigned(MUIForm) then
  begin
    AText := MUIForm.Caption;
    Result := True;
  end;
end;

{------------------------------------------------------------------------------
  Method: TMUIWSCustomForm.SetFormBorderStyle
  Params:  None
  Returns: Nothing
 ------------------------------------------------------------------------------}
class procedure TMUIWSCustomForm.SetFormBorderStyle(const AForm: Forms.TCustomForm;
  const AFormBorderStyle: TFormBorderStyle);
begin

end;

class procedure TMUIWSCustomForm.SetFont(const AWinControl: TWinControl;
  const AFont: TFont);
begin
end;

{------------------------------------------------------------------------------
  Method: TMUIWSCustomForm.SetText
  Params:  None
  Returns: Nothing
 ------------------------------------------------------------------------------}
class procedure TMUIWSCustomForm.SetText(const AWinControl: TWinControl;
  const AText: String);
var
  MUIForm: TMuiWindow;
begin
  MUIForm := TMuiWindow(AWinControl.Handle);
  if Assigned(MUIForm) then
  begin
    MUIForm.Caption := AText;
  end;
end;


class procedure TMUIWSCustomForm.SetPos(const AWinControl: TWinControl; const ALeft, ATop: Integer);
var
  AForm: PWindow;
  dX: LongInt;
  dY: LongInt;
begin
  //writeln('setpos ', Aleft, ATop);
  AForm := MUIRenderInfo(TMuiObject(AWinControl.Handle).obj)^.mri_Window;
  if Assigned(AForm) then
  begin
    dX := AForm^.LeftEdge - ALeft;
    dY := AForm^.TopEdge - ATop;
    MoveWindow(AForm, dX, dY);
  end;
end;

class procedure TMUIWSCustomForm.SetSize(const AWinControl: TWinControl; const AWidth, AHeight: Integer);
var
  AForm: PWindow;
  dX: LongInt;
  dY: LongInt;
begin
  //writeln('setsize ', AWidth, AHeight);
  AForm := MUIRenderInfo(TMuiObject(AWinControl.Handle).obj)^.mri_Window;
  if Assigned(AForm) then
  begin
    dX := AForm^.Width - AWidth;
    dY := AForm^.Height - AHeight;
    SizeWindow(AForm, dX, dY);
  end;
end;

class procedure TMUIWSCustomForm.ShowHide(const AWinControl: TWincontrol);
begin
  inherited ShowHide(AWinControl);
  TMuiWindow(AWinControl.Handle).Visible := AWinControl.Visible;
end;


end.