Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

KOL и Классы

Страницы: < 1 2
codemaster © (2009-03-29 20:14:00)
Недавно скачал KOL.Pas и сразу возник возможно глупый вопрос: Как преобразовать object в class? С Классами поудобней работать, а с объектами чёрт и что не получается нифига.

CodeMaster (2009-03-30 13:16:00) [21]
function NewImage(AParent: Pcontrol): Pimage;
перед Implementation

CodeMaster (2009-03-30 13:15:00) [22]
Попробовал наклипать компонент TImage при выходе из программы выдаётся ошибка: Invalid Pointer.
type
PImage = ^TImage;
TImage = object(TControl)
private
FBitmap: PBitmap;
procedure Paint(Sender: PControl; DC: HDC);
public
destructor Destroy; virtual;
property Bitmap: PBitmap read FBitmap write FBitmap;

end;

function NewImage(AParent: PControl): PPOGiImage;
implementation

destructor TImage.Destroy;
begin
FBitmap^.Free;

inherited;
end;
procedure TImage.Paint(Sender: PControl; DC: HDC);
begin
FBitmap^.Draw(DC,0,0);
Canvas.Handle:= DC;
end;
function NewImage(AParent: PControl): PImage;
begin
Result:= PImage(NewPanel(AParent,esNone));
Result.FBitmap:= NewBitmap(0,0);
Result.OnPaint:= Result.Paint;

end;

Нужно что-то в Destroy указать?

SPeller (2009-03-30 02:44:00) [23]
Только при использовании VCL не спрашивай как размер уменьшить )

SPeller (2009-03-30 02:44:00) [24]
Работай с классами, кто мешает? KOL не замена VCL, функционал KOL можно использовать в VCL (я opendirdialog постоянно так пользую).

MTsv DN (2009-03-29 22:02:00) [25]
PControl?

CodeMaster (2009-03-29 20:41:00) [26]
С Объектами я разобрался, теперь возник другой вопрос: В Кол Есть Аналог TCustomControl?

MTsv DN (2009-03-29 20:35:00) [27]
Тогда используйте VCL. KOL- Key Object Library - от классов специально отказались...

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »