ParamForm.pas - master - Alex-Z/E-Library

ParamForm.pas
140 строк4 KB
Алексей Замула
create: LibraryForm.dfm, LibraryForm.pas, ParamForm.dfm, ParamForm.pas
19 май 2026, 20:03
19 май 2026, 20:039f9479f
unit ParamForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
  Vcl.ExtCtrls;

type
  TFParam = class(TForm)
    SysPanel: TPanel;
    FormIcon: TImage;
    iExit: TImage;
    iMin: TImage;
    lTitle: TLabel;
    procedure iExitClick(Sender: TObject);
    procedure iExitMouseEnter(Sender: TObject);
    procedure iExitMouseLeave(Sender: TObject);
    procedure iExitMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure iExitMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure iMinClick(Sender: TObject);
    procedure iMinMouseEnter(Sender: TObject);
    procedure iMinMouseLeave(Sender: TObject);
    procedure iMinMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure iMinMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure lTitleMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lTitleMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure lTitleMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FParam: TFParam;

implementation

uses MainForm, ZClasses;

{$R *.dfm}

procedure TFParam.FormCreate(Sender: TObject);
begin
  PaintButton(FormIcon.Canvas, SysPanel.Color, png_param, 34);
  PaintButton(iExit.Canvas, SysPanel.Color, png_close, 32);
  PaintButton(iMin.Canvas, SysPanel.Color, png_min, 32);
end;

procedure TFParam.iExitClick(Sender: TObject);
begin
  Close
end;

procedure TFParam.iExitMouseEnter(Sender: TObject);
begin
  PaintButton(iExit.Canvas, TThemeColor.clSelClose, png_close, 32)
end;

procedure TFParam.iExitMouseLeave(Sender: TObject);
begin
  PaintButton(iExit.Canvas, SysPanel.Color, png_close, 32)
end;

procedure TFParam.iExitMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PaintButton(iExit.Canvas, TThemeColor.clSelClose, png_close, 32, true)
end;

procedure TFParam.iExitMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PaintButton(iExit.Canvas, TThemeColor.clSelClose, png_close, 32)
end;

procedure TFParam.iMinClick(Sender: TObject);
begin
  FMain.WindowState := wsMinimized;
end;

procedure TFParam.iMinMouseEnter(Sender: TObject);
begin
  PaintButton(iMin.Canvas, TThemeColor.clSelBtn, png_min, 32)
end;

procedure TFParam.iMinMouseLeave(Sender: TObject);
begin
  PaintButton(iMin.Canvas, SysPanel.Color, png_min, 32)
end;

procedure TFParam.iMinMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PaintButton(iMin.Canvas, TThemeColor.clSelBtn, png_min, 32, true)
end;

procedure TFParam.iMinMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PaintButton(iMin.Canvas, TThemeColor.clSelBtn, png_min, 32)
end;

procedure TFParam.lTitleMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Moving := True;
  CurX := X;
  CurY := Y;
end;

procedure TFParam.lTitleMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Moving then
  begin
    Left := Left + X - CurX;
    Top := Top + Y - CurY;
    fLeft := FMain.Left;
    fTop := FMain.Top;
  end;
end;

procedure TFParam.lTitleMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Moving := False;
end;

end.