Autor Téma: Jak toto rozjet?  (Přečteno 647 krát)

Offline vangog

  • Hrdina
  • ****
  • Příspěvků: 422
  • Karma: 0
    • Verze Delphi: 7
Jak toto rozjet?
« kdy: 16-07-2022, 17:40:53 »
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

Offline vandrovnik

  • Guru
  • *****
  • Příspěvků: 1389
  • Karma: 51
    • Verze Delphi: 10.3
Re:Jak toto rozjet?
« Odpověď #1 kdy: 16-07-2022, 17:49:28 »
Ve starších verzích nevím, ale v Delphi 11.1 je to v unitě DesignEditors.pas.

Offline vangog

  • Hrdina
  • ****
  • Příspěvků: 422
  • Karma: 0
    • Verze Delphi: 7
Re:Jak toto rozjet?
« Odpověď #2 kdy: 16-07-2022, 17:57:18 »
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í

Online Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 6685
  • Karma: 44
    • Verze Delphi: W10 + D11.1
Re:Jak toto rozjet?
« Odpověď #3 kdy: 16-07-2022, 19:04:36 »
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
Win11 64b, Delphi 11.1, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.

Offline vangog

  • Hrdina
  • ****
  • Příspěvků: 422
  • Karma: 0
    • Verze Delphi: 7
Re:Jak toto rozjet?
« Odpověď #4 kdy: 16-07-2022, 19:48:33 »
není to tam

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 3435
  • Karma: 139
    • Verze Delphi: D2007, XE3, DX10
Re:Jak toto rozjet?
« Odpověď #5 kdy: 16-07-2022, 19:56:30 »
Ve starších verzích nevím, ale v Delphi 11.1 je to v unitě DesignEditors.pas.
V D2007 take.

Online Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 6685
  • Karma: 44
    • Verze Delphi: W10 + D11.1
Re:Jak toto rozjet?
« Odpověď #6 kdy: 16-07-2022, 20:13:22 »
Som dobrý, už sa pomaly učím ako používať internet ;D
http://www.delphigroups.info/2/8a/545640.html
Win11 64b, Delphi 11.1, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.

Offline vangog

  • Hrdina
  • ****
  • Příspěvků: 422
  • Karma: 0
    • Verze Delphi: 7
Re:Jak toto rozjet?
« Odpověď #7 kdy: 16-07-2022, 22:54:05 »
Som dobrý, už sa pomaly učím ako používať internet ;D
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
« Poslední změna: 16-07-2022, 22:58:12 od vangog »

Offline vangog

  • Hrdina
  • ****
  • Příspěvků: 422
  • Karma: 0
    • Verze Delphi: 7
Re:Jak toto rozjet?
« Odpověď #8 kdy: 16-07-2022, 23:08:39 »
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

Offline pepak

  • Padawan
  • ******
  • Příspěvků: 1564
  • Karma: 37
    • Pepak.net
Re:Jak toto rozjet?
« Odpověď #9 kdy: 17-07-2022, 08:12:05 »
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.

Offline vangog

  • Hrdina
  • ****
  • Příspěvků: 422
  • Karma: 0
    • Verze Delphi: 7
Re:Jak toto rozjet?
« Odpověď #10 kdy: 17-07-2022, 11:21:00 »
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  :D Příště dát hledat *.pas; *.dcp

aby to netrvalo tak dlouho.

Edit:
Delphi\Source\ToolsAPI  neexistuje. Proč?
« Poslední změna: 17-07-2022, 11:36:21 od vangog »

Offline vangog

  • Hrdina
  • ****
  • Příspěvků: 422
  • Karma: 0
    • Verze Delphi: 7
Re:Jak toto rozjet?
« Odpověď #11 kdy: 17-07-2022, 11:31:29 »
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'

Online Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 6685
  • Karma: 44
    • Verze Delphi: W10 + D11.1
Re:Jak toto rozjet?
« Odpověď #12 kdy: 17-07-2022, 11:48:11 »
OT: Ak chceš mať rýchle vyhľadávanie, tak si nainštaluj Everything. Odozva je okamžitá.
Win11 64b, Delphi 11.1, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.

Offline vangog

  • Hrdina
  • ****
  • Příspěvků: 422
  • Karma: 0
    • Verze Delphi: 7
Re:Jak toto rozjet?
« Odpověď #13 kdy: 17-07-2022, 11:50:47 »
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

Online Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 6685
  • Karma: 44
    • Verze Delphi: W10 + D11.1
Re:Jak toto rozjet?
« Odpověď #14 kdy: 17-07-2022, 12:10:57 »
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(?).
Win11 64b, Delphi 11.1, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.