Помогите исправить ошибку в тексте!

← →
SilenBlock © (2005-04-20 10:30) [0]

Привет Всем! Народ Подскажите новичку!
есть исходник для построения координатной сетки, а рисовать не хочет!! Или чаво ему добавить чтоб намалювало?
Вот текст:

unit unit1;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; implementation
{$R *.DFM}
procedure TForm1.FormPaint(Sender: TObject);
var
x0,y0:integer; // êîîðäèíàòû íà÷àëà êîîðäèíàòíûõ îñåé
dx,dy:integer; // øàã êîîðäèíàòíîé ñåòêè (â ïèêñåëàõ)
h,w:integer; // âûñîòà è øèðèíà îáëàñòè âûâîäà êîîðäèíàòíîé ñåòêè
x,y:integer;
lx,ly:real; // ìåòêè (îöèôðîâêà) ëèíèé ñåòêè ïî x è Y
dlx,dly:real; // øàã ìåòîê (îöèôðîâêè) ëèíèé ñåòêè ïî x è Y

cross:integer; // ñ÷åò÷èê íåîöèôðîâàííûõ ëèíèé ñåòêè

dcross:integer;// êîëè÷åñòâî íåîöèôðîâàííûõ ëèíèé ìåæäó îöèôðîâàííûìè

begin

x0:=30; y0:=220; // îñè íà÷èíàþòñÿ â òî÷êå (40,250)

dx:=40; dy:=40; // øàð êîîðäèíàòíîé ñåòêè 40 ïèêñåëîâ

dcross:=1; // ïîìå÷àòü ëèíèè ñåòêè x: 1 — êàæäóþ;

// 2 — ÷åðåç îäíó;
// 3 — ÷åðåç äâå;

dlx:=0.5; // øàã ìåòîê îñè x

dly:=1.0; // øàã ìåòîê îñè Y, ìåòêàìè áóäóò: 1, 2, 3 è ò. ä.

h:=200; w:=300;

with form1.Canvas do begin

cross:=dcross;

MoveTo(x0,y0); LineTo(x0,y0-h); // îñü x

MoveTo(x0,y0); LineTo(x0+w, y0); // îñü Y

// çàñå÷êè, ñåòêà è îöèôðîâêà ïî îñè x

x:=x0+dx;

lx:=dlx;

repeat

MoveTo(x,y0-3);LineTo(x,y0+3); // çàñå÷êà

cross:=cross-1;

if cross = 0 then // îöèôðîâêà

begin

TextOut(x-8,y0+5,FloatToStr(lx));

cross:=dcross ; end;

Pen.Style:=psDot;

MoveTo(x,y0-3);LineTo(x,y0-h); // ëèíèÿ ñåòêè

Pen.Style:=psSolid;

lx:=lx+dlx;

x:=x+dx;

until (x>x0+w);
// çàñå÷êè, ñåòêà è îöèôðîâêà ïî îñè Y

y:=y0-dy;

ly:=dly;

repeat

MoveTo(x0-3,y);LineTo(x0+3,y); // çàñå÷êà

TextOut(x0-20,y,FloatToStr(ly)); // îöèôðîâêà

Pen.Style:=psDot;

MoveTo(x0+3,y); LineTo(x0+w,y); // ëèíèÿ ñåòêè

Pen.Style:=psSolid;

y:=y-dy;

ly:=ly+dly; until (y<y0-h);

end;

end;

end.

← →
WondeRu © (2005-04-20 10:43) [1]

у меня работает...

посмотри в событиях формы (это в ObjectInspector), прописан ли OnPaint?

← →
SilenBlock © (2005-04-20 10:47) [2]

Спасибки! ЗАРАБОТАЛО, к стати не подскажете где скачать харошу книгу по дельфи с примерами?

http://delphimaster.net/view/15-1113758097/

Помогите исправить ошибку в тексте! Найти похожие ветки