Jak toto rozjet?

[vangog]

Snažím se v D7 rozjet kod z D2/D3 a dostávám chybu:
[Error] BitView.pas(481): Undeclared identifier: 'TStringProperty'

Kód: Delphi [Vybrat]

1. // filename property editor .. fileopen dialog box
2. type
3.   TBMPFilenameProperty = class (TStringProperty)
4.   public
5.     procedure Edit; override;
6.     function GetAttributes: TPropertyAttributes; override;
7.   end;

Jak to rozjet? Měla to prý být součást Design Time Editor nebo něco podobného Design IDE či co.

https://torry.net/pages.php?s=72#google_vignette

[vandrovnik]

Ve starších verzích nevím, ale v Delphi 11.1 je to v unitě DesignEditors.pas.

[vangog]

Ve starších verzích nevím, ale v Delphi 11.1 je to v unitě DesignEditors.pas.

Zkoušel jsem už různá uses:
DesignEditors
DesignIntf
DesignIDE
DsgnIntf
nic z toho v D7 není

[Stanislav Hruška]

Mám dve rady:

• kurzor do slova + F1
• hľadaj v prílohe. Netuším či to tam je. Mne sa v tom hrabať nechce

[vangog]

není to tam

[pf1957]

Ve starších verzích nevím, ale v Delphi 11.1 je to v unitě DesignEditors.pas.

V D2007 take.

[Stanislav Hruška]

Som dobrý, už sa pomaly učím ako používať internet
http://www.delphigroups.info/2/8a/545640.html

[vangog]

Som dobrý, už sa pomaly učím ako používať internet
http://www.delphigroups.info/2/8a/545640.html

Vše z toho posledního příspěvku na daném odkazu jsem zkoušel a nic z toho mi nefunguje. Na to, že je to na D6 by to snad jet mělo... Nebo nechce se mi věřit, že by to v D7 zase měnili.

V nápovědě D7 je něco o DesignEditors unit, ale uses DesignEditors dá chybu:
[Fatal Error] BitView.pas(42): File not found: 'DesignEditors.dcu'
Soubor DesignEditors.pas jsem v ./Delphi7/ nenašel

[vangog]

Možná se to musí zaregistrovat před tím než se to použije? Jenže to je v implementační části. Něco jako:

Kód: Delphi [Vybrat]

1. procedure Register;
2. begin
3.   RegisterComponentEditor(TComponent1, TMyComponentEditor);
4. end;
5.  
6. { TMyComponentEditor }
7.  
8. procedure TMyComponentEditor.Edit;
9. begin
10.   ShowComponentEditor(Designer, Tcomponent1(Component), GetDesignerClass);
11. end;
12.  

Kde ale využívají nějaký další soubor, kde je definovaný ten editor

https://community.embarcadero.com/article/technical-articles/162-programming/6215-custom-component-editors-in-delphi-2006--1

[pepak]

Nejjednodušší je v dané verzi Delphi použít nějaký souborový manažer (např. FAR Manager nebo Total Commander) a prohledat adresář se zdrojáky Delphi (obvykle Delphi\Source) na výskyt TStringProperty =. No a hned na tebe vypadne, že to je v unitě DesignEditors, jak ti radili ostatní, v podadresáři ToolsAPI. Následně se můžeš podívat do adresáře s knihovnami (obvykle Delphi\Lib), zjistit, že tam chybí soubor DesignEditors.dcu, a vyřešit to celé tak, že adresář Delphi\Source\ToolsAPI přidáš do SearchPath - buď v daném projektu, nebo globálně v celých Delphi, to už je celkem jedno.

[vangog]

Nejjednodušší je v dané verzi Delphi použít nějaký souborový manažer (např. FAR Manager nebo Total Commander) a prohledat adresář se zdrojáky Delphi (obvykle Delphi\Source) na výskyt TStringProperty =.

Skvělý nápad. Používám PSPAd. Ale s D7 jste všichni byli vedle jak ta jedle  Příště dát hledat *.pas; *.dcp

aby to netrvalo tak dlouho.

Edit:
Delphi\Source\ToolsAPI  neexistuje. Proč?

[vangog]

Zkusil jsem toto:
uses ... ddeReg;
a compiler mě přesměroval do toho souboru

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Buttons, TypInfo, DesignIntf, DesignEditors, DdeMan, Messages, StdCtrls, ExtCtrls;

A zase ta chybová hláška. [Fatal Error] ddeReg.pas(6): File not found: 'DesignIntf.dcu'

[Stanislav Hruška]

OT: Ak chceš mať rýchle vyhľadávanie, tak si nainštaluj Everything. Odozva je okamžitá.

[vangog]

OT: Ak chceš mať rýchle vyhľadávanie, tak si nainštaluj Everything. Odozva je okamžitá.

Já si počkám. Ale zajímalo by mě proč v mém Delfi není ta složka ToolsAPI

[Stanislav Hruška]

Ak máš dosť času a nervov.
Len taká pripomienka: ak nenapíšeš cestu, tak "prehľadá" kompletne všetky disky. Nemôže sa stať, že čosi vynechá. Ktovie, či to nie je Tvoj problém(?).