- Код: Выделить всё
procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
ошибка - outline.pas(216,75) Error: Identifier not found "CM_FONTCHANGED"
- Код: Выделить всё
function Add(Index: LongInt; const Text: string): LongInt;
function AddChild(Index: LongInt; const Text: string): LongInt;
function AddChildObject(Index: LongInt; const Text: string; const Data: Pointer): LongInt;
function AddObject(Index: LongInt; const Text: string; const Data: Pointer): LongInt;
function Insert(Index: LongInt; const Text: string): LongInt;
function InsertObject(Index: LongInt; const Text: string; const Data: Pointer): LongInt;
ошибки - outline.pas(283,40) Error: Duplicate identifier "Text"
outline.pas(283,40) Hint: Identifier already defined in unit CONTROLS at line 1117
outline.pas(284,45) Error: Duplicate identifier "Text"
outline.pas(284,45) Hint: Identifier already defined in unit CONTROLS at line 1117
outline.pas(285,51) Error: Duplicate identifier "Text"
outline.pas(285,51) Hint: Identifier already defined in unit CONTROLS at line 1117
outline.pas(286,46) Error: Duplicate identifier "Text"
outline.pas(286,46) Hint: Identifier already defined in unit CONTROLS at line 1117
outline.pas(287,43) Error: Duplicate identifier "Text"
outline.pas(287,43) Hint: Identifier already defined in unit CONTROLS at line 1117
outline.pas(288,49) Error: Duplicate identifier "Text"
outline.pas(288,49) Hint: Identifier already defined in unit CONTROLS at line 1117
outline.pas(366,1) Fatal: There were 6 errors compiling module, stopping
пробовал менять на Text1,Text2... от етого проблем становится только больше
- Код: Выделить всё
LastNode := Parent.List.Last = Self;
ошибка - outline.pas(446,25) Error: Incompatible types: got "Pointer" expected "TOutlineNode"
- Код: Выделить всё
Filer.DefineProperty('Nodes', ReadData, WriteData, WriteNodes);
ошибка - outline.pas(1108,41) Error: Wrong number of parameters specified for call to "ReadData"
и т.д. и т.п