//建议在IDE的窗体属性面版本中将 BorderStyle 设置为 bsNone，TJDUIForm会根据FormCreate中设置的属性做二次调整

uses ..., JDUIBaseControl, JDUIControl;

TDemoForm = class(TJDUIForm)  //替换基类
...
end;

procedure TDemoForm.FormCreate(Sender: TObject);
begin
OnAnimatedShow := AnimatedShow;  //窗口第一次方式打开（动画结束后）执行此事件

//以下是TJDUIForm可设置的一些属性
AllowResize := True;
ShowIcon := False;
ShowCaption := False;
ShowSkinButton := False;
ShowMaxOrRestoreButton := True;
ShowMinButton := True;

EnabledGlass := VistaUP and (not Win8) and (not Win10); //是否显示毛玻璃效果，仅Win7或Vista有效
DWMEnabled := EnabledGlass; //开启DWMEnabled，EnabledGlass才会生效

BlendBorder := True; //窗体四角是否做遮罩处理（通常是为了处理平滑的圆角效果）

Self.ShowStyle := fssZoom; //窗体打开时的动画效果，有很多种效果，具体请查看枚举值
Self.HideStyle := fssZoom; //窗体关闭时的动画效果

Self.ShowTime := 0.6; //窗体打开时的动画效果时长（秒）
Self.HideTime := 0.6; //窗体关闭时的动画效果时长（秒）

WorkAreaAlpha := 255;

//关联窗体所需要的资源组件，并载入一个皮肤文件
BorderMask := jduBorderMask;
FormBackRes := jduFormBackRes;
FormBackRes.FromFile(ExtractFilePath(Application.ExeName) + 'skins\skin1.jpg', bdtStretch);
FormRes := JduFormRes;
end;

type
TJDUIImageView = class(TJDUIGraphicsControl)
private
FImageFile: String;

protected
procedure PaintSelf(ATargetBitmap: TBitmap32); override;

public
procedure LoadImage(AImageFile: String);
end;

implementation
procedure TJDUIImageView.PaintSelf(ATargetBitmap: TBitmap32);
var
ABitmap32: TBitmap32;
begin
//在 ATargetBitmap 上绘制即可，此处仅做示例
ABitmap32 := TBitmap32.Create;
try
ABitmap32.LoadFromFile(FImageFile);
ABitmap32.DrawTo(ATargetBitmap, 0, 0);
finally
ABitmap32.Free;
end;
end;

procedure TJDUIImageView.LoadImage(AImageFile: String);
begin
FImageFile := AImageFile;
ForceRepaint; //调用 ForceRepaint 触发控件重绘;
end;