Lajos Juhász
Members-
Content Count
986 -
Joined
-
Last visited
-
Days Won
12
Everything posted by Lajos Juhász
-
Change parameters when compiling using dcc32.exe
Lajos Juhász replied to PenelopeSkye's topic in RTL and Delphi Object Pascal
That is the CPU view, the call stack is on the left side. It should contain something like this: :76f010cc win32u.NtUserWaitMessage + 0xc :00b4ab5e TApplication.Idle + $14E Vcl.Forms.TApplication.HandleMessage Vcl.Forms.TCustomForm.ShowModal mainrm.TForm1.Button1Click($3417030) Vcl.Controls.TControl.Click Vcl.StdCtrls.TCustomButton.Click Vcl.StdCtrls.TCustomButton.CNCommand(???) ...... Most probably the call stack will be empty, in which case open the threads windows with CTRL + ALT + T and select the first thread on the list. -
It should be simply a build for every application. So far I have no choice as with every version some bugs are fixed and new are introduced that forces to move to even newer version and hope that (n+1)! will be stable for the applications I am working on. (For me it's easier as application on D11 are still in release candidates. New versions while the stable versions are compiled with XE5.)
-
It should be compatible, there are some corner cases where it is not. After update you should recompile everything (bpl+exe) just to be sure.
-
I didn't saw this one. On the other hand lately I mostly do debugging and doesn't create a lot of new forms.
-
It's strange it's closed as duplicate without the number of the other RSP. We don't know what is in the other RSP and its status.
-
In this case I would go with Form.CurrentPPI (Every control has a CurrentPPI property).
-
It's not a good idea to use Screen.PixelsPerInch, with per-monitor DPI it will not work correctly on multi monitor setup with different dpi.
-
I bet that he wants the call stack for exceptions. (Maybe for multi-platform application. I am guessing, that could be a reason to choose fmx forum as it's the multi platform framework).
-
In the C# everything is a parameter (https://blog.ultramsg.com/send-whatsapp-message-by-whatsapp-api-c-sharp): procedure TForm1.Button6Click(Sender: TObject); var byte1: TBytes; file2: string; base64: TBase64Encoding; begin if OpenDialog1.Execute then begin /// / begin encodein base64 byte1 := System.iOUtils.TFile.ReadAllBytes(OpenDialog1.FileName); base64 := TBase64Encoding.Create(0); // CharsPerLine = 0 means no line breaks try file2 := base64.EncodeBytesToString(byte1); finally base64.Free; end; var Client := TRESTClient.Create('https://api.ultramsg.com/instance16802/messages/image'); var request := TRESTRequest.Create(nil); var esponse := TRESTResponse.Create(nil); request.Client := Client; request.Response := esponse; Client.ContentType := 'application/x-www-form-urlencoded'; request.Method := TRESTRequestMethod.rmpost; request.AddParameter('token', token_txt.text); request.AddParameter('to', send_to_txt.text); request.AddParameter('image', file2); // request.AddBody(LJSONObject); request.Execute; Memo1.Text := request.Response.Content; end; end;
-
// CharsPerLine = 0 means no line breaks
-
Why is file2 a widestring? You should try: procedure TForm1.Button1Click(Sender: TObject); var byte1: TBytes; file2: string; LJSONObject: TJSONObject; base64: TBase64Encoding; begin if OpenDialog1.Execute then begin /// / begin encodein base64 byte1 := System.iOUtils.TFile.ReadAllBytes(OpenDialog1.FileName); base64 := TBase64Encoding.Create(0); // CharsPerLine = 0 means no line breaks try file2 := TNetEncoding.base64.EncodeBytesToString(byte1); finally base64.Free; end; var Client := TRESTClient.Create('https://api.ultramsg.com/instance16802/messages/image'); var request := TRESTRequest.Create(nil); var esponse := TRESTResponse.Create(nil); request.Client := Client; request.Response := esponse; Client.ContentType := 'application/x-www-form-urlencoded'; request.Method := TRESTRequestMethod.rmPOST; LJSONObject := TJSONObject.Create(); try LJSONObject.AddPair('token', 'xxxxxx'); LJSONObject.AddPair('to', '+00000000'); LJSONObject.AddPair('image', file2); request.AddBody(LJSONObject); request.Execute; Memo1.Text := request.Response.Content; finally LJSONObject.Free; end; end; end;
-
MyCariable:=trunc(MyCariable*100)/100;
-
This was correct until Delphi 10.4 when ARC ( Automatic Reference Counting) was removed. Now you code the same way on all of the platforms and have to call free or if you must call freeAndNil (freeAndNil is in 99.999999999999999999% a code smell.)
-
He also mentioned that there are some corner cases where it's not and he believes that we should not have those cases. Best is to recompile everything.
-
DB field update using "DataSet.FieldByName" is not working
Lajos Juhász replied to PenelopeSkye's topic in Databases
This logic most probably belongs to the field's onchange.- 10 replies
-
- fieldbyname
- dataset
-
(and 1 more)
Tagged with:
-
The hotkey doesn't have to be the first character. A better solution is to set the AutoHotkeys property of the popup menu to maManual. If that's not possible you can use the StripHotkey function from Vcl.Menus to remove the &.
-
According to the Delphi 11 feature matrix that's a Architect/Enterprise feature. I cannot check out for Delphi 10.4 but believe it's the same.
-
TRichEdit in Delphi 11.1 ("Courier New" font broken with formatting characters))
Lajos Juhász replied to Denis Dresse's topic in VCL
I quick google search returned this one: https://devblogs.microsoft.com/math-in-office/richedit-font-binding/ I have to warn you that this is a bug in MS Richedit implementation. I've entered into Microsoft Word using Courier New 11 ──────────────────────────────. No problem there, then copied to the clipboard and pasted to Wordpad.exe the result wordpad changed the font to Segoe UI Symbol 11.- 17 replies
-
- trichedit
- delphi 11.1
-
(and 1 more)
Tagged with:
-
Why not use the OnMoved event of the splitter?
-
Do you get burn-in with LCD? While LCDs are not susceptible to burn-in the same way CRT monitors are, LCDs suffer from what manufacturers call image persistence. Like the burn-in on CRTs, image persistence on LCD monitors is caused by the continuous display of static graphics on the screen for extended periods. (I am not going to test this on my monitor)
-
I would do something like this: var ws: TWindowState; l: TRect; begin ws:=WindowState; l:=BoundsRect; try if ws=wsMaximized then WindowState:=TWindowState.wsNormal; SetBounds(l.Left+1, l.Top+1, l.Width, l.Height); Repaint; Sleep(100); finally WindowState:=ws; if ws<>TWindowState.wsMaximized then SetBounds(l.Left, l.Top, l.Width, l.Height); repaint; end; end;
-
What is the best way to convert between UnicodeString and UTF-8
Lajos Juhász replied to alank2's topic in General Help
It's https://docwiki.embarcadero.com/Libraries/Alexandria/en/System.UTF8Encode. -
In this case Fetchoptions doesn't make a difference. in order to do a client side filter the computer has to load all the data and then can filter out the requested records.
-
Most probably you're loading 1.7GB data into the memory (you can verify using task manager). Insted of a client side filter you should do a server side.
-
For me it's happening for about a year maybe a bit longer, before that I used the registry entry for years without a problem.