Hi,I can draw on paintbox but I need transparent paintbox for firemonkey.I have background picture and the picture should not change.Only paintbox should change.
↧
Transparent PaintBox - by: Liste listeler
↧
3D Image - by: Rockrush Online Jewellery
I want to add 3D effect to my product images on diamond jewellery website.
↧
↧
Bookmark 0 and Tokyo - by: Hubert A6379
Hello,
I'am used to start to toggle bookmark 0 with Ctrl-Shift-0 and moving with Ctrl-0. In the 2 Tokyo versions this shortcut does not work anymore. Only 1..9 works.
How can I activate Ctrl-Shift-0 and Ctrl-0 ?
Thanks,
Hubert
I'am used to start to toggle bookmark 0 with Ctrl-Shift-0 and moving with Ctrl-0. In the 2 Tokyo versions this shortcut does not work anymore. Only 1..9 works.
How can I activate Ctrl-Shift-0 and Ctrl-0 ?
Thanks,
Hubert
↧
https://livewatchhdtv24.com/astros-vs-dodgers/ - by: imonkhan
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
https://livewatchhdtv24.com/astros-vs-dodgers/
↧
Can not call active x method from javascript - by: Plamen I49725
I have issue with delphi activex control. I create acitvex library and then activex form. I define one function and i want to call this function from javascript. But i can't javascript trow error "Object doesn't support property or method 'Method1'".
This is HTML code:
This is delphi code *.ridl file
interface IGetDocs: IDispatch{[id(0x000000E8)]HRESULT _stdcall Method1(void);};
this is *_TLB.pas file
IGetDocs = interface(IDispatch)
procedure Method1; safecall;end;
and this is file with implementation
unit GetDocsU;{$WARN SYMBOL_PLATFORM OFF}interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ActiveX, AxCtrls, GetDocs_TLB, StdVcl, Vcl.StdCtrls, ShellApi, Vcl.XPMan,IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
typeTGetDocs = class(TActiveForm, IGetDocs)protectedprocedure Method1; safecall;public{ Public declarations }procedure Initialize; override;end;
implementation
uses ComObj, ComServ;{$R *.DFM}procedure TGetDocs.Method1;
beginMessageDlg('HI from active x', mtInformation, [mbOK], 0, mbOK);end;
end.
Can anyone help with this issue. I try to move method in public section in published section without success.
This is delphi code *.ridl file
interface IGetDocs: IDispatch{[id(0x000000E8)]HRESULT _stdcall Method1(void);};
this is *_TLB.pas file
IGetDocs = interface(IDispatch)
procedure Method1; safecall;end;
and this is file with implementation
unit GetDocsU;{$WARN SYMBOL_PLATFORM OFF}interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ActiveX, AxCtrls, GetDocs_TLB, StdVcl, Vcl.StdCtrls, ShellApi, Vcl.XPMan,IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
typeTGetDocs = class(TActiveForm, IGetDocs)protectedprocedure Method1; safecall;public{ Public declarations }procedure Initialize; override;end;
implementation
uses ComObj, ComServ;{$R *.DFM}procedure TGetDocs.Method1;
beginMessageDlg('HI from active x', mtInformation, [mbOK], 0, mbOK);end;
end.
Can anyone help with this issue. I try to move method in public section in published section without success.
↧
↧
GetIt fails to install selected item - by: Dennis Dean
I'm running 10.2.1 on windows 7 (32bit) in a virtual machine. I also have a version installed on the host under Windows10 (64bit). I can successfully install packages from GetIt on the Win10 box, but everything I try to install through getit on the Win7 box fails with status "A problem occurred during the process".
↧
Text in tEdit/tLabel disappearing - by: Bill Z5290
Delphi Tokyo 10.2
Firemonkey
Multi device app has tab control. On TabItem1 there are some labels and edit fields linked to a memTable via livebindings and 3 buttons.....one to move to TabItem2 and the other 2 use separate lookup dialogs to retrieve data from SQLite database to populate fields in the memTable. The data from the memTable is then displayed in the various tLabel/tEdit components.
The problem I am having is that once I have used one of the buttons to retrieve data it will display properly but when I use the other button it will populate the correct field in the memTable and display in the tEdit field but any text in the other tLabel/tEdit fields will disappear. I have checked the single record in the memTable and all fields contain the required data. Even if I display a message on screen using ShowMessage method all tEdit/tLabel text will disappear. Same thing also happens if I minimize the form and then maximize again....all text disappears.
Has anyone ever experienced this behaviour and can enlighten me on what may cause this. Have spent many hours trying to understand how this can happen and is driving me crazy.
Any pointers would be appreciated.
Bill Zwirs
Firemonkey
Multi device app has tab control. On TabItem1 there are some labels and edit fields linked to a memTable via livebindings and 3 buttons.....one to move to TabItem2 and the other 2 use separate lookup dialogs to retrieve data from SQLite database to populate fields in the memTable. The data from the memTable is then displayed in the various tLabel/tEdit components.
The problem I am having is that once I have used one of the buttons to retrieve data it will display properly but when I use the other button it will populate the correct field in the memTable and display in the tEdit field but any text in the other tLabel/tEdit fields will disappear. I have checked the single record in the memTable and all fields contain the required data. Even if I display a message on screen using ShowMessage method all tEdit/tLabel text will disappear. Same thing also happens if I minimize the form and then maximize again....all text disappears.
Has anyone ever experienced this behaviour and can enlighten me on what may cause this. Have spent many hours trying to understand how this can happen and is driving me crazy.
Any pointers would be appreciated.
Bill Zwirs
↧
Exception while calling GetBlobProperties for Azur - by: Oleg T7651
Tried to get Blob Properties
Using code like this:
TAzureBlobService * blob_service = new TAzureBlobService(azure_conn);
TCloudResponseInfo * cloud_resp = new TCloudResponseInfo();
TQueuePropertyArray props;
props = blob_service->GetBlobProperties("global", "binaries\\1.bmp","","",cloud_resp);
int i=0;
for ( int i=0;i
{
log_trace("%s=%s", props.Key, props.Value);
}
I am always getting exception like this:
No Mapping for the Unicode Character Exists in the target multi-byte code page.
I can download Blob just file using GetBlob, but getting properties is a problem. if Blob don't exists I get no exceptions and Cloud response info set to 404 properly with error text Blob not found. But if Bob exists I am always getting an exception. What is the problem here ?
Using code like this:
TAzureBlobService * blob_service = new TAzureBlobService(azure_conn);
TCloudResponseInfo * cloud_resp = new TCloudResponseInfo();
TQueuePropertyArray props;
props = blob_service->GetBlobProperties("global", "binaries\\1.bmp","","",cloud_resp);
int i=0;
for ( int i=0;i
log_trace("%s=%s", props.Key, props.Value);
}
I am always getting exception like this:
No Mapping for the Unicode Character Exists in the target multi-byte code page.
I can download Blob just file using GetBlob, but getting properties is a problem. if Blob don't exists I get no exceptions and Cloud response info set to 404 properly with error text Blob not found. But if Bob exists I am always getting an exception. What is the problem here ?
↧
Long arithme (Dlinnaya arifmetika) - by: Kochergin S50418
↧
↧
Problems in TComboBox and TDateEdit Firemonkey - by: Aldian
I am using Delphi 10.2.1 Tokyo on Windows 10 with display scale 125%. I see a weird behavior with the TDateEdit and TCombobox control:
1. TDateEdit always revert back to default date (today) when i click on popup which the month and year not today.
2. TCombobox can not highlight with 3 items in it and more than 3 items with width at 121.
1. TDateEdit always revert back to default date (today) when i click on popup which the month and year not today.
2. TCombobox can not highlight with 3 items in it and more than 3 items with width at 121.
↧
Speech input via SAPI 5.4 and TSpInProcRecoContext - by: Fozziebear
Hello there,
I am trying to use the SAPI 5.4 language input.I have integrated SAPI 5.4 into the IDE and try to receive TSpInProcRecoContext input via the Micro.According to MS I have to drag the micro or audio in via token and connect to SpInProcRecoContext. I fail at the handover, but why?Can someone help me?
...
SpInProcRecoContext1: TSpInProcRecoContext;SpObjectToken1: TSpObjectToken;
...
SpVoice: Variant;objAudioTokenCategory : TSpObjectTokenCategory ;objAudioToken,objEngineToken,objProfileToken : ISpeechObjectToken;function startVoice: Integer;function stopVoice: Integer;...
//
// start voicefunction TDM_Voice.startVoice: Integer;varMyTokenCategory: WideString;begintrySpInProcRecoContext1.EventInterests := SREAllEvents;
MyTokenCategory := 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\AudioInput'; // SpeechCategoryAudioIn
objAudioTokenCategory := TSpObjectTokenCategory.Create(Nil) ;objAudioTokenCategory.SetId(MyTokenCategory , false);
objAudioToken := ISpeechObjectToken(objAudioTokenCategory.DefaultInterface);objAudioToken.SetId(objAudioTokenCategory.Default, MyTokenCategory, false);
tryMyTokenCategory := 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Recognizers'; // SpeechCategoryRecognizersobjAudioTokenCategory.SetId(MyTokenCategory , false);excepton E: Exception do begin // OLE-Fehler 80045002 > schon vorhanden also kein FehlerLogdatent_Schreiben('Fehler in StartVoice Fehler:' +E.Message);end;end;objEngineToken := ISpeechObjectToken(objAudioTokenCategory.DefaultInterface);objEngineToken.SetId(objAudioTokenCategory.Default, MyTokenCategory, false);
tryMyTokenCategory := 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Speech\RecoProfiles'; // SpeechCategoryRecoProfilesobjAudioTokenCategory.SetId(MyTokenCategory , false);excepton E: Exception do begin // OLE-Fehler 80045002 > schon vorhanden also kein FehlerLogdatent_Schreiben('Fehler in StartVoice Fehler:' +E.Message);end;end;objProfileToken := ISpeechObjectToken(objAudioTokenCategory.DefaultInterface);objProfileToken.SetId(objAudioTokenCategory.Default, MyTokenCategory, false);
SpInProcRecoContext1.Recognizer.AudioInput := objAudioToken; // Fehler falscher Parameter Warum :oops:????SpInProcRecoContext1.Recognizer.Profile := objProfileToken;SpInProcRecoContext1.Recognizer.CreateRecoContext;
SpInProcRecoContext1.Connect;
Logdatent_Schreiben('Starte Voice');excepton E: Exception do beginLogdatent_Schreiben('Fehler in StartVoice Fehler:' +E.Message);end;end;end;
I am trying to use the SAPI 5.4 language input.I have integrated SAPI 5.4 into the IDE and try to receive TSpInProcRecoContext input via the Micro.According to MS I have to drag the micro or audio in via token and connect to SpInProcRecoContext. I fail at the handover, but why?Can someone help me?
...
SpInProcRecoContext1: TSpInProcRecoContext;SpObjectToken1: TSpObjectToken;
...
SpVoice: Variant;objAudioTokenCategory : TSpObjectTokenCategory ;objAudioToken,objEngineToken,objProfileToken : ISpeechObjectToken;function startVoice: Integer;function stopVoice: Integer;...
//
// start voicefunction TDM_Voice.startVoice: Integer;varMyTokenCategory: WideString;begintrySpInProcRecoContext1.EventInterests := SREAllEvents;
MyTokenCategory := 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\AudioInput'; // SpeechCategoryAudioIn
objAudioTokenCategory := TSpObjectTokenCategory.Create(Nil) ;objAudioTokenCategory.SetId(MyTokenCategory , false);
objAudioToken := ISpeechObjectToken(objAudioTokenCategory.DefaultInterface);objAudioToken.SetId(objAudioTokenCategory.Default, MyTokenCategory, false);
tryMyTokenCategory := 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Recognizers'; // SpeechCategoryRecognizersobjAudioTokenCategory.SetId(MyTokenCategory , false);excepton E: Exception do begin // OLE-Fehler 80045002 > schon vorhanden also kein FehlerLogdatent_Schreiben('Fehler in StartVoice Fehler:' +E.Message);end;end;objEngineToken := ISpeechObjectToken(objAudioTokenCategory.DefaultInterface);objEngineToken.SetId(objAudioTokenCategory.Default, MyTokenCategory, false);
tryMyTokenCategory := 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Speech\RecoProfiles'; // SpeechCategoryRecoProfilesobjAudioTokenCategory.SetId(MyTokenCategory , false);excepton E: Exception do begin // OLE-Fehler 80045002 > schon vorhanden also kein FehlerLogdatent_Schreiben('Fehler in StartVoice Fehler:' +E.Message);end;end;objProfileToken := ISpeechObjectToken(objAudioTokenCategory.DefaultInterface);objProfileToken.SetId(objAudioTokenCategory.Default, MyTokenCategory, false);
SpInProcRecoContext1.Recognizer.AudioInput := objAudioToken; // Fehler falscher Parameter Warum :oops:????SpInProcRecoContext1.Recognizer.Profile := objProfileToken;SpInProcRecoContext1.Recognizer.CreateRecoContext;
SpInProcRecoContext1.Connect;
Logdatent_Schreiben('Starte Voice');excepton E: Exception do beginLogdatent_Schreiben('Fehler in StartVoice Fehler:' +E.Message);end;end;end;
I still found this:
https://msdn.microsoft.com/en-us/library/ee125184(v=vs.85).aspx
How do I implement it in Pascal?
↧
Metropolis application template error - by: Emanuele C22364
I use c++Builder 10.2.1 (starter or professional the problem is the same) and if I create a new Firemonkey Metropolis application, menu bar has a wrong behavior. Software template is a simple black form full screen; when tou press ESC key from keyboard, a menu bar appears from the bottom (there is a simple animation). If you press ESC key fast few times (esc esc esc esc esc), at the end you will see the menu bar to be white.
I see this problem in Win10 home and pro edition.
I see this problem in Win10 home and pro edition.
↧
I'm glad someone else saw it gbd - by: christ O50553
We'll take the Spruce Goose
↧
↧
LiveBinding - Data not showing/not showing - by: Bill Z5290
Delphi Tokyo 10.2
FireMonkey
LiveBindings
Using TabConrtrol with a couple of pages. There are some tLabel and tEdit components on the pages linked to a datset through LiveBindings. When compiled for iOS the problem is that the data is not always displayed in the labels/edits but will display when I move backwards and forwards through the 2 pages on the TabControl.
Had similar problem when compiled for Win32 but overcame that by calling BindSource,Dataset.Refresh whenever making any changes or selections from lookupdialogs associated with the dataset. Unfortunately that didn't fix the problem in iOS.
Can someone please help me. I am thinking that LiveBindings is simply not refreshing the linked fields in iOS but not sure how to fix this. The app I am working on is my first attempt at doing something for iOS Mobile platform so any guidance would be appreciated.
FireMonkey
LiveBindings
Using TabConrtrol with a couple of pages. There are some tLabel and tEdit components on the pages linked to a datset through LiveBindings. When compiled for iOS the problem is that the data is not always displayed in the labels/edits but will display when I move backwards and forwards through the 2 pages on the TabControl.
Had similar problem when compiled for Win32 but overcame that by calling BindSource,Dataset.Refresh whenever making any changes or selections from lookupdialogs associated with the dataset. Unfortunately that didn't fix the problem in iOS.
Can someone please help me. I am thinking that LiveBindings is simply not refreshing the linked fields in iOS but not sure how to fix this. The app I am working on is my first attempt at doing something for iOS Mobile platform so any guidance would be appreciated.
↧
404 in Intraweb 14.2.3 - by: Gerrit S50838
Context : Intraweb 14.2.3, Delphi Tokyo 10.2
My Intraweb application has the RestartExpiredSession set to true. In my previous Intraweb version this resulted in a restart of a session whenever I restarted the standalone server application and clicked anything in the old browser session (or waited for an asynchronous timer event to happen). In 14.2.3 I get a 404 error ? Maybe it is a simple setting I missed ? Maybe I can get around it or create a custom 404 page that does the restarting. How can I create such a page ?
My Intraweb application has the RestartExpiredSession set to true. In my previous Intraweb version this resulted in a restart of a session whenever I restarted the standalone server application and clicked anything in the old browser session (or waited for an asynchronous timer event to happen). In 14.2.3 I get a 404 error ? Maybe it is a simple setting I missed ? Maybe I can get around it or create a custom 404 page that does the restarting. How can I create such a page ?
↧
https://www.thingiverse.com/sadfqwe/collections/wa - by: sekantong P50736
https://www.thingiverse.com/sadfqwe/collections/watch-blade-runner-2049-2017-full-online-free123movies
https://www.thingiverse.com/sadfqwe/collections/watch-blade-runner-2049-2017-full-online-free123movies
https://www.thingiverse.com/sadfqwe/collections/watch-blade-runner-2049-2017-full-online-free123movies
https://www.thingiverse.com/sadfqwe/collections/watch-blade-runner-2049-2017-full-online-free123movies
https://www.thingiverse.com/sadfqwe/collections/watch-blade-runner-2049-2017-full-online-free123movies
↧
https://www.thingiverse.com/sadesq/collections/wat - by: sekantong P50736
https://www.thingiverse.com/sadesq/collections/watch-thank-you-for-your-service-2017-full-online-free123movies
https://www.thingiverse.com/sadesq/collections/watch-thank-you-for-your-service-2017-full-online-free123movies
https://www.thingiverse.com/sadesq/collections/watch-thank-you-for-your-service-2017-full-online-free123movies
https://www.thingiverse.com/sadesq/collections/watch-thank-you-for-your-service-2017-full-online-free123movies
https://www.thingiverse.com/sadesq/collections/watch-thank-you-for-your-service-2017-full-online-free123movies
https://www.thingiverse.com/sadesq/collections/watch-thank-you-for-your-service-2017-full-online-free123movies
https://www.thingiverse.com/sadesq/collections/watch-thank-you-for-your-service-2017-full-online-free123movies
↧
↧
https://www.thingiverse.com/STEQAS/collections/wat - by: sekantong P50736
↧
https://www.thingiverse.com/STEQAS/collections/wat - by: sekantong P50736
↧
https://www.thingiverse.com/ASFQE/collections/watc - by: sekantong P50736
↧