Jump to content

Mircea Cornestian

uniGUI Subscriber
  • Posts

    2
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Mircea Cornestian's Achievements

Newbie

Newbie (1/4)

0

Reputation

  1. RAD Studio 11.3 Version 28.0.48361.3236 uniGUI Trial, uniGUI Complete Trial uni-1.90.0.1568 ext 7.5.1 jq 3.6.4 win32 target platform I want to test: to make a component when i try to use TreeIntf for method RegisterSprigType package myWebComponents; {$R *.res} {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO OFF} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION OFF} {$OVERFLOWCHECKS ON} {$RANGECHECKS ON} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES ON} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DEFINE DEBUG} {$ENDIF IMPLICITBUILDING} {$IMPLICITBUILD ON} requires rtl, vcl, uniGUI28, dsnap, dbrtl, uniGUI28Core, uniTools28, uIndy28, soaprtl, xmlrtl, inet, vclimg, vcldb, vclwinx, bindengine; contains myWebMenuButton in 'myWebMenuButton\myWebMenuButton.pas'; end. unit myWebMenuButton; interface uses System.SysUtils, System.Classes, Vcl.Controls, Vcl.Forms, uniGUIBaseClasses, uniGUIClasses, uniButton, uniBitBtn, uniMenuButton, uniGUIFrame, uniGUIDialogs; TreeIntf; type TmyWebMenuButton = class(TUniMenuButton) private { Private declarations } protected { Protected declarations } public { Public declarations } constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure doonClick(Sender: TObject); published { Published declarations } end; procedure Register; implementation constructor TmyWebMenuButton.Create(AOwner: TComponent); begin inherited Create(AOwner); // onClick := doonClick; end; destructor TmyWebMenuButton.Destroy; begin // inherited Destroy; end; procedure TmyWebMenuButton.doonClick(Sender: TObject); begin //Showmessage('test: Clicked'); (Sender as TUniMenuButton).DropdownMenu.PopupBy((Sender as TUniMenuButton)) end; procedure Register; begin RegisterComponents('myWebESP', [TmyWebMenuButton]); RegisterSprigType(TmyWebMenuButton, TComponentSprig); end; end. but I noticed that the component also works without RegisterSprigType()
  2. in my case , i use delphi 11.3 , but i try compile and ToolsAPI.pas error with DockForm not found , when did add to delphi library c:\Program Files (x86)\Embarcadero\Studio\22.0\source\ToolsAPI\ to use TreeIntf. Anybody ca help me?
×
×
  • Create New...