Delphi 설계 대시 배경 모방
8473 단어 Delphi
procedure
TForm1.DrawBackground;
var
FScale : integer;
FGridX :double;
FGridY :double;
procedure
Line(x, y, x1, y1: Integer);
begin
Canvas.MoveTo(x, y);
Canvas.LineTo(x1, y1);
end
;
function
ReverseColor(AColor: TColor): TColor;
var
iR0, iR1, iG0, iG1, iB0, iB1: integer;
begin
iR0 :
=
GetRValue(AColor);
iR1 :
=
255
-
iR0;
iG0 :
=
GetGValue(AColor);
iG1 :
=
255
-
iG0;
iB0 :
=
GetBValue(AColor);
iB1 :
=
255
-
iB0;
Result :
=
RGB(iR1, iG1, iB1);
end
;
procedure
DrawPoints;
var
GridBmp: TBitmap;
i: Extended;
c: TColor;
dx, dy: Extended;
begin
c :
=
ReverseColor(self.Color);
FScale :
=
1
;
FGridX :
=
5
;
//
96
/
25.4
FGridY :
=
5
;
//
96
/
25.4
dx :
=
FGridX
*
FScale;
dy :
=
FGridY
*
FScale;
if
(dx
>
2
)
and
(dy
>
2
)
then
begin
GridBmp :
=
TBitmap.Create;
GridBmp.Width:
=
Width;
GridBmp.Height :
=
1
;
GridBmp.Canvas.Pen.Color :
=
self.Color;
GridBmp.Canvas.MoveTo(
0
,
0
);
GridBmp.Canvas.LineTo(Width,
0
);
i :
=
0
;
while
i
<
Width
do
begin
GridBmp.Canvas.Pixels[Round(i),
0
] :
=
c;
i :
=
i
+
dx;
end
;
i :
=
0
;
while
i
<
Height
do
begin
Canvas.Draw(
0
, Round(i), GridBmp);
i :
=
i
+
dy;
end
;
GridBmp.Free;
end
;
end
;
begin
DrawPoints;
end
;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[Delphi] TStringBuilder그리고 꼭 사용해야만 할까? 그림처럼 Heap 영역에 "Hello" 공간을 생성하고 포인팅을 한다. "Hello World" 공간을 새로 생성한 후 포인팅을 하게 된다. 결국 "Hello" 라는 String 객체가 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
