Delphi制作手机签名app（windows同样适用）

功能

Delphi开发手机签名app

主要代码

unit Unit2;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts,
  System.Generics.Collections;

type
  TSignature = Record
    PositionCursor: TPointF;
    PosState: Byte;
  End;

  TForm2 = class(TForm)
    rect_Signature: TRectangle;
    btn_ok: TSpeedButton;
    Layout1: TLayout;
    btn_voltar: TSpeedButton;
    Label1: TLabel;
    img_temp: TImage;
    btn_clear: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn_clearClick(Sender: TObject);
    procedure btn_voltarClick(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure rect_SignatureMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Single);
    procedure rect_SignatureMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure rect_SignaturePaint(Sender: TObject; Canvas: TCanvas;
      const ARect: TRectF);
  private
    { Private declarations }
  public
    { Public declarations }
    Sign: TList<TSignature>;
    botao: boolean;
    procedure AddPoint(const X, Y: Single; const state: Byte);
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}

uses Unit1;

{ TForm2 }

procedure TForm2.AddPoint(const X, Y: Single; const state: Byte);
var
  p: TSignature;
begin
  p.PositionCursor := PointF(X, Y);
  p.PosState := state;

  if Sign.Count - 1 < 0 then
    p.PosState := 0;

  if p.PosState <> 1 then
    Sign.Add(p)
  else if p.PositionCursor.Distance(Sign.Last.PositionCursor) > 0.8 then
    Sign.Add(p);

  rect_Signature.Repaint;
end;

procedure TForm2.btn_clearClick(Sender: TObject);
begin
  Sign.Clear;
  rect_Signature.Repaint;
end;

procedure TForm2.btn_okClick(Sender: TObject);
begin
  // 旋转签名...
  img_temp.RotationAngle := 0;
  img_temp.Bitmap := rect_Signature.MakeScreenshot;
  img_temp.Bitmap.Rotate(90);

  // 发送签名到Form1...
  form1.img_assinatura.Bitmap.Assign(img_temp.MakeScreenshot);
  close;
end;

procedure TForm2.btn_voltarClick(Sender: TObject);
begin
  Sign.Clear;
  close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Sign := TList<TSignature>.Create;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Sign);
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Sign.Clear;
end;

procedure TForm2.rect_SignatureMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Single);
begin
  // 如果按下...
  if ssLeft in Shift then
  begin
    if NOT botao then
    begin
      // 拖动开始画...
      AddPoint(X, Y, 0);
      botao := true;
    end
    else
      AddPoint(X, Y, 1);
  end;
end;

procedure TForm2.rect_SignatureMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  botao := false;
  AddPoint(X, Y, 2);
end;

procedure TForm2.rect_SignaturePaint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
var
  p: TSignature;
  p1, p2: TPointF;
begin
  if NOT(Sign.Count - 1 > 0) then
    exit;

  Canvas.Stroke.Kind := TBrushKind.Solid;
  Canvas.Stroke.Dash := TStrokeDash.Solid;
  Canvas.Stroke.Thickness := 4;
  Canvas.Stroke.Color := TAlphaColorRec.Darkblue;

  for p in Sign do
  begin
    case p.PosState of
      0:
        p1 := p.PositionCursor;
      1:
        begin
          p2 := p.PositionCursor;
          Canvas.DrawLine(p1, p2, 1, Canvas.Stroke);
          p1 := p.PositionCursor;
        end;
      2:
        begin
          p2 := p.PositionCursor;
          Canvas.DrawLine(p1, p2, 1, Canvas.Stroke);
        end;
    end;
  end;
end;

end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

unit Unit2;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes,

System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,

FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts,

System.Generics.Collections;

type

TSignature = Record

PositionCursor: TPointF;

PosState: Byte;

End;

TForm2 = class(TForm)

rect_Signature: TRectangle;

btn_ok: TSpeedButton;

Layout1: TLayout;

btn_voltar: TSpeedButton;

Label1: TLabel;

img_temp: TImage;

btn_clear: TSpeedButton;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure btn_clearClick(Sender: TObject);

procedure btn_voltarClick(Sender: TObject);

procedure btn_okClick(Sender: TObject);

procedure rect_SignatureMouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Single);

procedure rect_SignatureMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

procedure rect_SignaturePaint(Sender: TObject; Canvas: TCanvas;

const ARect: TRectF);

private

{ Private declarations }

public

{ Public declarations }

Sign: TList<TSignature>;

botao: boolean;

procedure AddPoint(const X, Y: Single; const state: Byte);

end;

var

Form2: TForm2;

implementation

{$R *.fmx}

uses Unit1;

{ TForm2 }

procedure TForm2.AddPoint(const X, Y: Single; const state: Byte);

var

p: TSignature;

begin

p.PositionCursor := PointF(X, Y);

p.PosState := state;

if Sign.Count - 1 < 0 then

p.PosState := 0;

if p.PosState <> 1 then

Sign.Add(p)

else if p.PositionCursor.Distance(Sign.Last.PositionCursor) > 0.8 then

Sign.Add(p);

rect_Signature.Repaint;

end;

procedure TForm2.btn_clearClick(Sender: TObject);

begin

Sign.Clear;

rect_Signature.Repaint;

end;

procedure TForm2.btn_okClick(Sender: TObject);

begin

// 旋转签名...

img_temp.RotationAngle := 0;

img_temp.Bitmap := rect_Signature.MakeScreenshot;

img_temp.Bitmap.Rotate(90);

// 发送签名到Form1...

form1.img_assinatura.Bitmap.Assign(img_temp.MakeScreenshot);

close;

end;

procedure TForm2.btn_voltarClick(Sender: TObject);

begin

Sign.Clear;

close;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Sign := TList<TSignature>.Create;

end;

procedure TForm2.FormDestroy(Sender: TObject);

begin

FreeAndNil(Sign);

end;

procedure TForm2.FormShow(Sender: TObject);

begin

Sign.Clear;

end;

procedure TForm2.rect_SignatureMouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Single);

begin

// 如果按下...

if ssLeft in Shift then

begin

if NOT botao then

begin

// 拖动开始画...

AddPoint(X, Y, 0);

botao := true;

end

else

AddPoint(X, Y, 1);

end;

procedure TForm2.rect_SignatureMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

begin

botao := false;

AddPoint(X, Y, 2);

end;

procedure TForm2.rect_SignaturePaint(Sender: TObject; Canvas: TCanvas;

const ARect: TRectF);

var

p: TSignature;

p1, p2: TPointF;

begin

if NOT(Sign.Count - 1 > 0) then

exit;

Canvas.Stroke.Kind := TBrushKind.Solid;

Canvas.Stroke.Dash := TStrokeDash.Solid;

Canvas.Stroke.Thickness := 4;

Canvas.Stroke.Color := TAlphaColorRec.Darkblue;

for p in Sign do

begin

case p.PosState of

p1 := p.PositionCursor;

begin

p2 := p.PositionCursor;

Canvas.DrawLine(p1, p2, 1, Canvas.Stroke);

p1 := p.PositionCursor;

end;

begin

p2 := p.PositionCursor;

Canvas.DrawLine(p1, p2, 1, Canvas.Stroke);

end;

end.

Delphi制作手机签名app（windows同样适用）

功能

主要代码

相关下载

Delphi跨平台线程等待动画

delphi手机通知

参与评论

欢迎来到阿明工作室

阿明工作室专注软件及网络资源定制,免费软件,精品源码应有尽有

快速导航

Delphi制作手机签名app（windows同样适用）

功能

主要代码

相关下载

分享本文封面

相关文章

参与评论

欢迎来到阿明工作室

阿明工作室专注软件及网络资源定制,免费软件,精品源码应有尽有

登录

快速导航