Jump to content

Cobalt747

Members
  • Content Count

    7
  • Joined

  • Last visited

Community Reputation

0 Neutral
  1. Cobalt747

    Can't set Property Editor for Set or Enum

    Remy, you are right, that was a mistake with Field1. After correction, the property work as planned (just a proof of concept) Anyway, property editor didn't work for Set
  2. It seems like they don't registered. Am i doing something wrong? There are no errors, just don't work Code is really simple: unit Component1; interface uses System.SysUtils, System.Classes; type TTestValue = (AFirst, ASecond); TTestValues = set of TTestValue; TComponent1 = class(TComponent) private { Private declarations } FMySet: TTestValues; FFiled1: TTestValue; protected { Protected declarations } public { Public declarations } published { Published declarations } property Field1: TTestValue read FFiled1 write FFiled1; property MySet: TTestValues read FMySet write FMySet stored false; end; implementation end. unit untRegUnit; interface Uses Classes, DesignIntf, DesignEditors, Component1; procedure Register; implementation type TMySetProperty = class(TSetProperty) public function GetValue: string; override; end; TMyEnumProperty = class(TEnumProperty) public function GetValue: string; override; procedure SetValue(const Value: string); override; procedure GetValues(Proc: TGetStrProc); override; end; { TMySetProperty } function TMySetProperty.GetValue: string; begin Result := inherited GetValue + '_Test'; end; { TMyEnumProperty } function TMyEnumProperty.GetValue: string; begin Result := inherited GetValue + '_Test'; end; procedure Register; begin RegisterComponents('Samples1', [TComponent1]); // UnlistPublishedProperty(TComponent1, 'Field1'); // UnlistPublishedProperty(TComponent1, 'MySet'); RegisterPropertyEditor(TypeInfo(TTestValues), TComponent1, 'MySet', TMySetProperty); RegisterPropertyEditor(TypeInfo(Boolean), TComponent1, 'Field1', TMyEnumProperty); end; procedure TMyEnumProperty.GetValues(Proc: TGetStrProc); begin Proc('111'); Proc('222'); end; procedure TMyEnumProperty.SetValue(const Value: string); begin //inherited; SetOrdValue(0); end; end.
  3. Cobalt747

    TIdSSLIOHandlerSocketOpenSSL and TLS 1.3 ?

    I try, but have an error i create a project in folder \Lib\Protocols\OpenSSL\ https://drive.google.com/file/d/1tT84oi9IBi1URrhtbTaD0cnBtv0hFRYQ/view?usp=sharing use openssl libs version 1.1.1.7
  4. Cobalt747

    Issues Deploying Firebird DB on Ubuntu 8.04LTS

    "In Rome (Linux) do as the romans do" 1) Change database location to your home folder and forget about troubles 2) Show stacktrace for exception
  5. This helped https://community.idera.com/developer-tools/b/blog/posts/preparing-ubuntu-16-04-lts-for-linux-development-with-upcoming-delphi-10-2---part-2
  6. Can't compile project with System.Net.HttpClient / THTTPClient i got error [DCC Error] E2597 C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\ld-linux.exe: error: cannot find -lz Wich package i must install to Kubuntu 18.04 x64?
  7. Cobalt747

    tls-srp with http?

    Hello! Does anybody know any libs to make http request with tls-srp?
×