Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
ВнизООП Найти похожие ветки
← →
Maloy_ (2002-09-19 20:59) [0]Задумал написать одну прогу , по умному, т.е. насоздавать свои классы, объекты и все такое, наследовать свои же объекты ну и т.д. и потом их использовать
Подскажите типа как это сделать по нормальному!
Объекты - тиа графические примитивы, я потом их на форме рисовать! Кажись понятно выложыл?!
← →
MaximatorVeter (2002-09-19 23:15) [1]Пробуй, ошибайся, читай книжки, снова пробуй.
← →
Старый Паскалист (2002-09-20 11:36) [2]Да что-нибудь в таком роде:
TFigure = class(TPersistent)
public
procedure Draw(Canvas: TCanvas); virtual; abstract;
function Manipulator: TManipulator; virtual;
// ... Result.Figure := Self;
property Visible: Boolean;
//property OnDraw;
//property OnChange;
end;
TGroup = class(TFigure)
public
property Items[I: Integer]: TFigure;
property ItemCount: Integer;
procedure Add(...);
procedure Remove(...);
end;
TManipulator = class
property Figure: TFigure;
property Captured: Boolean;
procedure MouseDown(Shift: TShiftState; X, Y: Integer); v.a;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); v.a;
procedure MouseUp(Shift: TShiftState; X, Y: Integer); v.a;
// procedure HandleMouse(Event: TMouseEventID; Shift, X, Y);
function HitTest(X,Y): Boolean; v.a;
procedure Edit; // ShowDialog;
procedure Translate(...);
proccedure Rotate(...);
procedure Scale(...);
end;
← →
Anatoly Podgoretsky (2002-09-20 11:50) [3]Твой вопрос относится к обучению, бери хорошии книги по ООП не обязательно Дельфи
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c