Функция, которая нарисует на форме сетку и сделает форму похожей на дизайнер форм Delphi
Материал из DRKB
Функция, которая нарисует на форме сетку и сделает форму похожей на дизайнер форм Delphi[править | править код]
Функция, которая нарисует на форме сетку и сделает форму похожей на дизайнер форм Delphi. По умолчанию в дизайнере Delphi отступы равны 8 пикселям
procedure TForm1.DrawGrid;
var
TmpBmp: TBitmap;
begin
TmpBmp := TBitmap.Create;
try
with TmpBmp do
begin
Width := 8;
Height := 8;
Canvas.Brush.Color := clBtnFace;
Canvas.FillRect(TmpBmp.Canvas.ClipRect);
Canvas.Pixels[0, 0] := clBlack;
Canvas.Pixels[0, Height] := clBlack;
Canvas.Pixels[Width, 0] := clBlack;
Canvas.Pixels[Width, Height] := clBlack;
end;
with Canvas, Brush do
begin
Bitmap := TBitmap.Create;
try
Bitmap.Assign(TmpBmp);
Canvas.FillRect(Canvas.ClipRect);
finally
Bitmap.Free;
end;
end;
finally
TmpBmp.Free;
end;
end;
{ Использование }
procedure TForm1.FormPaint(Sender: TObject);
begin
DrawGrid;
end;
Ещё способ, рисует сетку либо линии на компоненте AObject цветом FGridColor, в параметре ACanvas нужно передать холст компонента, FSizeX и FSizeY определяют размер сетки либо линий:
type
TGridType = (gtDots, gtLines);
procedure Draw(AObject: TControl; ACanvas: TCanvas; FGridType: TGridType; FGridColor: TColor;
FSizeX, FSizeY: Integer);
var
ColorRGB, X, Y, MaxX, MaxY: Integer;
DC: HDC;
begin
MaxX := AObject.ClientWidth Div FSizeX;
MaxY := AObject.ClientHeight Div FSizeY;
case FGridType of
gtDots:
begin
ColorRGB := ColorToRGB(FGridColor);
DC := ACanvas.Handle;
for X := 0 to MaxX do
for Y := 0 to MaxY do
SetPixel(DC, X * FSizeX, Y * FSizeY, ColorRGB);
end;
gtLines:
begin
ACanvas.Pen.Color := FGridColor;
for X := 0 to MaxX do
begin
ACanvas.MoveTo(X * FSizeX, 0);
ACanvas.LineTo(X * FSizeY, AObject.ClientHeight);
end;
for Y := 0 to MaxY do
begin
ACanvas.MoveTo(0, Y * FSizeY);
ACanvas.LineTo(AObject.ClientWidth, Y * FSizeY);
end;
end;
end;
end;
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00431