Cobalt747
Members-
Content Count
7 -
Joined
-
Last visited
Community Reputation
0 Neutral-
Can't set Property Editor for Set or Enum
Cobalt747 replied to Cobalt747's topic in Delphi IDE and APIs
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 -
Can't set Property Editor for Set or Enum
Cobalt747 replied to Cobalt747's topic in Delphi IDE and APIs
del -
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.
-
TIdSSLIOHandlerSocketOpenSSL and TLS 1.3 ?
Cobalt747 replied to Lars Fosdal's topic in Network, Cloud and Web
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 -
Issues Deploying Firebird DB on Ubuntu 8.04LTS
Cobalt747 replied to Larry Hengen's topic in Cross-platform
"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 -
Can't compile project with System.Net.HttpClient / THTTPClient (Linux)
Cobalt747 replied to Cobalt747's topic in Cross-platform
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 -
Can't compile project with System.Net.HttpClient / THTTPClient (Linux)
Cobalt747 posted a topic in Cross-platform
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? -
Hello! Does anybody know any libs to make http request with tls-srp?
![Delphi-PRAXiS [en]](https://en.delphipraxis.net/uploads/monthly_2018_12/logo.png.be76d93fcd709295cb24de51900e5888.png)