[Pavel_Aleksandrovich]

есть модуль:

Код:

unit Balka;

interface
         uses SysUtils, Dialogs, Classes, StdCtrls, Graphics;
         type
             Tbalka=class
                   private
                          fdlina:real;
                          fploshad:real;
                          fshema:tcanvas;
                          procedure setshema(value:tcanvas);
                   published
                            property dlina:real
                                    read fdlina
                                    write fdlina;
                            property ploshad:real
                                    read fploshad
                                    write fploshad;
                            property shema:tcanvas
                                    read fshema
                                    write setshema;
             end;

implementation
              procedure setshema(value:tcanvas);
                       var
                          x1, y1, x2, y2:real;
                       begin
                            x1:=100;
                            y1:=100;
                            x2:=x1+fdlina;
                            y2:=y1+20;
                            value.Rectangle(x1, y1, x2, y2);
                       end;

end.

Что нужно:
- описать процедуру графического отображения здесь в модуле
- значения полей буду определять в другом unit, а описать процедуру графич построения нужно в этом модуле и она зависит от поля

как реализовать данный момент?

[Pyro]

x1, x2 ... определять в другом unit? тогда их в класс, а значение передавать через конструктор
а пока в этом модуле ничего стоящего нет

[poli-smen]

Сообщение от Pavel_Aleksandrovich

Код:

.....
implementation
              procedure setshema(value:tcanvas);
                       var
.....

Здесь должно быть так:

Код:

.....
implementation
              procedure Tbalka.setshema(value:tcanvas);
                       var
.....

Сообщение от Pavel_Aleksandrovich

- значения полей буду определять в другом unit, а описать процедуру графич построения нужно в этом модуле и она зависит от поля

как реализовать данный момент?

Подключаешь к этому модулю через uses тот другой unit и бери с него значения. Или наоборот с другого unit'а подключай этот модуль и вызывай методы этого класса с нужными параметрами.

[Pavel_Aleksandrovich]

подключаю этот модуль в другом юнит
но все равно ошибка

вот другой модуль:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Balka;

var
balka1:Tbalka;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
     balka1:=Tbalka.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
     balka1.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     balka1.dlina:=200;
end;

end.

несколько ошибок

ругается на fdlina

и на rectangle

где ошибки?
может как-то каряво модуль написан?

[poli-smen]

Сообщение от Pavel_Aleksandrovich

несколько ошибок

ругается на fdlina

и на rectangle

где ошибки?
может как-то каряво модуль написан?

В каком месте ругается на fdlina и на rectangle?

В этом чтоли?:

Код:

.....
                            x2:=x1+fdlina;
                            y2:=y1+20;
                            value.Rectangle(x1, y1, x2, y2);
.....

И как ругается? Прям нецензурными словами которые нельзя здесь на форуме опубликовать?

[Pavel_Aleksandrovich]

ошибки которые выдает компилятор

- Undeclared identifier: 'fdlina'

- There is no overloaded version of 'Rectangle' that can be called with these arguments

[YVitaliy]

Сообщение от Pavel_Aleksandrovich

ошибки которые выдает компилятор

- Undeclared identifier: 'fdlina'

- There is no overloaded version of 'Rectangle' that can be called with these arguments

1. Внимательно читал пост №3?
2. Для функции Rectangle допустимы только целочисленные параметры.

[Страдалецъ]

Это конечно все весело, но если изначально стоит задача визуального отображения вашей балки, почему вы класс не сделали наследником TGraphicControl ?

[Pavel_Aleksandrovich]

Сообщение от Страдалецъ

Это конечно все весело, но если изначально стоит задача визуального отображения вашей балки, почему вы класс не сделали наследником TGraphicControl ?

что измениться?

[angvelem]

Работа с TCanvas реализована в полном объёме.

[Pyro]

интересно как эти балки будут соединяться

[Pavel_Aleksandrovich]

Сообщение от Pyro

интересно как эти балки будут соединяться

это тоже проблема и механизма описания что бы прога понимала всю схему, состоящ из нескольких балок и тп, я пока не знаю, но проге и не обязательно это понимать

[Pyro]

Сообщение от Pavel_Aleksandrovich

но проге и не обязательно это понимать

а что прога сможет делать без этого?

[YVitaliy]

Вопрос: это должна быть "типа CAD-система" или готовая прога, которая рассчитывает схему, нарисованную в ней же? Думаю, это продолжение следующей темы:
http://www.delphisources.ru/forum/sh...ad.php?t=22055
Скорее, таковой класс не подойдет, ведь теоретически балка может находиться под любым углом, при воздействии деформации - изгибаться, и т.д.

ЗЫ запостите, пожалуйста, примерный рисунок, как должна выглядеть схема.

[Pavel_Aleksandrovich]

Сообщение от YVitaliy

Вопрос: это должна быть "типа CAD-система" или готовая прога, которая рассчитывает схему, нарисованную в ней же? Думаю, это продолжение следующей темы:
http://www.delphisources.ru/forum/sh...ad.php?t=22055
Скорее, таковой класс не подойдет, ведь теоретически балка может находиться под любым углом, при воздействии деформации - изгибаться, и т.д.

ЗЫ запостите, пожалуйста, примерный рисунок, как должна выглядеть схема.

редактора пока не будет, т е рисовать балку не надо, положение ее будет горизонтальное, а тема действительно продолжение предыдущей