| | | | | |

2024年11月13日

摘要： procedure TMainForm.As1Click(Sender: TObject); //涂磊添加20241113 JPEG格式导出 begin SavePictureDialog.FileName := ChangeFileExt(SaveDialog.FileName, '.jpg') 阅读全文

posted @ 2024-11-13 17:05 涂磊阅读(24) 评论(0) 推荐(0)

unigui实现水印纹的效果

摘要：效果 procedure TMainForm.Set_watermark(xparent: TWinControl; s: string); var hf:TUniHTMLFrame; begin hf:= TUniHTMLFrame.Create(xparent); hf.Parent:= xpa 阅读全文

posted @ 2024-11-13 16:02 涂磊阅读(174) 评论(0) 推荐(1)