Hallo Zusammen,
ich kämpfe mit der Umstellung einer Anwendung von D5 nach D7 (nicht fragen wieso, ist leider so).
Wir haben damals für D5 eine Bibliothek (
BPL) von DeveloperExpress erworben, inkl. der Sourcen.
Im Verzeichnis gibt es zwei DPK Files mit den Sourcen.
Die eine DPK Datei habe ich geöffnet und alle
PAS Files nun kompiliert. Nun geht es darum in der 2. DPK die Umgebung der Komponenten zu erzeugen und da hänge ich nun.
Es wird vieles mit $IFDEF DELPHI6 geprüft, wie auch in dem unteren genannten Beispiel:
Wie ist hier zu verfahren?
DELPHI6 durch DELPHI7 ersetzen und evt. fehlende Klassen ersetzen?
Als zweites bekomme ich einen Fehler, weil TFORMDESIGNER nicht gefunden wird.
function TdxfComboBoxItemsProperty.GetValue: string;
begin
Result := Format('(%s)', [TStrings.ClassName]);
end;
{TdxfRealDesigner}
procedure TdxfRealDesigner.SelectComponent(Instance: TPersistent);
begin
{$IFDEF DELPHI6}
if(FDesigner <> nil) then
FDesigner.SelectComponent(Instance);
{$ELSE}
with {$IFDEF DELPHI4}IFormDesigner{$ELSE}
TFormDesigner{$ENDIF}(GetParentForm(TControl(Instance)).Designe r) do
{$IFDEF DELPHI3}SelectComponent(Instance){$ELSE}SelectComp onent(TComponent(Instance)){$ENDIF};
{$ENDIF}
end;
{$IFDEF DELPHI6}
procedure TdxfRealDesigner.ItemDeleted(const ADesigner: IDesigner; AItem: TPersistent);
begin
end;
procedure TdxfRealDesigner.ItemInserted(const ADesigner: IDesigner; AItem: TPersistent);
begin
end;
procedure TdxfRealDesigner.ItemsModified(const ADesigner: IDesigner);
begin
end;
procedure TdxfRealDesigner.SelectionChanged(const ADesigner: IDesigner; const ASelection: IDesignerSelections);
begin
FDesigner := ADesigner;
end;
procedure TdxfRealDesigner.DesignerOpened(const Designer: IDesigner; AResurrecting: Boolean);
begin
FDesigner := Designer;
end;
procedure TdxfRealDesigner.DesignerClosed(const Designer: IDesigner; AGoingDormant: Boolean);
begin
FDesigner := nil;
end;
{$ENDIF}
Danke schon mal.
Gruß Klaus