Оцените код

← →
Lip (2008-01-02 22:57) [0]

Код для черчения таблицы. Может можно как-то лучше это делать?

procedure MakeTable(var PaintBox1: TPaintBox; const Step: Integer); var Position: Integer; begin // ×åðòèì âåðòèêàëüíûå ëèíèå Position := 0; while (Position < PaintBox1.Width) do begin PaintBox1.Canvas.MoveTo(Position, 0); PaintBox1.Canvas.LineTo(Position, PaintBox1.Height); Inc(Position, Step); end; // ×åðòèì ãîðèçîíòàëüíû&# 229; ëèíèè Position := 0; while (Position < PaintBox1.Height) do begin PaintBox1.Canvas.MoveTo(0, Position); PaintBox1.Canvas.LineTo(PaintBox1.Width, Position); Inc(Position, Step); end; end;

← →
DVM © (2008-01-02 22:59) [1]

в функцию лучше передавать канву, или DC.
var убери

← →
korneley © (2008-01-02 23:05) [2]

А PaintBox, разве не на OnPaint принято перерисовывать? По результатам насчитанного.

← →
Lip (2008-01-02 23:07) [3]

> в функцию лучше передавать канву, или DC.

Хотел канву передавать, но там же нет свойств Width, Height. Поэтому так сделал

← →
DVM © (2008-01-02 23:08) [4]

> но там же нет свойств Width, Height

Тоже туда передавай. Так универсальнее будет.

И все это дело вызывать надо в OnPaint PaintBox-a

← →
korneley © (2008-01-02 23:27) [5]

> И все это дело вызывать надо в OnPaint PaintBox-a

Простите за убогость голоса :))) Или письма. За всё, братушки, простите!!!

← →
{RASkov} © (2008-01-02 23:54) [6]

> [3] Lip (02.01.08 23:07)
> Хотел канву передавать, но там же нет свойств Width, Height.

procedure MakeTable(Cnv: TCanvas; const R: TRect; const Step: Integer); begin W:=R.Right-R.Left; H:=...

А может для конкретного случая и вообще одной канвы хватит?
procedure MakeTable(Cnv: TCanvas; const Step: Integer); begin W:=Cnv.ClipRect.Right-Cnv.ClipRect.Left; //А то и вообще Cnv.ClipRect.Right хватит (например для конкретного примера из [0]) H:=...

← →
korneley © (2008-01-03 00:13) [7]

> Код для черчения таблицы

И ещё, одно смущает: "Таблица, это линии красивые, или все-таки информация?" В этих линиях размещённая.

← →
Германн © (2008-01-03 01:43) [8]

> korneley © (03.01.08 00:13) [7]
>
>

В офисе - это скорее линии. В базах данных - скорее информация.
Но поскольку в сабже написано
> Код для черчения таблицы.
, то наверно первое.

>Германн © (03.01.08 01:43) [8]
> ...Но поскольку в сабже написано...

И по коду, следует... Да! Но [2] - же! Готов саморасстреляться.

> korneley © (03.01.08 01:54) [9]
>
>
> >Германн © (03.01.08 01:43) [8]
> > ...Но поскольку в сабже написано...
>
> И по коду, следует... Да! Но [2] - же! Готов саморасстреляться.
>

Дык на [2] уже ответили в [4]. Точнее подтвердили твоё высказывание.

> korneley © (03.01.08 02:29) [11]
>
>
> > Германн © (03.01.08 02:09) [10]
>
> Я заметил: ночью люди добрее... :))))
>

Есс-но. Ночью люди расслаблены и отдыхают душой.

Оцените код Найти похожие ветки