Как изменить режим отображения на канве наследника TShape?
Хочу установить режим MM_HIMETRIC. Перекрыл в наследнике TShape (TMetricShape) метод Paint. Для смены режима отображения на канве MetricShape применил функцию SetMapMode, установил начало координат в левый нижний угол MetricShape. Но, насколько я понимаю, фигура рисуется на канве формы. Так можно подумать, если добавить объект на форму, увеличить его размеры и поместить в левый нижний угол формы. Тогда в границах объекта появится маленькая фигура, уменьшившуяся в соответствии с разрешением экрана и переходом от координам в пикселях к координатам в 0.01 мм.
Как добиться того, чтобы фигура находилась на канве MetricShape?
| Код |
unit uMetricShape;
interface
uses
SysUtils, Classes, Controls, ExtCtrls, Windows;
type
TMetricShape = class(TShape)
private
{ Private declarations }
protected
{ Protected declarations }
procedure Paint; override;
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('MyComponents', [TMetricShape]);
end;
procedure TMetricShape.Paint;
var
X, Y, W, H, S: Integer;
begin
with Canvas do
begin
{новый режим отобображения MM_HIMETRIC (0.001 м)}
SetMapMode(handle,MM_HIMETRIC);
{установка начала координат в левый нижний угол}
SetViewPortOrgEx(Handle, 0, Self.Height, nil);
Pen := Self.Pen;
Brush := Self.Brush;
X := Pen.Width div 2;
Y := X;
W := Width - Pen.Width + 1;
H := Height - Pen.Width + 1;
if Pen.Width = 0 then
begin
Dec(W);
Dec(H);
end;
if W < H then S := W else S := H;
if Self.Shape in [stSquare, stRoundSquare, stCircle] then
begin
Inc(X, (W - S) div 2);
Inc(Y, (H - S) div 2);
W := S;
H := S;
end;
case Self.Shape of
stRectangle, stSquare:
Rectangle(X, Y, X + W, Y + H);
stRoundRect, stRoundSquare:
RoundRect(X, Y, X + W, Y + H, S div 4, S div 4);
stCircle, stEllipse:
Ellipse(X, Y, X + W, Y + H);
end;
end;
end;
end.
|
Вот MetricShape на форме
http://s1.ipicture.ru/uploads/20140527/thumb/szup4WWu.bmp
Буду весьма признателен всем откликнувшимся) |
)