1547 lines
57 KiB
Plaintext
1547 lines
57 KiB
Plaintext
{*******************************************************}
|
|
{ }
|
|
{ ProcessPrintWater }
|
|
{ }
|
|
{ Copyright (C) 2025 kku }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
unit ProcessPrintWater;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, System.SysUtils, System.Classes, Vcl.Imaging.pngimage,
|
|
Vcl.Graphics, Tocsg.Graphic, CttSchDefine;
|
|
|
|
function GetPrtWaterText(sPrtDocId: String): String;
|
|
function ProcessWatermarkToImage(png: TPngImage; aDest: HDC; nW, nH: Integer;
|
|
WInfo: TPrtWaterEnt; fST: Double; sTopText, sBottomText: String;
|
|
var bmpWaterP: TBitmap; sMaskImg: String = ''): Boolean;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF _HE_}
|
|
ManagerService, ManagerModel,
|
|
{$ELSE}
|
|
Define, Tocsg.Network, Tocsg.WinInfo,
|
|
{$ENDIF}
|
|
Condition, Tocsg.Path, GlobalDefine, STLabGuardModule, Tocsg.Safe,
|
|
Tocsg.Exception, Tocsg.Trace, Winapi.GDIPAPI, Tocsg.Strings,
|
|
Vcl.Imaging.jpeg, EM.DelphiZXIngQRCode;
|
|
|
|
const
|
|
WORD_GAP = ' ';
|
|
|
|
var
|
|
_bmpST: TBitmap = nil;
|
|
_sOutCode: AnsiString = '';
|
|
|
|
function GetPrtWaterText(sPrtDocId: String): String;
|
|
begin
|
|
try
|
|
{$IFDEF _HE_}
|
|
case CUSTOMER_TYPE of
|
|
CUSTOMER_WELFND,
|
|
CUSTOMER_WELFNI :
|
|
begin
|
|
var sTemp: String := sPrtDocId;
|
|
if sTemp.Length > 20 then
|
|
SetLength(sTemp, 20);
|
|
Result := gMgSvc.EmpNo + '/' + sTemp;
|
|
end;
|
|
CUSTOMER_KORENTAL :
|
|
begin
|
|
if gMgSvc.UName <> '' then
|
|
Result := Format('%s/%s/%s/%s/%s', [gMgSvc.EmpNo, gMgSvc.DeptName, gMgSvc.UName, gMgSvc.NicService.GetIP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
else if gMgSvc.DeptName <> '' then
|
|
Result := Format('%s/%s/%s/%s', [gMgSvc.EmpNo, gMgSvc.DeptName, gMgSvc.NicService.GetIP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
else
|
|
Result := Format('%s/%s/%s', [gMgSvc.EmpNo, gMgSvc.NicService.GetIP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
end;
|
|
CUSTOMER_CJONS :
|
|
begin
|
|
var sDept: String := ExtrLastDelimiterStr(gMgSvc.DeptName, ';');
|
|
var sUName: String := gMgSvc.UName;
|
|
if sUName = '' then
|
|
sUname := gMgSvc.EmpNo;
|
|
if sDept <> '' then
|
|
Result := Format('%s/%s/%s', [sUName, sDept, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
else
|
|
Result := Format('%s/%s', [sUName, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
|
end;
|
|
CUSTOMER_SHSC :
|
|
begin
|
|
var sEmpNo: String := gMgSvc.EmpNo;
|
|
if sEmpNo.Length > 2 then
|
|
sEmpNo[3] := '*';
|
|
if sEmpNo.Length > 3 then
|
|
sEmpNo[4] := '*';
|
|
|
|
if gMgSvc.UName <> '' then
|
|
begin
|
|
var sUName: String := gMgSvc.UName;
|
|
if sUName.Length > 1 then
|
|
sUName[2] := '*';
|
|
Result := Format('%s / %s / %s', [sUName, sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
end else
|
|
Result := Format('%s / %s', [sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
|
end;
|
|
CUSTOMER_SHCI :
|
|
begin
|
|
if gMgSvc.UName <> '' then
|
|
begin
|
|
var sUName: String := gMgSvc.UName;
|
|
if sUName.Length > 1 then
|
|
sUName[2] := '*';
|
|
|
|
Result := Format('%s / %s / %s / %s', [gMgSvc.EmpNo, sUName, gMgSvc.DeptName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)])
|
|
end else
|
|
if gMgSvc.DeptName <> '' then
|
|
Result := Format('%s / %s / %s', [gMgSvc.EmpNo, gMgSvc.DeptName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)])
|
|
else
|
|
Result := Format('%s / %s', [gMgSvc.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
|
end;
|
|
CUSTOMER_SKEC :
|
|
begin
|
|
if gMgSvc.UName <> '' then
|
|
Result := Format('%s / %s / %s / %s', [FormatDateTime('yyyy-mm-dd hh:nn', Now), gMgSvc.DeptName, gMgSvc.UName, gMgSvc.EmpNo])
|
|
else if gMgSvc.DeptName <> '' then
|
|
Result := Format('%s / %s / %s', [FormatDateTime('yyyy-mm-dd hh:nn', Now), gMgSvc.DeptName, gMgSvc.EmpNo])
|
|
else
|
|
Result := Format('%s / %s', [FormatDateTime('yyyy-mm-dd hh:nn', Now), gMgSvc.EmpNo]);
|
|
end;
|
|
CUSTOMER_GIORDANO :
|
|
begin
|
|
Result := Format('%s / %s', [gMgSvc.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
|
end;
|
|
CUSTOMER_UNITUS,
|
|
CUSTOMER_MOTRAS :
|
|
begin
|
|
if gMgSvc.UName <> '' then
|
|
Result := Format('%s / %s / %s / %s / %s', [gMgSvc.UName, gMgSvc.DeptName, gMgSvc.EmpNo, gMgSvc.NicService.GetIP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
else if gMgSvc.DeptName <> '' then
|
|
Result := Format('%s / %s / %s / %s', [gMgSvc.DeptName, gMgSvc.EmpNo, gMgSvc.NicService.GetIP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
else
|
|
Result := Format('%s / %s / %s', [gMgSvc.EmpNo, gMgSvc.NicService.GetIP, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
|
end;
|
|
CUSTOMER_SOLMIX :
|
|
begin
|
|
Result := Format('%s / %s / ', [gMgSvc.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
|
end;
|
|
CUSTOMER_SANKYO :
|
|
begin
|
|
if gMgSvc.UName <> '' then
|
|
Result := Format('%s / %s / %s', [gMgSvc.UName, gMgSvc.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
else
|
|
Result := Format('%s / %s', [gMgSvc.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
|
end;
|
|
CUSTOMER_SERVE1 :
|
|
begin
|
|
if gMgSvc.DeptName <> '' then
|
|
begin
|
|
var sDept: String := ExtrLastDelimiterStr(gMgSvc.DeptName, ';');
|
|
Result := Format('%s / %s / %s / %s / %s', [sDept, gMgSvc.UName, gMgSvc.EmpNo, gMgSvc.NicService.GetIP, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
|
end else
|
|
Result := Format('%s / %s / %s', [gMgSvc.EmpNo, gMgSvc.NicService.GetIP, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
|
end;
|
|
CUSTOMER_DEMO :
|
|
begin
|
|
Result := sPrtDocId;
|
|
end;
|
|
else begin
|
|
if gMgSvc.UName <> '' then
|
|
Result := Format('%s / %s / %s / %s', [gMgSvc.UName, gMgSvc.DeptName, gMgSvc.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
else if gMgSvc.DeptName <> '' then
|
|
Result := Format('%s / %s / %s', [gMgSvc.DeptName, gMgSvc.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
|
else
|
|
Result := Format('%s / %s', [gMgSvc.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
|
end;
|
|
end;
|
|
{$ENDIF}
|
|
except
|
|
on E: Exception do
|
|
begin
|
|
Result := 'Error...';
|
|
ETgException.TraceException(E, 'Fail .. GetPrtWaterText()');
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function MaskPrtST: Boolean;
|
|
var
|
|
sWDir, sStKey, sStPng: String;
|
|
nResult: Integer;
|
|
begin
|
|
try
|
|
Result := false;
|
|
if not FileExists(GetRunExePathDir + DIR_CONF + DLL_ST) then
|
|
exit;
|
|
|
|
// sStKey := GetRunExePathDir + DIR_CONF + DAT_SNAPTAGKEY_P;
|
|
sWDir := 'C:\ProgramData\HE\';
|
|
sStKey := sWDir + DAT_SNAPTAGKEY_P;
|
|
if not FileExists(sStKey) and ForceDirectories(sWDir) then
|
|
begin
|
|
var StrList: TStringList;
|
|
Guard(StrList, TStringList.Create);
|
|
StrList.Text := ST_Key_P;
|
|
StrList.SaveToFile(sStKey, TEncoding.ANSI);
|
|
end;
|
|
|
|
if FileExists(sStKey) then
|
|
begin
|
|
sStPng := sWDir + PNG_SNAPTAGDATA_PRT;
|
|
nResult := labGuardPS(sStKey, sStPng, 2, 1{3블루}, 1 {유저코드?},
|
|
FormatDateTime('yyyy/mm/dd hh:nn', Now), _sOutCode);
|
|
|
|
Result := nResult = 0;
|
|
if not Result then
|
|
TTgTrace.T('Fail .. MaskPrtST() .. Snaptag .. code = %d', [nResult], 1);
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(E, 'Fail .. MaskPrtST()');
|
|
end;
|
|
end;
|
|
|
|
function GetUseSnapTag: Boolean;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := IsUseSnaptag;
|
|
{$ELSE}
|
|
Result := gParam.UseSnaptag;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
procedure ProcessSnaptag(png: TPngImage; fST: Double);
|
|
var
|
|
sStPng: String;
|
|
pngST: TPngImage;
|
|
nsX, nsY: Integer;
|
|
begin
|
|
if not GetUseSnapTag then
|
|
exit;
|
|
|
|
if not MaskPrtST then
|
|
exit;
|
|
|
|
try
|
|
if _bmpST = nil then
|
|
begin
|
|
// sStPng := GetRunExePathDir + DIR_CONF + PNG_SNAPTAGDATA_PRT;
|
|
sStPng := 'C:\ProgramData\HE\' + PNG_SNAPTAGDATA_PRT;
|
|
if FileExists(sStPng) then
|
|
begin
|
|
Guard(pngST, TPngImage.Create);
|
|
pngST.LoadFromFile(sStPng);
|
|
|
|
_bmpST := TBitmap.Create;
|
|
_bmpST.PixelFormat := pf4bit;
|
|
_bmpST.SetSize(png.Width div 5, png.Height div 5);
|
|
|
|
nsX := 0;
|
|
while nsX < (_bmpST.Width + pngST.Width) do
|
|
begin
|
|
nsY := 0;
|
|
while nsY < (_bmpST.Height + pngST.Height) do
|
|
begin
|
|
_bmpST.Canvas.Draw(nsX, nsY, pngST);
|
|
Inc(nsY, pngST.Height);
|
|
end;
|
|
Inc(nsX, pngST.Width);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
if _bmpST <> nil then
|
|
begin
|
|
// _bmpST.SaveToFile('C:\Users\kku\Desktop\이전 바탕화면\출력 추출 데이터\test.bmp');
|
|
|
|
var cTrMatrix: TColorMatrix;
|
|
ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
|
// 회색
|
|
// cTrMatrix[0][0] := 0.299;
|
|
// cTrMatrix[0][1] := 0.299;
|
|
// cTrMatrix[0][2] := 0.299;
|
|
// cTrMatrix[1][0] := 0.587;
|
|
// cTrMatrix[1][1] := 0.587;
|
|
// cTrMatrix[1][2] := 0.587;
|
|
// cTrMatrix[2][0] := 0.114;
|
|
// cTrMatrix[2][1] := 0.114;
|
|
// cTrMatrix[2][2] := 0.114;
|
|
// cTrMatrix[3][3] := 0.10; // 투명도 1.0 ~ 2.22
|
|
// cTrMatrix[4][4] := 1.0;
|
|
|
|
cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, fST);
|
|
|
|
DrawBitmapWaterEx(png.Canvas.Handle, 0, 0, _bmpST, @cTrMatrix, png.Width, png.Height);
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(E, 'Fail .. ProcessSnaptag()');
|
|
end;
|
|
end;
|
|
|
|
function GetPrtDPI: Integer;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := gMgSvc.PrefModel.PrtDPI;
|
|
{$ELSE}
|
|
Result := gParam.PrtDPI;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetPWC: TPrtWaterCfg;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := gMgSvc.PrefModel.PrtWaterCfg;
|
|
{$ELSE}
|
|
Result := gParam.PrtWaterCfg;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetIpAddr: String;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := gMgSvc.NicService.GetIP;
|
|
{$ELSE}
|
|
Result := gParam.IP;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetMac: String;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := gMgSvc.NicService.GetMAC;
|
|
{$ELSE}
|
|
Result := GetMACAddr;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetComN: String;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := gMgSvc.ComName;
|
|
{$ELSE}
|
|
Result := GetComName;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetEmpNo: String;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := gMgSvc.EmpNo;
|
|
{$ELSE}
|
|
Result := gParam.EmpNo;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetUName: String;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := gMgSvc.UName;
|
|
{$ELSE}
|
|
Result := gParam.UName;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetDeptName: String;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := gMgSvc.DeptName;
|
|
{$ELSE}
|
|
Result := gParam.DeptName;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetLabelName: String;
|
|
begin
|
|
{$IFDEF _HE_}
|
|
Result := gMgSvc.RecentLabel;
|
|
{$ELSE}
|
|
Result := gParam.LabelName;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetDPI_Size(nSize: Integer): Integer;
|
|
begin
|
|
case GetPrtDPI of
|
|
100 : Result := nSize - ((nSize div 6) * 5);
|
|
200 : Result := nSize - ((nSize div 6) * 4);
|
|
300 : Result := nSize - ((nSize div 6) * 3);
|
|
400 : Result := nSize - ((nSize div 6) * 2);
|
|
500 : Result := nSize - (nSize div 6);
|
|
else Result := nSize;
|
|
end;
|
|
end;
|
|
|
|
procedure DrawRotatedText(Canvas: TCanvas; X, Y, Angle: Integer; const Text: string);
|
|
var
|
|
LogFont: TLogFont;
|
|
OldFont, RotatedFont: HFONT;
|
|
begin
|
|
// 기존 폰트를 기반으로 로그폰트 가져오기
|
|
GetObject(Canvas.Font.Handle, SizeOf(LogFont), @LogFont);
|
|
|
|
// 회전 각도 설정 (0.1도 단위, 즉 450 = 45도)
|
|
LogFont.lfEscapement := Angle * 10;
|
|
LogFont.lfOrientation := Angle * 10;
|
|
|
|
// 안티앨리어싱 등 품질 향상 옵션
|
|
LogFont.lfQuality := ANTIALIASED_QUALITY;
|
|
|
|
// 회전 폰트 생성
|
|
RotatedFont := CreateFontIndirect(LogFont);
|
|
OldFont := SelectObject(Canvas.Handle, RotatedFont);
|
|
|
|
// 텍스트 출력
|
|
TextOut(Canvas.Handle, X, Y, PChar(Text), Length(Text));
|
|
|
|
// 자원 정리
|
|
SelectObject(Canvas.Handle, OldFont);
|
|
DeleteObject(RotatedFont);
|
|
end;
|
|
|
|
function CalcSizeDIP(n300: Integer): Integer;
|
|
var
|
|
nSize: Integer;
|
|
begin
|
|
nSize := n300 * 2;
|
|
case GetPrtDPI of
|
|
100 : Result := nSize - ((nSize div 6) * 5);
|
|
200 : Result := nSize - ((nSize div 6) * 4);
|
|
300 : Result := nSize - ((nSize div 6) * 3);
|
|
400 : Result := nSize - ((nSize div 6) * 2);
|
|
500 : Result := nSize - (nSize div 6);
|
|
else Result := nSize;
|
|
end;
|
|
end;
|
|
|
|
function ProcessWatermarkToImage(png: TPngImage; aDest: HDC; nW, nH: Integer;
|
|
WInfo: TPrtWaterEnt; fST: Double; sTopText, sBottomText: String;
|
|
var bmpWaterP: TBitmap; sMaskImg: String = ''): Boolean;
|
|
|
|
procedure SetImgFontSize(nSize: Integer);
|
|
begin
|
|
png.Canvas.Font.Size := GetDPI_Size(nSize);
|
|
end;
|
|
|
|
var
|
|
nTmp, nLeft, nTop: Integer;
|
|
sWText: String;
|
|
PWC: TPrtWaterCfg;
|
|
begin
|
|
if png = nil then
|
|
Exit(false);
|
|
|
|
Result := true;
|
|
|
|
ProcessSnaptag(png, fST);
|
|
|
|
// 가로출력인데 세로로 되어 있으면 돌려준다. 24_0819 16:57:41 kku
|
|
if not WInfo.bPaperV and (png.Width < png.Height) then
|
|
RotatePng(png, 90);
|
|
|
|
// if ProcType <> ptPng then
|
|
// begin
|
|
// Result := false;
|
|
// exit;
|
|
// end;
|
|
|
|
if not WInfo.bUseWM then
|
|
begin
|
|
Result := false;
|
|
exit;
|
|
end;
|
|
|
|
try
|
|
// if IsUsePrintMask then
|
|
// begin
|
|
// if sPrtMaskingStr_ <> '' then
|
|
// begin
|
|
// // 마스킹 처리... 24_0529 16:16:06 kku
|
|
// if (sMaskImg <> '') and FileExists(sMaskImg) then
|
|
// begin
|
|
// var sOcrPath: String := GetRunExePathDir + DIR_CONF + EXE_OCR;
|
|
// var sTmpPath: String := 'C:\ProgramData\HE\Task\';
|
|
// if FileExists(sOcrPath) and ForceDirectories(sTmpPath) then
|
|
// begin
|
|
// sTmpPath := sTmpPath + '$TmpOcr.dat';
|
|
// ExecuteAppWaitUntilTerminate(sOcrPath,
|
|
// Format('-r "%s" "%s"', [sMaskImg, sTmpPath]), SW_HIDE, 10000);
|
|
//
|
|
// if FileExists(sTmpPath) then
|
|
// begin
|
|
// var MgMsk: TManagerImgMskData;
|
|
// Guard(MgMsk, TManagerImgMskData.Create(sTmpPath));
|
|
// DeleteFile(PChar(sTmpPath));
|
|
//
|
|
// var StrList: TStringList;
|
|
// Guard(StrList, TStringList.Create);
|
|
// SplitString(sPrtMaskingStr_, ',', StrList, false, true);
|
|
//
|
|
// var MskLst: TMskEntList;
|
|
// Guard(MskLst, TMskEntList.Create);
|
|
// var cc, nn: Integer;
|
|
// for cc := 0 to StrList.Count - 1 do
|
|
// begin
|
|
// if MgMsk.MatchToList(StrList[cc], MskLst) > 0 then
|
|
// begin
|
|
// for nn := 0 to MskLst.Count - 1 do
|
|
// DoMasking(MskLst[nn]);
|
|
// end;
|
|
// end;
|
|
// end;
|
|
// end;
|
|
// end;
|
|
// end;
|
|
// end;
|
|
|
|
PWC := GetPWC;
|
|
if PWC.bActive then
|
|
begin
|
|
SetBkMode(png.Canvas.Handle, TRANSPARENT);
|
|
png.Canvas.Font.Color := clSilver;
|
|
|
|
var sText: String := '';
|
|
nLeft := 0;
|
|
nTop := 0;
|
|
|
|
if (PWC.sTopText <> '') and (PWC.nTopSize > 0) then
|
|
begin
|
|
SetImgFontSize(Round(Double(42) * (Double(PWC.nTopSize) / 10)));
|
|
sText := StrsReplace(PWC.sTopText, ['{IpAddr}', '{HostName}', '{MacAddr}', '{EmpNo}', '{Dept}', '{UserName}', '{DateTime}'],
|
|
[GetIpAddr, GetComN, GetMac, GetEmpNo, GetDeptName, GetUName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
|
|
|
case PWC.nTopPos of
|
|
1 : nLeft := 0; // 왼쪽
|
|
2 : nLeft := (png.Width div 2) - (png.Canvas.TextWidth(sText) div 2); // 가운데
|
|
3 : nLeft := png.Width - png.Canvas.TextWidth(sText); // 오른쪽
|
|
end;
|
|
png.Canvas.TextOut(nLeft, nTop, sText);
|
|
end;
|
|
|
|
if (PWC.sBotText <> '') and (PWC.nBotSize > 0) then
|
|
begin
|
|
SetImgFontSize(Round(Double(42) * (Double(PWC.nBotSize) / 10)));
|
|
sText := StrsReplace(PWC.sBotText, ['{IpAddr}', '{HostName}', '{MacAddr}', '{EmpNo}', '{Dept}', '{UserName}', '{DateTime}'],
|
|
[GetIpAddr, GetComN, GetMac, GetEmpNo, GetDeptName, GetUName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
|
|
|
case PWC.nBotPos of
|
|
1 : nLeft := 0; // 왼쪽
|
|
2 : nLeft := (png.Width div 2) - (png.Canvas.TextWidth(sText) div 2); // 가운데
|
|
3 : nLeft := png.Width - png.Canvas.TextWidth(sText); // 오른쪽
|
|
end;
|
|
nTop := png.Height - png.Canvas.TextHeight(sText);
|
|
png.Canvas.TextOut(nLeft, nTop, sText);
|
|
end;
|
|
end else
|
|
if not IgrPrintWaterDefText then
|
|
begin
|
|
SetBkMode(png.Canvas.Handle, TRANSPARENT);
|
|
SetImgFontSize(42);
|
|
png.Canvas.Font.Color := clSilver;
|
|
|
|
if sTopText <> '' then
|
|
begin
|
|
nLeft := 0;
|
|
nTop := 0;
|
|
// if cbTopTextPos.ItemIndex <> 0 then
|
|
// nLeft := bmp.Width - bmp.Canvas.TextWidth(sTopText);
|
|
|
|
// bmp.Canvas.TextOut(nLeft, nTop, sTopText);
|
|
png.Canvas.TextOut(nLeft, nTop, sTopText);
|
|
end;
|
|
|
|
if sBottomText <> '' then
|
|
begin
|
|
// bmp.Canvas.Font.Size := 10 * 7;
|
|
// nLeft := 0;
|
|
// nTop := bmp.Height - bmp.Canvas.TextHeight(sBottomText);
|
|
//// if cbBottomTextPos.ItemIndex <> 0 then
|
|
// nLeft := bmp.Width - bmp.Canvas.TextWidth(sBottomText);
|
|
|
|
// bmp.Canvas.TextOut(nLeft, nTop, sBottomText);
|
|
|
|
if CUSTOMER_TYPE = CUSTOMER_SOLIDEO then
|
|
begin
|
|
SetImgFontSize(42);
|
|
png.Canvas.Font.Color := $969696;
|
|
sBottomText := '(주)솔리데오';
|
|
if GetDeptName <> '' then
|
|
begin
|
|
var sDept: String := GetDeptName;
|
|
var nPos: Integer := Pos(';', sDept);
|
|
if nPos > 0 then
|
|
Delete(sDept, nPos, sDept.Length - nPos + 1);
|
|
SumString(sBottomText, sDept, ' / ');
|
|
end;
|
|
if GetUName <> '' then
|
|
SumString(sBottomText, GetUName, ' / ')
|
|
else
|
|
SumString(sBottomText, GetEmpNo, ' / ');
|
|
SumString(sBottomText, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now), ' / ')
|
|
end;
|
|
|
|
if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
|
nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
|
else
|
|
nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
|
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sBottomText)
|
|
else
|
|
nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
|
|
|
case CUSTOMER_TYPE of
|
|
CUSTOMER_LOCAL : // CUSTOMER_DEMO
|
|
begin
|
|
// for 포스코
|
|
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
// png.Canvas.TextOut((png.Width - nW) div 2, nTop, sBottomText)
|
|
// else
|
|
// png.Canvas.TextOut(0, nTop, sBottomText);
|
|
|
|
// QR 코드, todo : 함수로 만들필요 있음
|
|
var QRCode: TDelphiZXingQRCode;
|
|
Guard(QRCode, TDelphiZXingQRCode.Create);
|
|
QRCode.Data := '"' + sBottomText + '"';
|
|
QRCode.QuietZone := 4;
|
|
var QrBmp: TBitmap;
|
|
Guard(QrBmp, TBitmap.Create);
|
|
QrBmp.SetSize(QRCode.Rows, QRCode.Columns);
|
|
var R, C, nX, nY, nQrSize: Integer;
|
|
for R := 0 to QRCode.Rows - 1 do
|
|
begin
|
|
for C := 0 to QRCode.Columns - 1 do
|
|
begin
|
|
if (QRCode.IsBlack[R, C]) then
|
|
begin
|
|
QrBmp.Canvas.Pixels[C, R] := clBlack;
|
|
end else
|
|
begin
|
|
QrBmp.Canvas.Pixels[C, R] := clWhite;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nX := (png.Width - nW) div 2
|
|
else
|
|
nX := 0;
|
|
|
|
if (png.Height > nH) and (WInfo.sPdfPath = '') then
|
|
nY := (png.Height - nH) div 2
|
|
else
|
|
nY := 0;
|
|
|
|
var rc: TRect;
|
|
if png.Width < png.Height then
|
|
nQrSize := png.Width div 20
|
|
else
|
|
nQrSize := png.Height div 20;
|
|
|
|
rc.Left := nX + png.Width - nQrSize;
|
|
rc.Right := nX + png.Width;
|
|
rc.Top := nY + png.Height - nQrSize;
|
|
rc.Bottom := nY + png.Height;
|
|
|
|
png.Canvas.StretchDraw(rc, QrBmp);
|
|
|
|
// 사선 텍스트
|
|
var bmp: TBitmap := nil; // todo : 재사용 가능하게
|
|
if bmp = nil then
|
|
begin
|
|
// var sText: String := Format('%s / %s / %s', [GetComN, GetIpAddr, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
|
var sText: String := Format('%s / %s', [GetComN, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
|
sText := sText + ' ' + sText + ' ' + sText + ' ' + sText;
|
|
try
|
|
bmp := TBitmap.Create;
|
|
bmp.PixelFormat := pf4bit; // 이거 켜면 흑백 출력시 안됨 24_0807 15:52:56 kku
|
|
bmp.Canvas.Font.Assign(png.Canvas.Font);
|
|
bmp.Canvas.Font.Color := clGray;
|
|
bmp.Canvas.Font.Size := 60;
|
|
bmp.TransparentColor := clWhite;
|
|
bmp.Transparent := true;
|
|
|
|
var nTW: Integer := bmp.Canvas.TextWidth(sText);
|
|
bmp.SetSize(nTW, nTW);
|
|
// _bmpWaterP.SetSize(500, 500);
|
|
|
|
// TTgTrace.T('bmp.Canvas.Font.Name=%s', [bmp.Canvas.Font.Name]);
|
|
DrawRotatedText(bmp.Canvas, bmp.Canvas.TextHeight(sText), 0, -45, sText);
|
|
except
|
|
// ..
|
|
end;
|
|
end;
|
|
|
|
if bmp <> nil then
|
|
begin
|
|
var cTrMatrix: TColorMatrix;
|
|
ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
|
|
|
cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, 0.15);
|
|
|
|
DrawBitmapWaterEx(png.Canvas.Handle, Round(nW / 3) * -1, 0, bmp, @cTrMatrix);
|
|
DrawBitmapWaterEx(png.Canvas.Handle, 0, 0, bmp, @cTrMatrix);
|
|
DrawBitmapWaterEx(png.Canvas.Handle, Round(nW / 3), 0, bmp, @cTrMatrix);
|
|
end;
|
|
|
|
// if WInfo.LogJson <> '' then
|
|
begin
|
|
// 파일 이름으로 보안등급 출력
|
|
try
|
|
// var OLog: ISuperObject := SO(WInfo.LogJson);
|
|
// if OLog <> nil then
|
|
begin
|
|
// var sFName: String := OLog.S['COMPONENT_FILENAME'];
|
|
var sFName: String := WInfo.sDocName;
|
|
|
|
// 엑셀에 [ 가 ( 로 변경되서 급한대로 아래처럼 처리 24_1023 10:07:45 kku
|
|
sFName := StringReplace(sFName, '(', '[', [rfReplaceAll]);
|
|
sFName := StringReplace(sFName, ')', ']', [rfReplaceAll]);
|
|
|
|
// if (sFName <> '') and (sFName[1] = '[') then
|
|
if sFName.Contains('[') then
|
|
begin
|
|
SetImgFontSize(png.Canvas.Font.Size * 2);
|
|
sWText := GetCapsuleStr('[', ']', sFName);
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sWText)
|
|
else
|
|
nLeft := png.Width - png.Canvas.TextWidth(sWText);
|
|
png.Canvas.TextOut(nLeft, 0, sWText);
|
|
end;
|
|
end;
|
|
except
|
|
// ...
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
CUSTOMER_KORENTAL :
|
|
begin
|
|
png.Canvas.Font.Color := clBlack;
|
|
SetImgFontSize(45);
|
|
|
|
// 좌측 상단
|
|
png.Canvas.TextOut(0, 0, sBottomText);
|
|
|
|
if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
|
nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
|
else
|
|
nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
|
|
|
// 가운데 하단
|
|
sWText := '본 문서는 한국렌탈의 정보 자산이며 무단 반출 시 당사 사규와 관련 법규에 의해 제재를 받을 수 있습니다.';
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := ((png.Width - ((png.Width - nW) div 2)) div 2) - (png.Canvas.TextWidth(sWText) div 2)
|
|
else
|
|
nLeft := (png.Width div 2) - (png.Canvas.TextWidth(sWText) div 2);
|
|
png.Canvas.TextOut(nLeft, nTop, sWText);
|
|
end;
|
|
|
|
CUSTOMER_WELFND,
|
|
CUSTOMER_WELFNI :
|
|
begin
|
|
png.Canvas.Font.Color := clSilver;
|
|
SetImgFontSize(50);
|
|
if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
|
nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
|
else
|
|
nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
|
|
|
// var nTW: Integer := png.Canvas.TextWidth(sBottomText);
|
|
|
|
// 좌측 상단
|
|
png.Canvas.TextOut(0, 0, sBottomText);
|
|
|
|
// 우측 상단
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sBottomText)
|
|
else
|
|
nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
|
png.Canvas.TextOut(nLeft, 0, sBottomText);
|
|
|
|
// 좌측 하단
|
|
png.Canvas.TextOut(0, nTop, sBottomText);
|
|
|
|
// 우측 하단
|
|
sWText := '본 문서에 대한 소유권은 회사에 있으며, 무단으로 반출 시 법적 책임을 받게 됩니다.';
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sWText)
|
|
else
|
|
nLeft := png.Width - png.Canvas.TextWidth(sWText);
|
|
png.Canvas.TextOut(nLeft, nTop, sWText);
|
|
|
|
// QR 코드, todo : 함수로 만들필요 있음
|
|
var QRCode: TDelphiZXingQRCode;
|
|
Guard(QRCode, TDelphiZXingQRCode.Create);
|
|
QRCode.Data := '"' + sBottomText + '"';
|
|
QRCode.QuietZone := 4;
|
|
var QrBmp: TBitmap;
|
|
Guard(QrBmp, TBitmap.Create);
|
|
QrBmp.SetSize(QRCode.Rows, QRCode.Columns);
|
|
var R, C, nX, nY, nQrSize: Integer;
|
|
for R := 0 to QRCode.Rows - 1 do
|
|
begin
|
|
for C := 0 to QRCode.Columns - 1 do
|
|
begin
|
|
if (QRCode.IsBlack[R, C]) then
|
|
begin
|
|
QrBmp.Canvas.Pixels[C, R] := clBlack;
|
|
end else
|
|
begin
|
|
QrBmp.Canvas.Pixels[C, R] := clWhite;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nX := (png.Width - nW) div 2
|
|
else
|
|
nX := 0;
|
|
|
|
if (png.Height > nH) and (WInfo.sPdfPath = '') then
|
|
nY := (png.Height - nH) div 2
|
|
else
|
|
nY := 0;
|
|
|
|
var rc: TRect;
|
|
if png.Width < png.Height then
|
|
nQrSize := png.Width div 20
|
|
else
|
|
nQrSize := png.Height div 20;
|
|
|
|
rc.Left := nX + png.Width - nQrSize;
|
|
rc.Right := nX + png.Width;
|
|
rc.Top := nY + png.Height - nQrSize - png.Canvas.TextHeight(sWText);
|
|
rc.Bottom := nY + png.Height - png.Canvas.TextHeight(sWText);
|
|
|
|
png.Canvas.StretchDraw(rc, QrBmp);
|
|
|
|
// sBottomText := GetEmpNo + '/' + sPrtDocId;
|
|
if png.Width > png.Height then
|
|
begin
|
|
nLeft := CalcSizeDIP(936); //(png.Width div 2) - nTW - Round(nTW / 2);
|
|
nTop := CalcSizeDIP(292); //Round(png.Height / 8.5);
|
|
DrawRotatedText(png.Canvas, nLeft, nTop, -45, sBottomText);
|
|
// _Trace('**************** 1번째 대각선 : L=%d, T=%d', [nLeft, nTop]);
|
|
nLeft := CalcSizeDIP(2298); // (png.Width div 2) + png.Canvas.TextWidth(sBottomText);
|
|
nTop := CalcSizeDIP(1652); // png.Height - (png.Height div 3);
|
|
DrawRotatedText(png.Canvas, nLeft, nTop, -45, sBottomText);
|
|
// _Trace('**************** 2번째 대각선 : L=%d, T=%d', [nLeft, nTop]);
|
|
end else begin
|
|
nLeft := CalcSizeDIP(347);//(png.Width div 4) - png.Canvas.TextWidth(sBottomText) div 2;
|
|
nTop := CalcSizeDIP(779); // Round(png.Height / 4.5);
|
|
DrawRotatedText(png.Canvas, nLeft, nTop, -45, sBottomText);
|
|
// _Trace('**************** 1번째 대각선 : L=%d, T=%d', [nLeft, nTop]);
|
|
|
|
nLeft := CalcSizeDIP(1784); //(png.Width div 2) + png.Canvas.TextWidth(sBottomText);
|
|
nTop := CalcSizeDIP(2338); //png.Height - (png.Height div 3);
|
|
DrawRotatedText(png.Canvas, nLeft, nTop, -45, sBottomText);
|
|
// _Trace('**************** 2번째 대각선 : L=%d, T=%d', [nLeft, nTop]);
|
|
end;
|
|
end;
|
|
CUSTOMER_SOLMIX :
|
|
begin
|
|
png.Canvas.Font.Color := clGray;
|
|
SetImgFontSize(50);
|
|
if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
|
nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
|
else
|
|
nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
|
|
|
// var nTW: Integer := png.Canvas.TextWidth(sBottomText);
|
|
|
|
sWText := sBottomText + WInfo.sDocName;
|
|
|
|
// 좌측 상단
|
|
png.Canvas.TextOut(0, 0, sWText);
|
|
// 좌측 하단
|
|
sWText := sBottomText + '이 문서는 솔믹스 보안 문서로서 무단 복사 및 외부 유출을 금합니다.';
|
|
png.Canvas.TextOut(0, nTop, sWText);
|
|
|
|
// 가운데 사선
|
|
if png.Width < png.Height then
|
|
SetImgFontSize(png.Width div 9)
|
|
else
|
|
SetImgFontSize(png.Height div 9);
|
|
sWText := GetEmpNo;
|
|
var bmpW: TBitmap;
|
|
Guard(bmpW, TBitmap.Create);
|
|
bmpW.SetSize(png.Canvas.TextWidth(sWText), png.Canvas.TextHeight(sWText));
|
|
bmpW.Canvas.Font := png.Canvas.Font;
|
|
bmpW.Canvas.Font.Color := clGray;
|
|
bmpW.Canvas.TextOut(0, 0, sWText);
|
|
bmpW.TransparentColor := clWhite;
|
|
bmpW.Transparent := true;
|
|
RotateBitmap_PlgBlt(bmpW, -0.8, true, clWhite);
|
|
|
|
var cTrMatrix: TColorMatrix;
|
|
ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
|
// 회색
|
|
cTrMatrix[0][0] := 0.299;
|
|
cTrMatrix[0][1] := 0.299;
|
|
cTrMatrix[0][2] := 0.299;
|
|
cTrMatrix[1][0] := 0.587;
|
|
cTrMatrix[1][1] := 0.587;
|
|
cTrMatrix[1][2] := 0.587;
|
|
cTrMatrix[2][0] := 0.114;
|
|
cTrMatrix[2][1] := 0.114;
|
|
cTrMatrix[2][2] := 0.114;
|
|
cTrMatrix[3][3] := 0.22; // 투명도 1.0 ~ 2.22
|
|
cTrMatrix[4][4] := 1.0;
|
|
|
|
var nX: Integer := png.Width - (png.Width div 2) - (bmpW.Width div 2);
|
|
var nY: Integer := png.Height - (png.Height div 2) - (bmpW.Height div 2);
|
|
DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
|
end;
|
|
|
|
CUSTOMER_GIORDANO,
|
|
CUSTOMER_CJONS :
|
|
begin
|
|
png.Canvas.Font.Color := $969696;
|
|
|
|
// 우측 하단
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sBottomText)
|
|
else
|
|
nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
|
png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
|
end;
|
|
CUSTOMER_SHSC :
|
|
begin
|
|
png.Canvas.Font.Color := $969696;
|
|
|
|
// 좌측 하단
|
|
sWText := '고객정보 무단 반출시 법적 제재를 받을 수 있으며, 모든 출력물은 모니터링 됩니다.';
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
png.Canvas.TextOut((png.Width - nW) div 2, nTop, sWText)
|
|
else
|
|
png.Canvas.TextOut(0, nTop, sWText);
|
|
|
|
// 우측 하단
|
|
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sBottomText)
|
|
else
|
|
nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
|
png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
|
end;
|
|
CUSTOMER_SHCI :
|
|
begin
|
|
png.Canvas.Font.Color := $969696;
|
|
|
|
nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
|
// 우측 상단
|
|
sWText := '고객정보 무단 반출시 법적 제재를 받을 수 있으며, 모든 출력물은 모니터링 됩니다.';
|
|
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
// nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sWText)
|
|
// else
|
|
nLeft := png.Width - png.Canvas.TextWidth(sWText);
|
|
png.Canvas.TextOut(nLeft, 0, sWText);
|
|
|
|
// 좌측 하단
|
|
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
// png.Canvas.TextOut((png.Width - nW) div 2, nTop, sBottomText)
|
|
// else
|
|
png.Canvas.TextOut(0, nTop, sBottomText);
|
|
end;
|
|
CUSTOMER_WINSTN :
|
|
begin
|
|
png.Canvas.Font.Color := $969696;
|
|
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := (png.Width - nW) div 2
|
|
else
|
|
nLeft := 0;
|
|
|
|
// 좌측 하단
|
|
sWText := Format('%s / %s', [WInfo.sDocName, sBottomText]);
|
|
png.Canvas.TextOut(nLeft, nTop, sWText);
|
|
|
|
var nTextH: Integer := png.Canvas.TextHeight(sWText);
|
|
Dec(nTop, nTextH + (nTextH div 3));
|
|
sWText := 'This document is property of the WINSTECHNET And may not be modlfied, copled or distributed without prior consent of the WINSTECHNET';
|
|
png.Canvas.TextOut(nLeft, nTop, sWText);
|
|
|
|
Dec(nTop, nTextH + (nTextH div 3));
|
|
sWText := '이 문서는 ㈜윈스테크넷의 자산입니다.';
|
|
png.Canvas.TextOut(nLeft, nTop, sWText);
|
|
end;
|
|
CUSTOMER_SKEC :
|
|
begin
|
|
var nSet, nFSize, nTextS1, nTextS2: Integer;
|
|
if nW < nH then
|
|
nSet := png.Width
|
|
else
|
|
nSet := png.Height;
|
|
|
|
png.Canvas.Font.Name := '돋음';
|
|
png.Canvas.Font.Color := $00AEAEAE;
|
|
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := (png.Width - nW) div 2
|
|
else
|
|
nLeft := 0;
|
|
|
|
sWText := sBottomText + ' 이 문서는 SK ecoplant 의 보안정책 및 관련 법령에 의해 보호를 받는 정보자산으로 승인 없는 열람, 복사, 수정, 배포를 금지합니다.';
|
|
nTextS1 := 40;
|
|
while True do
|
|
begin
|
|
SetImgFontSize(nTextS1);
|
|
if png.Canvas.TextWidth(sWText) >= nSet then // 부서명이 들어간 후 2000에서 변경
|
|
begin
|
|
Dec(nTextS1);
|
|
SetImgFontSize(nTextS1);
|
|
break;
|
|
end;
|
|
Inc(nTextS1);
|
|
end;
|
|
nTop := png.Canvas.TextHeight(sWText) div 2;
|
|
|
|
sWText := 'This document is the informational asset protected by SK ecoplant security and law. Unauthorized access, copy, revision, distribution are strictly prohibited';
|
|
SetImgFontSize(40);
|
|
nTextS2 := png.Canvas.Font.Size;
|
|
while True do
|
|
begin
|
|
if png.Canvas.TextWidth(sWText) >= nSet then // 부서명이 들어간 후 2000에서 변경
|
|
begin
|
|
Dec(nTextS2);
|
|
png.Canvas.Font.Size := nTextS2;
|
|
break;
|
|
end;
|
|
Inc(nTextS2);
|
|
png.Canvas.Font.Size := nTextS2;
|
|
end;
|
|
|
|
if nW < nH then
|
|
begin
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := ((png.Width - ((png.Width - nW) div 2)) div 2) - (png.Canvas.TextWidth(sWText) div 2)
|
|
else
|
|
nLeft := (png.Width div 2) - (png.Canvas.TextWidth(sWText) div 2);
|
|
end else begin
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := (png.Width - nW) div 2
|
|
else
|
|
nLeft := 0;
|
|
end;
|
|
|
|
var nTextH: Integer := png.Canvas.TextHeight(sWText);
|
|
Inc(nTop, nTextH + Round(nTextH / 5));
|
|
png.Canvas.TextOut(nLeft, nTop, sWText); // 상단 둘째줄
|
|
|
|
var nnn: Integer := nLeft + png.Canvas.TextWidth(sWText);
|
|
|
|
|
|
|
|
sWText := sBottomText;
|
|
nTop := png.Canvas.TextHeight(sWText) div 2;
|
|
png.Canvas.TextOut(nLeft, nTop, sWText); // 상단 첫째줄 왼쪽
|
|
var nBottom: Integer := png.Height - (png.Canvas.TextHeight(sWText) div 2) - (nTextH + Round(nTextH / 5)) - nTextH;
|
|
png.Canvas.TextOut(nLeft, nBottom, sWText); // 하단 첫째줄 왼쪽
|
|
|
|
var nLeft2: Integer;
|
|
sWText := '이 문서는 SK ecoplant 의 보안정책 및 관련 법령에 의해 보호를 받는 정보자산으로 승인 없는 열람, 복사, 수정, 배포를 금지합니다.';
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft2 := (nnn - ((nnn - nW) div 2)) - png.Canvas.TextWidth(sBottomText)
|
|
else
|
|
nLeft2 := nnn - png.Canvas.TextWidth(sWText);
|
|
png.Canvas.TextOut(nLeft2, nTop, sWText); // 상단 첫째줄 오른쪽
|
|
png.Canvas.TextOut(nLeft2, nBottom, sWText); // 하단 첫째줄 오른쪽
|
|
|
|
sWText := 'This document is the informational asset protected by SK ecoplant security and law. Unauthorized access, copy, revision, distribution are strictly prohibited';
|
|
Inc(nBottom, nTextH + Round(nTextH / 5));
|
|
png.Canvas.TextOut(nLeft, nBottom, sWText); // 하단 둘째줄
|
|
end;
|
|
CUSTOMER_SANKYO :
|
|
begin
|
|
png.Canvas.Font.Color := clGray;
|
|
|
|
// 좌측 상단
|
|
sWText := sBottomText;
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
png.Canvas.TextOut((png.Width - nW) div 2, 0, sWText)
|
|
else
|
|
png.Canvas.TextOut(0, 0, sWText);
|
|
|
|
// 가운데 하단
|
|
sWText := '본 문서는 한국다이이찌산쿄의 정보자산이며, 본 문서의 무단 유출/복사/도용 시 당사 사규와 관련 법규에 의해 제재 받을 수 있습니다.';
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
nLeft := ((png.Width - ((png.Width - nW) div 2)) div 2) - (png.Canvas.TextWidth(sWText) div 2)
|
|
else
|
|
nLeft := (png.Width div 2) - (png.Canvas.TextWidth(sWText) div 2);
|
|
png.Canvas.TextOut(nLeft, nTop, sWText);
|
|
end;
|
|
CUSTOMER_SERVE1 :
|
|
begin
|
|
if bmpWaterP = nil then
|
|
begin
|
|
var bmp: TBitmap;
|
|
Guard(bmp, TBitmap.Create);
|
|
var sImgPath: String := GetRunExePathDir + DIR_CONF + 'CI.bmp';
|
|
if FileExists(sImgPath) then
|
|
begin
|
|
try
|
|
bmp.Canvas.Font.Assign(png.Canvas.Font);
|
|
bmp.Canvas.Font.Name := 'Tahoma'; // 맑은 고딕';
|
|
bmp.Canvas.Font.Size := GetDPI_Size(60);
|
|
bmp.Canvas.Font.Style := bmp.Canvas.Font.Style + [fsBold];
|
|
bmp.PixelFormat := pf4bit; // 이거 켜면 흑백 출력시 안됨 24_0807 15:52:56 kku
|
|
bmp.LoadFromFile(sImgPath);
|
|
|
|
// LogToReg('BW-01', BooleanToStr(gAppHook.Helper.CurAppType = catWebb, 'YES', 'NO'));
|
|
|
|
bmp.TransparentColor := clWhite;
|
|
bmp.Transparent := true;
|
|
|
|
var nBW: Integer;
|
|
if bmp.Canvas.TextWidth(sBottomText) > bmp.Width then
|
|
nBW := bmp.Canvas.TextWidth(sBottomText)
|
|
else
|
|
nBW := bmp.Width;
|
|
|
|
bmpWaterP := TBitmap.Create;
|
|
bmpWaterP.Canvas.Font.Assign(bmp.Canvas.Font);
|
|
bmpWaterP.PixelFormat := pf4bit;
|
|
bmpWaterP.SetSize(nBW + 10, bmp.Canvas.TextHeight(sBottomText) + bmp.Height + 40);
|
|
bmpWaterP.Canvas.Brush.Color := clWhite;
|
|
bmpWaterP.Canvas.Brush.Style := bsSolid;
|
|
|
|
bmpWaterP.Canvas.TextOut(0, bmpWaterP.Height - bmp.Canvas.TextHeight(sBottomText), sBottomText);
|
|
if bmpWaterP.Width > bmp.Width then
|
|
bmpWaterP.Canvas.Draw(bmpWaterP.Width - (bmpWaterP.Width div 2) - (bmp.Width div 2), 0, bmp)
|
|
else
|
|
bmpWaterP.Canvas.Draw(0, 0, bmp);
|
|
|
|
RotateBitmap_PlgBlt(bmpWaterP, -0.6, true, clWhite);
|
|
|
|
ScalePercentBmp(bmpWaterP, 140);
|
|
except
|
|
// ..
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
if bmpWaterP <> nil then
|
|
begin
|
|
var cTrMatrix: TColorMatrix;
|
|
ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
|
|
|
cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, 0.12);
|
|
|
|
// Dec(nW, nGapW);
|
|
// Dec(nH, nGapH);
|
|
var nX := (nW div 4) - (bmpWaterP.Width div 2);
|
|
var nY := (nH div 4) - (bmpWaterP.Height div 2);
|
|
|
|
DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpWaterP, @cTrMatrix);
|
|
end;
|
|
end;
|
|
else begin
|
|
png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
|
|
|
if CUSTOMER_TYPE <> CUSTOMER_SOLIDEO then
|
|
begin
|
|
// 프린터 문서 이름 추가 23_0826 15:51:34 kku
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
png.Canvas.TextOut((png.Width - nW) div 2, nTop, Format('%s', [WInfo.sDocName]))
|
|
else
|
|
png.Canvas.TextOut(0, nTop, Format('%s', [WInfo.sDocName]));
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
// bmp.SaveToFile('C:\Users\kku\Desktop\새 폴더\test.bmp');
|
|
// png.SaveToFile('C:\Users\kku\Desktop\새 폴더\test.png');
|
|
// pngW.SaveToFile('C:\Users\kku\Desktop\새 폴더\test2.png');
|
|
|
|
// ZeroMemory(@pngRect, SizeOf(pngRect));
|
|
// pngRect.Right := png.Width; // nW;
|
|
// pngRect.Bottom := png.Height; // nH;
|
|
// Printer.Canvas.StretchDraw(pngRect, bmp);
|
|
|
|
(*
|
|
ImgEn.IO.Bitmap.Assign(png);
|
|
var nLIdx := ImgEn.LayersAdd;
|
|
ImgEn.Proc.Fill(TColor2TRGB(clWhite));
|
|
ImgEn.Proc.SetTransparentColors(TColor2TRGB(clWhite), TColor2TRGB(clWhite), 0);
|
|
// ImgEn.Proc.TextOut(0, png.Height - (png.Height div 3) - 200,
|
|
// Format('%s %s' + #13#10 + 'ToCSG - BSOne', [GetHostIp, GetComName]), F, 40);
|
|
if png.Width > png.Height then
|
|
ImgEn.Proc.TextOut(300 {600}, png.Height - (png.Height div 3) - 200, //400,
|
|
Format('%s %s' + #13#10 + 'ToCSG - BSOne', [GetHostIp, GetComName]), F, 20)
|
|
else
|
|
ImgEn.Proc.TextOut(0, png.Height - (png.Height div 3) - 100, //200,
|
|
Format('%s %s' + #13#10 + 'ToCSG - BSOne', [GetHostIp, GetComName]), F, 40);
|
|
// ImgEn.Proc.TextOut(500, png.Height - (png.Height div 3) - 700, Format('%s %s' + #13#10 + 'ToCSG - BSOne', [GetHostIp, GetComName]), F, 25);
|
|
// ImgEn.Proc.TextOut(500, png.Height - ((png.Height div 3) * 2) - 700, Format('%s %s' + #13#10 + 'ToCSG - BSOne', [GetHostIp, GetComName]), F, 25);
|
|
// ImgEn.Proc.TextOut(500, png.Height - 700, Format('%s %s' + #13#10 + 'ToCSG - BSOne', [GetHostIp, GetComName]), F, 25);
|
|
ImgEn.Layers[nLIdx].Transparency := 100;
|
|
ImgEn.LayersMerge(0, 1);
|
|
ImgEn.Update;
|
|
*)
|
|
|
|
if not PWC.bActive then // 워터마크 설정을 사용하면 아래 무시 25_0728 14:38:41 kku
|
|
case CUSTOMER_TYPE of
|
|
// CUSTOMER_DEV,
|
|
CUSTOMER_ALADIN :
|
|
begin
|
|
if png.Width < png.Height then
|
|
SetImgFontSize(png.Width div 40)
|
|
else
|
|
SetImgFontSize(png.Height div 40);
|
|
// png.Canvas.Font.Name := '돋음'; // 폰트 지정하면 출력 안되는 현상이 있다? 24_0509 13:17:25 kku
|
|
png.Canvas.Font.Style := png.Canvas.Font.Style + [fsBold];
|
|
|
|
var sText: String := GetEmpNo + '/' + GetIpAddr + '/' + FormatDateTime('yyyy-mm-dd', Now);
|
|
if png.Width < png.Height then
|
|
sText := sText + WORD_GAP + sText + WORD_GAP + sText
|
|
else
|
|
sText := sText + WORD_GAP + sText + WORD_GAP + sText + WORD_GAP + sText;
|
|
|
|
var bmpT: TBitmap;
|
|
Guard(bmpT, TBitmap.Create);
|
|
bmpT.PixelFormat := pf4bit;
|
|
bmpT.SetSize(png.Canvas.TextWidth(sText), png.Canvas.TextHeight(sText));
|
|
bmpT.Canvas.Font := png.Canvas.Font;
|
|
bmpT.Canvas.Font.Color := clSilver;
|
|
bmpT.Canvas.TextOut(0, 0, sText);
|
|
bmpT.TransparentColor := clWhite;
|
|
bmpT.Transparent := true;
|
|
// bmpT.SaveToFile('c:\1.bmp');
|
|
RotateBitmap_PlgBlt(bmpT, -0.45, true, clWhite);
|
|
|
|
var cTrMatrix: TColorMatrix;
|
|
ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
|
// 회색
|
|
cTrMatrix[0][0] := 0.299;
|
|
cTrMatrix[0][1] := 0.299;
|
|
cTrMatrix[0][2] := 0.299;
|
|
cTrMatrix[1][0] := 0.587;
|
|
cTrMatrix[1][1] := 0.587;
|
|
cTrMatrix[1][2] := 0.587;
|
|
cTrMatrix[2][0] := 0.114;
|
|
cTrMatrix[2][1] := 0.114;
|
|
cTrMatrix[2][2] := 0.114;
|
|
cTrMatrix[3][3] := 0.242; // 투명도 1.0 ~ 2.22
|
|
cTrMatrix[4][4] := 1.0;
|
|
|
|
var nHH := png.Height div 2;
|
|
var nGapH: Integer := bmpT.Height;
|
|
var c: Integer := (nGapH div 2) * -1;
|
|
while c < nHH + nGapH do
|
|
begin
|
|
DrawBitmapWaterEx(png.Canvas.Handle, 0, c, bmpT, @cTrMatrix);
|
|
Inc(c, Round(nGapH / 1.5));
|
|
end;
|
|
end;
|
|
CUSTOMER_KBIZ :
|
|
begin
|
|
SetBkMode(png.Canvas.Handle, TRANSPARENT);
|
|
SetImgFontSize(54);
|
|
png.Canvas.Font.Color := clSilver;
|
|
if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
|
nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
|
else
|
|
nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
|
|
|
sBottomText := Format('%s %s', [GetEmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
|
if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
|
png.Canvas.TextOut((png.Width - nW) div 2, nTop, sBottomText)
|
|
else
|
|
png.Canvas.TextOut(0, nTop, sBottomText);
|
|
|
|
if png.Width < png.Height then
|
|
SetImgFontSize(png.Width div 18)
|
|
else
|
|
SetImgFontSize(png.Height div 18);
|
|
png.Canvas.Font.Style := png.Canvas.Font.Style + [fsBold];
|
|
|
|
var sText: String := 'KBIZ';
|
|
var bmpW: TBitmap;
|
|
Guard(bmpW, TBitmap.Create);
|
|
bmpW.SetSize(png.Canvas.TextWidth(sText), png.Canvas.TextHeight(sText));
|
|
bmpW.Canvas.Font.Assign(png.Canvas.Font);
|
|
bmpW.Canvas.Font.Color := clSilver;
|
|
bmpW.Canvas.TextOut(0, 0, sText);
|
|
bmpW.TransparentColor := clWhite;
|
|
bmpW.Transparent := true;
|
|
RotateBitmap_PlgBlt(bmpW, -0.8, true, clWhite);
|
|
|
|
var cTrMatrix: TColorMatrix;
|
|
ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
|
// 회색
|
|
// cTrMatrix[0][0] := 0.299;
|
|
// cTrMatrix[0][1] := 0.299;
|
|
// cTrMatrix[0][2] := 0.299;
|
|
// cTrMatrix[1][0] := 0.587;
|
|
// cTrMatrix[1][1] := 0.587;
|
|
// cTrMatrix[1][2] := 0.587;
|
|
// cTrMatrix[2][0] := 0.114;
|
|
// cTrMatrix[2][1] := 0.114;
|
|
// cTrMatrix[2][2] := 0.114;
|
|
// cTrMatrix[3][3] := 0.23; // 투명도 1.0 ~ 2.22
|
|
// cTrMatrix[4][4] := 1.0;
|
|
cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, 0.05);
|
|
|
|
// 가운데
|
|
// var nX: Integer := png.Width - (png.Width div 2) - (bmpW.Width div 2);
|
|
// var nY: Integer := png.Height - (png.Height div 2) - (bmpW.Height div 2);
|
|
// DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
|
|
|
// 왼쪽위
|
|
DrawBitmapWaterEx(png.Canvas.Handle, 0, 0, bmpW, @cTrMatrix);
|
|
|
|
// 오른쪽아래
|
|
var nX: Integer := png.Width - bmpW.Width;
|
|
var nY: Integer := png.Height - bmpW.Height;
|
|
DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
|
end;
|
|
CUSTOMER_JUVIS :
|
|
begin
|
|
if png.Width < png.Height then
|
|
SetImgFontSize(png.Width div 9)
|
|
else
|
|
SetImgFontSize(png.Height div 9);
|
|
// png.Canvas.Font.Name := '돋음'; // 폰트 지정하면 출력 안되는 현상이 있다? 24_0509 13:17:25 kku
|
|
png.Canvas.Font.Style := png.Canvas.Font.Style + [fsBold];
|
|
|
|
// var sText: String := '쥬비스 다이어트';
|
|
var sText: String := 'JUVIS DIET';
|
|
var bmpW: TBitmap;
|
|
Guard(bmpW, TBitmap.Create);
|
|
bmpW.SetSize(png.Canvas.TextWidth(sText), png.Canvas.TextHeight(sText));
|
|
bmpW.Canvas.Font := png.Canvas.Font;
|
|
bmpW.Canvas.Font.Color := clSilver;
|
|
bmpW.Canvas.TextOut(0, 0, sText);
|
|
bmpW.TransparentColor := clWhite;
|
|
bmpW.Transparent := true;
|
|
RotateBitmap_PlgBlt(bmpW, -0.8, true, clWhite);
|
|
|
|
var cTrMatrix: TColorMatrix;
|
|
ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
|
// 회색
|
|
cTrMatrix[0][0] := 0.299;
|
|
cTrMatrix[0][1] := 0.299;
|
|
cTrMatrix[0][2] := 0.299;
|
|
cTrMatrix[1][0] := 0.587;
|
|
cTrMatrix[1][1] := 0.587;
|
|
cTrMatrix[1][2] := 0.587;
|
|
cTrMatrix[2][0] := 0.114;
|
|
cTrMatrix[2][1] := 0.114;
|
|
cTrMatrix[2][2] := 0.114;
|
|
cTrMatrix[3][3] := 0.22; // 투명도 1.0 ~ 2.22
|
|
cTrMatrix[4][4] := 1.0;
|
|
|
|
var nX: Integer := png.Width - (png.Width div 2) - (bmpW.Width div 2);
|
|
var nY: Integer := png.Height - (png.Height div 2) - (bmpW.Height div 2);
|
|
DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
|
end;
|
|
|
|
// CUSTOMER_DEMO,
|
|
CUSTOMER_WELFND,
|
|
CUSTOMER_WELFNI,
|
|
CUSTOMER_SHCI,
|
|
CUSTOMER_SHSC,
|
|
CUSTOMER_KORENTAL,
|
|
CUSTOMER_WINSTN,
|
|
CUSTOMER_SKEC,
|
|
CUSTOMER_SANKYO :
|
|
begin
|
|
Result := false;
|
|
|
|
var sImgPath: String := GetRunExePathDir + DIR_CONF + 'CI.bmp';
|
|
if FileExists(sImgPath) then
|
|
begin
|
|
try
|
|
var bmpW: TBitmap;
|
|
Guard(bmpW, TBitmap.Create);
|
|
bmpW.LoadFromFile(sImgPath);
|
|
bmpW.PixelFormat := pf4bit;
|
|
bmpW.TransparentColor := clWhite;
|
|
bmpW.Transparent := true;
|
|
|
|
if CUSTOMER_TYPE = CUSTOMER_SKEC then
|
|
ScalePercentBmp(bmpW, GetDPI_Size(120))
|
|
else
|
|
ScalePercentBmp(bmpW, GetDPI_Size(300));
|
|
|
|
var cTrMatrix: TColorMatrix := MakeColorMatrix(0.2, 0.2, 0.2, 0.05);
|
|
var nX: Integer := png.Width - (png.Width div 2) - (bmpW.Width div 2);
|
|
var nY: Integer := png.Height - (png.Height div 2) - (bmpW.Height div 2);
|
|
DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
|
except
|
|
// ..
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
CUSTOMER_GEC :
|
|
begin
|
|
if bmpWaterP = nil then
|
|
begin
|
|
var sImgPath: String := GetRunExePathDir + DIR_CONF + 'HWMJ.dat';
|
|
if FileExists(sImgPath) then
|
|
begin
|
|
var sText: String := '';
|
|
if GetDeptName <> '' then
|
|
sText := GetDeptName + '/' + GetEmpNo + '/' + GetIpAddr + '/' + FormatDateTime('yyyy-mm-dd', Now)
|
|
else
|
|
sText := GetEmpNo + '/' + GetIpAddr + '/' + FormatDateTime('yyyy-mm-dd', Now);
|
|
var nFontSize: Integer := png.Canvas.Font.Size;
|
|
while True do
|
|
begin
|
|
if nFontSize > 200 then
|
|
break;
|
|
|
|
if png.Canvas.TextHeight(sText) > 180 then // 부서명이 들어간 후 2000에서 변경
|
|
begin
|
|
Dec(nFontSize);
|
|
break;
|
|
end;
|
|
Inc(nFontSize);
|
|
png.Canvas.Font.Size := nFontSize;
|
|
end;
|
|
|
|
var jpg: TJPEGImage;
|
|
jpg := TJPEGImage.Create;
|
|
jpg.LoadFromFile(sImgPath);
|
|
|
|
var bmpImg: TBitmap;
|
|
bmpImg := TBitmap.Create;
|
|
bmpImg.Assign(jpg);
|
|
jpg.Free; // Free
|
|
bmpImg.Canvas.Font.Assign(png.Canvas.Font);
|
|
bmpImg.Canvas.Font.Color := clSilver;
|
|
bmpImg.Canvas.Font.Size := nFontSize - (nFontSize div 2);
|
|
bmpImg.Canvas.Font.Style := bmpImg.Canvas.Font.Style + [fsBold];
|
|
|
|
//---
|
|
// sOut := '정보보호부문/2323308/10.177.15.123/2023-12-31';
|
|
// HEC 새로운 요구사항 반영 23_1121 10:22:09 kku
|
|
// bmpImg.Canvas.Font.Size := bmpImg.Canvas.Font.Size + 14;
|
|
// ScalePercentBmp(bmpImg, 120);
|
|
//---
|
|
|
|
var nWW := bmpImg.Canvas.TextWidth(sText);
|
|
if bmpImg.Width > nWW then
|
|
nWW := bmpImg.Width;
|
|
var nHH := bmpImg.Height + bmpImg.Canvas.TextHeight(sText);
|
|
bmpWaterP := TBitmap.Create;
|
|
bmpWaterP.Canvas.Font.Assign(bmpImg.Canvas.Font);
|
|
bmpWaterP.PixelFormat := pf4bit;
|
|
bmpWaterP.SetSize(nWW, nHH);
|
|
bmpWaterP.Canvas.Brush.Color := clWhite;
|
|
bmpWaterP.Canvas.Brush.Style := bsSolid;
|
|
bmpWaterP.Canvas.FillRect(Rect(0, 0, bmpWaterP.Width, bmpWaterP.Height));
|
|
bmpWaterP.Canvas.Draw((nWW div 2) - (bmpImg.Width div 2), 0, bmpImg);
|
|
bmpWaterP.Canvas.TextOut(0, bmpImg.Height, sText);
|
|
bmpImg.Free; // Free
|
|
|
|
RotateBitmap_PlgBlt(bmpWaterP, -0.7, true, clWhite);
|
|
|
|
var ii: Integer;
|
|
var jj: Integer;
|
|
for ii := 0 to bmpWaterP.Width - 1 do
|
|
for jj := 0 to bmpWaterP.Height - 1 do
|
|
if bmpWaterP.Canvas.Pixels[ii, jj] <> clWhite then
|
|
bmpWaterP.Canvas.Pixels[ii, jj] := clGray;
|
|
|
|
// ScalePercentBmp(_bmpWaterP, 60);
|
|
// ScalePercentBmp(_bmpWaterP, 130); // 늘리는거 쓰면 이미지가 빈값이 되는 문제가 있음 24_0514 08:30:40 kku
|
|
bmpWaterP.TransparentColor := clWhite;
|
|
bmpWaterP.Transparent := true;
|
|
end;
|
|
end;
|
|
|
|
if bmpWaterP <> nil then
|
|
begin
|
|
// 추가 24_0626 17:31:52 kku
|
|
var cTrMatrix: TColorMatrix;
|
|
ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
|
// 회색
|
|
cTrMatrix[0][0] := 0.299;
|
|
cTrMatrix[0][1] := 0.299;
|
|
cTrMatrix[0][2] := 0.299;
|
|
cTrMatrix[1][0] := 0.587;
|
|
cTrMatrix[1][1] := 0.587;
|
|
cTrMatrix[1][2] := 0.587;
|
|
cTrMatrix[2][0] := 0.114;
|
|
cTrMatrix[2][1] := 0.114;
|
|
cTrMatrix[2][2] := 0.114;
|
|
cTrMatrix[3][3] := 0.22; // 투명도 1.0 ~ 2.22
|
|
cTrMatrix[4][4] := 1.0;
|
|
|
|
var nIW: Integer := png.Width;
|
|
var nIH: Integer := png.Height;
|
|
var nX := (nIW div 2) - (bmpWaterP.Width div 2);
|
|
var nY := (nIH div 2) - (nIH div 3);
|
|
DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpWaterP, @cTrMatrix);
|
|
|
|
nY := (nIH div 2) + (nIH div 10);
|
|
DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpWaterP, @cTrMatrix);
|
|
|
|
// bmpWaterP.SaveToFile('c:\0.bmp');
|
|
// png.SaveToFile('c:\1.png');
|
|
|
|
SetBkMode(png.Canvas.Handle, TRANSPARENT);
|
|
png.Canvas.Font.Color := clGray;
|
|
SetImgFontSize(Round(bmpWaterP.Canvas.Font.Size * 1.3));
|
|
sBottomText := GetLabelName; // '대외비(Restricted)';
|
|
if sBottomText <> '' then
|
|
begin
|
|
nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
|
nTop := 0;
|
|
png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
|
end;
|
|
|
|
sBottomText := 'Security Starts with Small Habits';
|
|
nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
|
nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
|
png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
|
|
|
SetImgFontSize(bmpWaterP.Canvas.Font.Size div 2);
|
|
sBottomText := 'This document or drawing is the property of Hyundai Engineering. Any reproduction or distribution of the materials without permission of Hyundai engineering is strictly prohibited.';
|
|
nLeft := 0;
|
|
nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
|
png.Canvas.TextOut(0, nTop, sBottomText);
|
|
|
|
// png.SaveToFile('c:\2.png');
|
|
end;
|
|
end;
|
|
|
|
else Result := false;
|
|
end;
|
|
|
|
// 용지를 출력 옵션대로 변경하기 때문에 다시 원래대로 안돌려도 된다 25_0904 10:09:55 kku
|
|
// if bRotate then
|
|
// begin
|
|
// nTmp := nW;
|
|
// nW := nH;
|
|
// nH := nTmp;
|
|
// RotatePng(png, -90);
|
|
// end;
|
|
|
|
if Result then
|
|
begin
|
|
StretchBlt(aDest, 0, 0, nW, nH,
|
|
png.Canvas.Handle, 0, 0, png.Width, png.Height, SRCCOPY);
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
begin
|
|
Result := false;
|
|
ETgException.TraceException(E, 'Fail .. ProcessWatermarkToImage()');
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|