127 lines
10 KiB
HTML
127 lines
10 KiB
HTML
<HTML><HEAD><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
|
|
<param name="Keyword" value="Àíèìèðóåò">
|
|
<param name="Keyword" value="Áàçîâûé">
|
|
<param name="Keyword" value="Âèäèìîñòü">
|
|
<param name="Keyword" value="Âûðàâíèâàíèå">
|
|
<param name="Keyword" value="Âûñîòà">
|
|
<param name="Keyword" value="Äåêîðàòîð">
|
|
<param name="Keyword" value="Äîáàâëÿåò">
|
|
<param name="Keyword" value="Çàâåðøàåò">
|
|
<param name="Keyword" value="Èìÿ">
|
|
<param name="Keyword" value="Ëåâûé">
|
|
<param name="Keyword" value="Ìàñøòàáèðóåò">
|
|
<param name="Keyword" value="Ìíîæèòåëü">
|
|
<param name="Keyword" value="Íàïðàâëåíèå">
|
|
<param name="Keyword" value="Îïðåäåëÿåò">
|
|
<param name="Keyword" value="Îòìàñøòàáèðîâàííàÿ">
|
|
<param name="Keyword" value="Îòìàñøòàáèðîâàííûé">
|
|
<param name="Keyword" value="Îòñòóï">
|
|
<param name="Keyword" value="Ïåðåìåùàåò">
|
|
<param name="Keyword" value="Ïåðåíîñèò">
|
|
<param name="Keyword" value="Ïîâîðà÷èâàåò">
|
|
<param name="Keyword" value="Ïðàâûé">
|
|
<param name="Keyword" value="Ïðÿìîóãîëüíèê">
|
|
<param name="Keyword" value="Ðàçìåð">
|
|
<param name="Keyword" value="Òåêñò">
|
|
<param name="Keyword" value="Óãîë">
|
|
<param name="Keyword" value="Óäàëÿåò">
|
|
<param name="Keyword" value="Öâåò">
|
|
<param name="Keyword" value="Öåëîå">
|
|
<param name="Keyword" value="Öåíòð">
|
|
<param name="Keyword" value="Øèðèíà"></object>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="StyleSheet" href="../../../default.css">
|
|
</HEAD><body><H1>Êëàññ ObjectWPF</H1>
|
|
<table border=0 cellpadding=5><tr><td><code>/// Áàçîâûé êëàññ ãðàôè÷åñêèõ îáúåêòîâ;</code>
|
|
<br> lignment = (LeftTop,CenterTop,RightTop,LeftCenter,Center,RightCenter,LeftBottom,CenterBottom,RightBottom);</td></tr>
|
|
<tr><td><code>/// Íàïðàâëåíèå äâèæåíèÿ ïî îñè X. Èñïîëüçóåòñÿ ìåòîäîì Move;</code>
|
|
<br> ectWPF = class</td></tr>
|
|
<tr><td><code>/// Íàïðàâëåíèå äâèæåíèÿ ïî îñè Y. Èñïîëüçóåòñÿ ìåòîäîì Move;</code>
|
|
<br> o property Dx: real;</td></tr>
|
|
<tr><td><code>/// Îòñòóï ãðàôè÷åñêîãî îáúåêòà îò ëåâîãî êðàÿ;</code>
|
|
<br> o property Dy: real;</td></tr>
|
|
<tr><td><code>/// Îòñòóï ãðàôè÷åñêîãî îáúåêòà îò âåðõíåãî êðàÿ;</code>
|
|
<br> perty Left: real read InvokeReal(()->transl.X{Canvas.GetLeft(can)}) write Invoke(procedure->transl.X := value{Canvas.SetLeft(can,value)});</td></tr>
|
|
<tr><td><code>/// Øèðèíà ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty Top: real read InvokeReal(()->transl.Y{Canvas.GetTop(can)}) write Invoke(procedure->transl.Y := value{Canvas.SetTop(can,value)});</td></tr>
|
|
<tr><td><code>/// Âûñîòà ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty Width: real read InvokeReal(()->gr.Width) write Invoke(procedure->begin gr.Width := value; ob.Width := value end); virtual;</td></tr>
|
|
<tr><td><code>/// Îòìàñøòàáèðîâàííàÿ øèðèíà ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty Height: real read InvokeReal(()->gr.Height) write Invoke(procedure->begin gr.Height := value; ob.Height := value end); virtual;</td></tr>
|
|
<tr><td><code>/// Îòìàñøòàáèðîâàííàÿ âûñîòà ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty ScaledWidth: real read Width*ScaleFactor;</td></tr>
|
|
<tr><td><code>/// Ðàçìåð ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty ScaledHeight: real read Height*ScaleFactor;</td></tr>
|
|
<tr><td><code>/// Îòìàñøòàáèðîâàííûé ðàçìåð ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty Size: GSize read Invoke<GSize>(()->new GSize(gr.Width,gr.Height))</td></tr>
|
|
<tr><td><code>/// Ïðÿìîóãîëüíèê ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty ScaledSize: GSize read new GSize(ScaledWidth,ScaledHeight);</td></tr>
|
|
<tr><td><code>/// Òåêñò âíóòðè ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty Bounds: GRect read Invoke<GRect>(()->begin Result := new GRect(transl.X,transl.Y,gr.Width,gr.Height); end);</td></tr>
|
|
<tr><td><code>/// Öåëîå ÷èñëî, âûâîäèìîå â öåíòðå ãðàôè÷åñêîãî îáúåêòà. Èñïîëüçóåòñÿ ñâîéñòâî Text;</code>
|
|
<br> perty Text: string read InvokeString(()->t.Text) write Invoke(procedure->t.Text := value); virtual;</td></tr>
|
|
<tr><td><code>/// Âèäèìîñòü ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty Number: integer read Text.ToInteger(0) write Text := Value.ToString;</td></tr>
|
|
<tr><td><code>/// Âûðàâíèâàíèå òåêñòà âíóòðè ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty Visible: boolean</td></tr>
|
|
<tr><td><code>/// Ðàçìåð øðèôòà òåêñòà âíóòðè ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty TextAlignment: Alignment write Invoke(WTA,Value);</td></tr>
|
|
<tr><td><code>/// Èìÿ øðèôòà òåêñòà âíóòðè ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty FontSize: real read InvokeReal(()->t.FontSize) write Invoke(procedure->t.FontSize := value); virtual;</td></tr>
|
|
<tr><td><code>/// Öâåò øðèôòà òåêñòà âíóòðè ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty FontName: string write Invoke(procedure->t.FontFamily := new FontFamily(value)); virtual;</td></tr>
|
|
<tr><td><code>/// Öåíòð ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty FontColor: Color</td></tr>
|
|
<tr><td><code>/// Ëåâûé âåðõíèé óãîë ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty Center: Point</td></tr>
|
|
<tr><td><code>/// Ëåâûé íèæíèé óãîë ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty LeftTop: Point read Pnt(Left,Top);</td></tr>
|
|
<tr><td><code>/// Ïðàâûé âåðõíèé óãîë ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty LeftBottom: Point read Pnt(Left,Top + Height);</td></tr>
|
|
<tr><td><code>/// Ïðàâûé íèæíèé óãîë ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty RightTop: Point read Pnt(Left + Height,Top);</td></tr>
|
|
<tr><td><code>/// Óãîë ïîâîðîòà ãðàôè÷åñêîãî îáúåêòà (ïî ÷àñîâîé ñòðåëêå);</code>
|
|
<br> perty RightBottom: Point read Pnt(Left + Height,Top + Height);</td></tr>
|
|
<tr><td><code>/// Ìíîæèòåëü ìàñøòàáèðîâàíèÿ îáúåêòà;</code>
|
|
<br> perty RotateAngle: real read InvokeReal(()->rot.Angle) write Invoke(procedure->rot.Angle := value);</td></tr>
|
|
<tr><td><code>/// Öâåò ãðàôè÷åñêîãî îáúåêòà;</code>
|
|
<br> perty ScaleFactor: real read InvokeReal(()->sca.ScaleX) write Invoke(()->begin (sca.ScaleX, sca.ScaleY) := (value,value); end);</td></tr>
|
|
<tr><td><code>/// Ïåðåìåùàåò ëåâûé âåðõíèé óãîë ãðàôè÷åñêîãî îáúåêòà ê òî÷êå (x,y);</code>
|
|
<br> perty Color: GColor</td></tr>
|
|
<tr><td><code>/// Ïåðåìåùàåò ãðàôè÷åñêèé îáúåêò â íàïðàâëåíèè RotateAngle (ââåðõ ïðè RotateAngle=0);</code>
|
|
<br> cedure MoveTo(x,y: real) := (Self.Left,Self.Top) := (x,y);</td></tr>
|
|
<tr><td><code>/// Ïåðåìåùàåò ãðàôè÷åñêèé îáúåêò íà âåêòîð (a,b);</code>
|
|
<br> cedure MoveForward(r: real);</td></tr>
|
|
<tr><td><code>/// Ïåðåìåùàåò ãðàôè÷åñêèé îáúåêò íà âåêòîð (dx,dy);</code>
|
|
<br> cedure MoveOn(a,b: real) := MoveTo(Left+a,Top+b);</td></tr>
|
|
<tr><td><code>/// Ïîâîðà÷èâàåò ãðàôè÷åñêèé îáúåêò ïî ÷àñîâîé ñòðåëêå íà óãîë a;</code>
|
|
<br> cedure Move; virtual := MoveOn(dx,dy);</td></tr>
|
|
<tr><td><code>/// Ìàñøòàáèðóåò ãðàôè÷åñêèé îáúåêò â r ðàç îòíîñèòåëüíî òåêóùåãî ðàçìåðà;</code>
|
|
<br> cedure Rotate(a: real) := RotateAngle += a;</td></tr>
|
|
<tr><td><code>/// Àíèìèðóåò ïåðåìåùåíèå ãðàôè÷åñêîãî îáúåêòà íà âåêòîð (a,b) â òå÷åíèå sec ñåêóíä;</code>
|
|
<br> cedure Scale(r: real) := ScaleFactor *= r;</td></tr>
|
|
<tr><td><code>/// Àíèìèðóåò ïåðåìåùåíèå ãðàôè÷åñêîãî îáúåêòà ê òî÷êå (x,y) â òå÷åíèå sec ñåêóíä;</code>
|
|
<br> cedure AnimMoveOn(a,b: real; sec: real := 1) := Invoke(AnimMoveOnP,a,b,sec);</td></tr>
|
|
<tr><td><code>/// Çàâåðøàåò àíèìàöèþ ïåðåìåùåíèÿ;</code>
|
|
<br> cedure AnimMoveTo(x,y: real; sec: real := 1) := Invoke(AnimMoveToP,x,y,sec);</td></tr>
|
|
<tr><td><code>/// Àíèìèðóåò âðàùåíèå ãðàôè÷åñêîãî îáúåêòà íà óãîë a â òå÷åíèå sec ñåêóíä;</code>
|
|
<br> cedure AnimMoveEnd := Invoke(AnimMoveEndP);</td></tr>
|
|
<tr><td><code>/// Àíèìèðóåò ìàñøòàáèðîâàíèå ãðàôè÷åñêîãî îáúåêòà íà âåëè÷èíó a â òå÷åíèå sec ñåêóíä;</code>
|
|
<br> cedure AnimRotate(a: real; sec: real := 1) := Invoke(AnimRotateP,a,sec);</td></tr>
|
|
<tr><td><code>/// Äîáàâëÿåò ê ãðàôè÷åñêîìó îáúåêòó äî÷åðíèé;</code>
|
|
<br> cedure AnimScale(a: real; sec: real := 1) := Invoke(AnimScaleP,a,sec);</td></tr>
|
|
<tr><td><code>/// Óäàëÿåò èç ãðàôè÷åñêîãî îáúåêòà äî÷åðíèé;</code>
|
|
<br> cedure AddChild(ch: ObjectWPF; al: Alignment := Alignment.LeftTop);</td></tr>
|
|
<tr><td><code>/// Óäàëÿåò ãðàôè÷åñêèé îáúåêò;</code>
|
|
<br> cedure DeleteChild(ch: ObjectWPF);</td></tr>
|
|
<tr><td><code>/// Ïåðåíîñèò ãðàôè÷åñêèé îáúåêò íà ïåðåäíèé ïëàí;</code>
|
|
<br> cedure Destroy;</td></tr>
|
|
<tr><td><code>/// Ïåðåíîñèò ãðàôè÷åñêèé îáúåêò íà çàäíèé ïëàí;</code>
|
|
<br> cedure ToFront;</td></tr>
|
|
<tr><td><code>/// Îïðåäåëÿåò, ïåðåñåêàåòñÿ ëè îáúåêò ñ îáúåêòîì ob;</code>
|
|
<br> cedure ToBack;</td></tr>
|
|
<tr><td><code>/// Äåêîðàòîð òåêñòà îáúåêòà;</code>
|
|
<br> ction Intersects(ob: ObjectWPF): boolean;</td></tr>
|
|
<tr><td><code>/// Äåêîðàòîð ïîâîðîòà îáúåêòà;</code>
|
|
<br> ction WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF;</td></tr>
|
|
</table>
|
|
</body></HTML> |