Текущий архив: 2008.02.10;
Скачать: CL | DM;
Вниз
Оцените код Найти похожие ветки
← →
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]
>
>
В офисе - это скорее линии. В базах данных - скорее информация.
Но поскольку в сабже написано
> Код для черчения таблицы.
, то наверно первое.
← →
korneley © (2008-01-03 01:54) [9]
>Германн © (03.01.08 01:43) [8]
> ...Но поскольку в сабже написано...
И по коду, следует... Да! Но [2] - же! Готов саморасстреляться.
← →
Германн © (2008-01-03 02:09) [10]
> korneley © (03.01.08 01:54) [9]
>
>
> >Германн © (03.01.08 01:43) [8]
> > ...Но поскольку в сабже написано...
>
> И по коду, следует... Да! Но [2] - же! Готов саморасстреляться.
>
Дык на [2] уже ответили в [4]. Точнее подтвердили твоё высказывание.
← →
korneley © (2008-01-03 02:29) [11]
> Германн © (03.01.08 02:09) [10]
Я заметил: ночью люди добрее... :))))
← →
Германн © (2008-01-03 02:33) [12]
> korneley © (03.01.08 02:29) [11]
>
>
> > Германн © (03.01.08 02:09) [10]
>
> Я заметил: ночью люди добрее... :))))
>
Есс-но. Ночью люди расслаблены и отдыхают душой.
Страницы: 1 вся ветка
Текущий архив: 2008.02.10;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.031 c
