📄 bsutils.pas
字号:
XCnt := (NewRBPt.X - NewLBPt.X) div (RBPt.X - LBPt.X);
for X := 0 to XCnt do
begin
if NewLBPt.X + X * w + w > NewRBPt.X
then XO := NewLBPt.X + X * w + w - NewRBPt.X else XO := 0;
CopyRect(Rect(NewLBPt.X + X * w, NewClRect.Bottom, NewLBPt.X + X * w + w - XO, AH),
SB.Canvas, Rect(R.Left + LBPt.X, R.Top + ClRect.Bottom,
R.Left + RBPt.X - XO, R.Bottom));
end;
end
else
begin
R1 := Rect(NewLBPt.X, NewClRect.Bottom, NewRBPt.X, AH);
R2 := Rect(R.Left + LBPt.X, R.Top + ClRect.Bottom, R.Left + RBPt.X, R.Bottom);
Buffer := TBitMap.Create;
Buffer.Width := RectWidth(R2);
Buffer.Height := RectHeight(R2);
R3 := Rect(0, 0, Buffer.Width, Buffer.Height);
Buffer.Canvas.CopyRect(R3, SB.Canvas, R2);
StretchDraw(R1, Buffer);
Buffer.Free;
end;
// left
if not ALeftStretch
then
begin
w := NewClRect.Left;
h := LBPt.Y - LTPt.Y;
YCnt := (NewLBPt.Y - NewLTPt.Y) div h;
for Y := 0 to YCnt do
begin
if NewLTPt.Y + Y * h + h > NewLBPt.Y
then YO := NewLTPt.Y + Y * h + h - NewLBPt.Y else YO := 0;
CopyRect(Rect(0, NewLTPt.Y + Y * h, w, NewLTPt.Y + Y * h + h - YO),
SB.Canvas,
Rect(R.Left, R.Top + LTPt.Y, R.Left + w, R.Top + LBPt.Y - YO));
end
end
else
begin
R1 := Rect(0, NewLTPt.Y, NewClRect.Left, NewLBPt.Y);
R2 := Rect(R.Left, R.Top + LtPt.Y, R.Left + ClRect.Left, R.Top + LBPt.Y);
Buffer := TBitMap.Create;
Buffer.Width := RectWidth(R2);
Buffer.Height := RectHeight(R2);
R3 := Rect(0, 0, Buffer.Width, Buffer.Height);
Buffer.Canvas.CopyRect(R3, SB.Canvas, R2);
StretchDraw(R1, Buffer);
Buffer.Free;
end;
// right
if not ARightStretch
then
begin
h := RBPt.Y - RTPt.Y;
YCnt := (NewRBPt.Y - NewRTPt.Y) div h;
for Y := 0 to YCnt do
begin
if NewRTPt.Y + Y * h + h > NewRBPt.Y
then YO := NewRTPt.Y + Y * h + h - NewRBPt.Y else YO := 0;
CopyRect(Rect(NewClRect.Right, NewRTPt.Y + Y * h,
AW, NewRTPt.Y + Y * h + h - YO),
SB.Canvas,
Rect(R.Left + ClRect.Right, R.Top + RTPt.Y,
R.Right, R.Top + RBPt.Y - YO));
end
end
else
begin
R1 := Rect(NewClRect.Right, NewRTPt.Y, AW, NewRBPt.Y);
R2 := Rect(R.Left + ClRect.Right, R.Top + RtPt.Y, R.Right, R.Top + RBPt.Y);
Buffer := TBitMap.Create;
Buffer.Width := RectWidth(R2);
Buffer.Height := RectHeight(R2);
R3 := Rect(0, 0, Buffer.Width, Buffer.Height);
Buffer.Canvas.CopyRect(R3, SB.Canvas, R2);
StretchDraw(R1, Buffer);
Buffer.Free;
end;
// Draw corners
// lefttop
CopyRect(Rect(0, 0, NewLTPt.X, NewClRect.Top),
SB.Canvas, Rect(R.Left, R.Top,
R.Left + LTPt.X, R.Top + ClRect.Top));
CopyRect(Rect(0, NewClRect.Top, NewClRect.Left, NewLTPt.Y),
SB.Canvas, Rect(R.Left, R.Top + ClRect.Top,
R.Left + ClRect.left, R.Top + LTPT.Y));
//topright
CopyRect(Rect(NewRTPt.X, 0, AW, NewClRect.Top), SB.Canvas,
Rect(R.Left + RTPt.X, R.Top, R.Right, R.Top + ClRect.Top));
CopyRect(Rect(NewClRect.Right, NewClRect.Top, AW, NewRTPt.Y), SB.Canvas,
Rect(R.Left + ClRect.Right, R.Top + ClRect.Top,
R.Right, R.Top + RTPt.Y));
//leftbottom
CopyRect(Rect(0, NewLBPt.Y, NewClRect.Left, AH), SB.Canvas,
Rect(R.Left, R.Top + LBPt.Y, R.Left + ClRect.Left, R.Bottom));
CopyRect(Rect(NewClRect.Left, NewClRect.Bottom, NewLBPt.X, AH), SB.Canvas,
Rect(R.Left + ClRect.Left, R.Top + ClRect.Bottom, R.Left + LBPt.X, R.Bottom));
//rightbottom
CopyRect(Rect(NewRBPt.X, NewClRect.Bottom, AW, AH), SB.Canvas,
Rect(R.Left + RBPt.X, R.Top + ClRect.Bottom, R.Right, R.Bottom));
CopyRect(Rect(NewClRect.Right, NewRBPt.Y, AW, NewClRect.Bottom), SB.Canvas,
Rect(R.Left + ClRect.Right, R.Top + RBPt.Y,
R.Right, R.Top + ClRect.Bottom));
//Draw client
if ADrawClient
then
if AClientStretch
then
begin
Buffer := TBitMap.Create;
Buffer.Width := RectWidth(ClRect);
Buffer.Height := RectHeight(ClRect);
Buffer.Canvas.CopyRect(Rect(0, 0, Buffer.Width, Buffer.Height),
SB.Canvas, Rect(R.Left + ClRect.Left, R.Top + ClRect.Top,
R.Left + ClRect.Right, R.Top + ClRect.Bottom));
if (RectWidth(NewClRect) > 0) and (RectHeight(NewClRect) > 0) then
case AStretchType of
bsstFull:
StretchDraw(NewClRect, Buffer);
bsstHorz:
begin
SaveIndex := SaveDC(B.Canvas.Handle);
IntersectClipRect(B.Canvas.Handle,
NewCLRect.Left, NewCLRect.Top, NewCLRect.Right, NewClRect.Bottom);
//
Buffer2 := TBitMap.Create;
Buffer2.Width := Buffer.Width;
Buffer2.Height := RectHeight(NewClRect);
Buffer2.Canvas.StretchDraw(Rect(0, 0, Buffer2.Width, Buffer2.Height), Buffer);
XCnt := RectWidth(NewClRect) div Buffer2.Width;
for X := 0 to XCnt do
B.Canvas.Draw(NewClRect.Left + X * Buffer2.Width, NewClRect.Top, Buffer2);
Buffer2.Free;
//
RestoreDC(B.Canvas.Handle, SaveIndex);
end;
bsstVert:
begin
SaveIndex := SaveDC(B.Canvas.Handle);
IntersectClipRect(B.Canvas.Handle,
NewCLRect.Left, NewCLRect.Top, NewCLRect.Right, NewClRect.Bottom);
//
Buffer2 := TBitMap.Create;
Buffer2.Width := RectWidth(NewClRect);
Buffer2.Height := Buffer.Height;
Buffer2.Canvas.StretchDraw(Rect(0, 0, Buffer2.Width, Buffer2.Height), Buffer);
YCnt := RectHeight(NewClRect) div Buffer2.Height;
for Y := 0 to YCnt do
B.Canvas.Draw(NewClRect.Left, NewClRect.Top + Y * Buffer2.Height, Buffer2);
Buffer2.Free;
//
RestoreDC(B.Canvas.Handle, SaveIndex);
end;
end;
Buffer.Free;
end
else
begin
w := RectWidth(ClRect);
h := RectHeight(ClRect);
rw := RectWidth(NewClRect);
rh := RectHeight(NewClRect);
// Draw client area
XCnt := rw div w;
YCnt := rh div h;
for X := 0 to XCnt do
for Y := 0 to YCnt do
begin
if X * w + w > rw then XO := X * W + W - rw else XO := 0;
if Y * h + h > rh then YO := Y * h + h - rh else YO := 0;
CopyRect(Rect(NewClRect.Left + X * w, NewClRect.Top + Y * h,
NewClRect.Left + X * w + w - XO,
NewClRect.Top + Y * h + h - YO),
SB.Canvas,
Rect(R.Left + ClRect.Left, R.Top + ClRect.Top,
R.Left + ClRect.Right - XO,
R.Top + ClRect.Bottom - YO));
end;
end;
end;
end;
procedure CreateSkinImage2;
var
w, h, rw, rh: Integer;
X, Y, XCnt, YCnt: Integer;
XO, YO: Integer;
NCLRect: TRect;
R1, R2, R3: TRect;
Buffer, Buffer2: TBitMap;
SaveIndex: Integer;
begin
B.Width := AW;
B.Height := AH;
if (RBPt.X - LTPt.X = 0) or
(RBPt.Y - LTPt.Y = 0) or SB.Empty then Exit;
with B.Canvas do
begin
// Draw lines
// top
if not ATopStretch
then
begin
w := RBPt.X - LTPt.X;
XCnt := (AW - NewLTPt.X) div (RBPt.X - LTPt.X);
for X := 0 to XCnt do
begin
if NewLTPt.X + X * w + w > AW
then XO := NewLTPt.X + X * w + w - AW else XO := 0;
CopyRect(Rect(NewLTPt.X + X * w, 0, NewLTPt.X + X * w + w - XO, NewClRect.Top),
SB.Canvas, Rect(R.Left + LTPt.X, R.Top,
R.Left + RTPt.X - XO, R.Top + ClRect.Top));
end;
end
else
begin
R1 := Rect(NewLTPt.X, 0, AW, NewClRect.Top);
R2 := Rect(R.Left + LTPt.X, R.Top, R.Left + RTPt.X, R.Top + ClRect.Top);
Buffer := TBitMap.Create;
Buffer.Width := RectWidth(R2);
Buffer.Height := RectHeight(R2);
R3 := Rect(0, 0, Buffer.Width, Buffer.Height);
Buffer.Canvas.CopyRect(R3, SB.Canvas, R2);
StretchDraw(R1, Buffer);
Buffer.Free;
end;
// bottom
if not ABottomStretch
then
begin
w := RBPt.X - LBPt.X;
XCnt := (AW - NewLBPt.X) div (RBPt.X - LBPt.X);
for X := 0 to XCnt do
begin
if NewLBPt.X + X * w + w > AW
then XO := NewLBPt.X + X * w + w - AW else XO := 0;
CopyRect(Rect(NewLBPt.X + X * w, NewClRect.Bottom, NewLBPt.X + X * w + w - XO, AH),
SB.Canvas, Rect(R.Left + LBPt.X, R.Top + ClRect.Bottom,
R.Left + RBPt.X - XO, R.Bottom));
end
end
else
begin
R1 := Rect(NewLBPt.X, NewClRect.Bottom, AW, AH);
R2 := Rect(R.Left + LBPt.X, R.Top + ClRect.Bottom, R.Left + RBPt.X, R.Bottom);
Buffer := TBitMap.Create;
Buffer.Width := RectWidth(R2);
Buffer.Height := RectHeight(R2);
R3 := Rect(0, 0, Buffer.Width, Buffer.Height);
Buffer.Canvas.CopyRect(R3, SB.Canvas, R2);
StretchDraw(R1, Buffer);
Buffer.Free;
end;
// left
if not ALeftStretch
then
begin
w := NewClRect.Left;
h := LBPt.Y - LTPt.Y;
YCnt := (NewLBPt.Y - NewLTPt.Y) div h;
for Y := 0 to YCnt do
begin
if NewLTPt.Y + Y * h + h > NewLBPt.Y
then YO := NewLTPt.Y + Y * h + h - NewLBPt.Y else YO := 0;
CopyRect(Rect(0, NewLTPt.Y + Y * h, w, NewLTPt.Y + Y * h + h - YO),
SB.Canvas,
Rect(R.Left, R.Top + LTPt.Y, R.Left + w, R.Top + LBPt.Y - YO));
end;
end
else
begin
R1 := Rect(0, NewLTPt.Y, NewClRect.Left, NewLBPt.Y);
R2 := Rect(R.Left, R.Top + LtPt.Y, R.Left + ClRect.Left, R.Top + LBPt.Y);
Buffer := TBitMap.Create;
Buffer.Width := RectWidth(R2);
Buffer.Height := RectHeight(R2);
R3 := Rect(0, 0, Buffer.Width, Buffer.Height);
Buffer.Canvas.CopyRect(R3, SB.Canvas, R2);
StretchDraw(R1, Buffer);
Buffer.Free;
end;
// lefttop
CopyRect(Rect(0, 0, NewLTPt.X, NewClRect.Top),
SB.Canvas, Rect(R.Left, R.Top,
R.Left + LTPt.X, R.Top + ClRect.Top));
CopyRect(Rect(0, NewClRect.Top, NewClRect.Left, NewLTPt.Y),
SB.Canvas, Rect(R.Left, R.Top + ClRect.Top,
R.Left + ClRect.left, R.Top + LTPT.Y));
//leftbottom
CopyRect(Rect(0, NewLBPt.Y, NewClRect.Left, AH), SB.Canvas,
Rect(R.Left, R.Top + LBPt.Y, R.Left + ClRect.Left, R.Bottom));
CopyRect(Rect(NewClRect.Left, NewClRect.Bottom, NewLBPt.X, AH), SB.Canvas,
Rect(R.Left + ClRect.Left, R.Top + ClRect.Bottom, R.Left + LBPt.X, R.Bottom));
//Draw client
if ADrawClient
then
if AClientStretch
then
begin
NCLRect := NewClRect;
NCLRect.Right := AW;
Buffer := TBitMap.Create;
Buffer.Width := RectWidth(ClRect);
Buffer.Height := RectHeight(ClRect);
Buffer.Canvas.CopyRect(Rect(0, 0, Buffer.Width, Buffer.Height),
SB.Canvas, Rect(R.Left + ClRect.Left, R.Top + ClRect.Top,
R.Left + ClRect.Right, R.Top + ClRect.Bottom));
if (RectWidth(NClRect) > 0) and (RectHeight(NClRect) > 0) then
case AStretchType of
bsstFull:
StretchDraw(NClRect, Buffer);
bsstHorz:
begin
SaveIndex := SaveDC(B.Canvas.Handle);
IntersectClipRect(B.Canvas.Handle,
NClRect.Left, NClRect.Top, NClRect.Right, NClRect.Bottom);
//
Buffer2 := TBitMap.Create;
Buffer2.Width := Buffer.Width;
Buffer2.Height := RectHeight(NClRect);
Buffer2.Canvas.StretchDraw(Rect(0, 0, Buffer2.Width, Buffer2.Height), Buffer);
XCnt := RectWidth(NClRect) div Buffer2.Width;
for X := 0 to XCnt do
B.Canvas.Draw(NClRect.Left + X * Buffer2.Width, NClRect.Top, Buffer2);
Buffer2.Free;
//
RestoreDC(B.Canvas.Handle, SaveIndex);
end;
bsstVert:
begin
SaveIndex := SaveDC(B.Canvas.Handle);
IntersectClipRect(B.Canvas.Handle,
NewCLRect.Left, NewCLRect.Top, NewCLRect.Right, NClRect.Bottom);
//
Buffer2 := TBitMap.Create;
Buffer2.Width := RectWidth(NClRect);
Buffer2.Height := Buffer.Height;
Buffer2.Canvas.StretchDraw(Rect(0, 0, Buffer2.Width, Buffer2.Height), Buffer);
YCnt := RectHeight(NClRect) div Buffer2.Height;
for Y := 0 to YCnt do
B.Canvas.Draw(NClRect.Left, NClRect.Top + Y * Buffer2.Height, Buffer2);
Buffer2.Free;
//
RestoreDC(B.Canvas.Handle, SaveIndex);
end;
end;
Buffer.Free;
end
else
begin
NCLRect := NewClRect;
NCLRect.Right := AW;
w := RectWidth(ClRect);
h := RectHeight(ClRect);
rw := RectWidth(NCLRect);
rh := RectHeight(NCLRect);
// Draw client area
XCnt := rw div w;
YCnt := rh div h;
for X := 0 to XCnt do
for Y := 0 to YCnt do
begin
if X * w + w > rw then XO := X * W + W - rw else XO := 0;
if Y * h + h > rh then YO := Y * h + h - rh else YO := 0;
CopyRect(Rect(NCLRect.Left + X * w, NCLRect.Top + Y * h,
NCLRect.Left + X * w + w - XO,
NCLRect.Top + Y * h + h - YO),
SB.Canvas,
Rect(R.Left + ClRect.Left, R.Top + ClRect.Top,
R.Left + ClRect.Right - XO,
R.Top + ClRect.Bottom - YO));
end;
end;
end;
end;
procedure CreateSkinMask;
var
i, j, k: Integer;
LWidth, TWidth, RWidth, BWidth: Integer;
Ofs: Integer;
W, H: Integer;
begin
LWidth := ClRect.Left;
TWidth := ClRect.Top;
RWidth := FMask.Width - ClRect.Right;
BWidth := FMask.Height - ClRect.Bottom;
//left
W := LWidth;
H := RectHeight(NewClRect);
if (W > 0) and (H > 0) then
begin
RMLeft.Width := W;
RMLeft.Height := H;
j := LBPt.Y - LTPt.Y;
with RMLeft.Canvas do
begin
if j <> 0
then
for i := 0 to RMLeft.Height div j do
begin
if i * j + j > RMLeft.Height
then Ofs := i * j + j - RMLeft.Height else Ofs := 0;
CopyRect(Rect(0, i * j, LWidth, i * j + j⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -