-+oaAbout.obj -+oaActor.obj -+oaBaloon.obj -+oaBitmap.obj -+oaConst.obj -+oaDirect.obj -+oaEngine.obj -+oaLZRWKH.obj -+oaSelect.obj -+oaStage.obj -+oaTopics.obj -+oaTypes.obj -+OffBtn.obj
dcc32.exe -JP -B -DDELPHI6_UP Assist60.dpk -$D-Y-
tlib.exe Assist60.lib @Assist60.lst
procedure TAssistantComponentEditor.ExecuteVerb(Index: Integer);
const
Editing: Boolean = False;
var
Filename: String;
begin
if (Index = 0) and not Editing then
begin
Editing := True;
try
if Component is TAssistant then
begin
Filename := TAssistant(Component).ActorLibrary;
if SelectActor(Component.GetNamePath + '.ActorLibrary', Filename) then
begin
TAssistant(Component).ActorLibrary := Filename;
Designer.Modified;
end;
end;
finally
Editing := False;
end;
end;
end;
TAssistantComponentEditor = class(TComponentEditor)
private
Editing: Boolean;
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
Return to DELPHI AREA Projects
Users browsing this forum: No registered users and 2 guests