Jump to content

Lajos Juhász

Members
  • Content Count

    996
  • Joined

  • Last visited

  • Days Won

    12

Lajos Juhász last won the day on June 21

Lajos Juhász had the most liked content!

Community Reputation

295 Excellent

2 Followers

Technical Information

  • Delphi-Version
    Delphi 12 Athens

Recent Profile Visitors

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

  1. Lajos Juhász

    Google Pay and Apple Pay

    Mobile platforms are changing very fast. Sometimes it is difficult for Embarcadero to provde a solution in a reasonable time frame when the new requirements are released to be able to continue to compile for new versions. Unfortunately nowdays Delphi support too many platforms. They are playing catch up games against other products. Delphi is by rule almost always way behind.
  2. Lajos Juhász

    My sLineBreak is not working

    It is in lines property,
  3. Lajos Juhász

    XML library for Delphi on Android

    (In theory) you can use the TXMLDocument if you select a cross platform DOM vendor. (https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Using_the_Document_Object_Model)
  4. Lajos Juhász

    Make Bold DBRrid Row Color

    At the second row is not the end of the dataset, eof is going to be true when you call next on the last row. You can check recno or a value of the group field.
  5. Lajos Juhász

    Why doesn't this work?

    procedure TForm1.FormCreate(Sender: TObject); begin Var Boy: string; Girl: string; Couple: string; end; For those who doesn't have a modern compiler. Of course inline var is not a block thus it will produce errors: [dcc32 Error] Unit1.pas(29): E2003 Undeclared identifier: 'Girl' [dcc32 Error] Unit1.pas(29): E2029 '(' expected but ';' found [dcc32 Error] Unit1.pas(30): E2003 Undeclared identifier: 'Couple' [dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas' Failed
  6. Lajos Juhász

    DLL Load Issue

    You have to select a checkbox during the install process (Technology - Teechart standard). Unfortunately Embarcadero has licenced the product without the source code. I did not noticed problems with the Teechart.
  7. Lajos Juhász

    Resizing Object Inspector Pane in 12.2p2

    I can shrink it like this:
  8. Lajos Juhász

    styleElements and font.color

    Set the transparent property to false: var num: TStaticText; begin num:=TStaticText.create(self); num.parent:=self; // rect:=wc.boundsrect; // num.caption:=' '+inttostr(lastnumnum)+' '; num.caption:=' Test'; num.font.name:='Arial'; num.font.color:=clred; num.Transparent:=false; end; Edit. You have to use StyleElement only if your application is using VCL Styles.
  9. Lajos Juhász

    Screen Brightness in iOS

    This was written by Copilot. I can not test the code as I do not have the iOS units installed on my system. To change the screen brightness on iOS using Delphi, you can use the UIScreen class from the iOS API. Here's a basic example of how you can achieve this: 1. Import the necessary iOS units: uses iOSapi.UIKit, iOSapi.Foundation; 1. Set the screen brightness: procedure SetScreenBrightness(Brightness: CGFloat); begin UIScreen.mainScreen.setBrightness(Brightness); end; 1. Call the procedure with the desired brightness level: begin SetScreenBrightness(0.5); // Set brightness to 50% end; In this example, UIScreen.mainScreen.setBrightness is used to set the brightness level. The brightness value should be between 0.0 (minimum brightness) and 1.0 (maximum brightness)https://www.reddit.com/r/iOSProgramming/comments/whtu5q/is_there_a_way_to_control_screen_brightness/https://forums.developer.apple.com/forums/thread/717234. Would you like more details on integrating this into a full application?
  10. OP is on older version of Delphi 10.4 your example is Delphi 12.
  11. Lajos Juhász

    How to get the version of Delphi that the App is built with?

    Embarcadero could have that: https://docwiki.embarcadero.com/Libraries/Athens/en/System RTLVersion RTLVersion: Comp = 36; RTLVersion121 RTLVersion121: Boolean = True; RTLVersion122 RTLVersion122: Boolean = True; RTLVersion123 RTLVersion123: Boolean = True;
  12. Lajos Juhász

    Cannot pass a procedure to another

    program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.Classes, Winapi.Windows; type TMyRecord = class data: Integer; class procedure Queue(const AThread: TThread; AMethod: TThreadProcedure); end; class procedure TMyRecord.Queue(const AThread: TThread; AMethod: TThreadProcedure); begin OutputDebugString(PChar('In TMyRecord.Queue')) end; begin TThread.Queue(nil, procedure begin OutputDebugString(PChar('Hello !')) end); TMyRecord.Queue(nil, procedure begin OutputDebugString(PChar('Hello !')) end); end. It should be TThreadProcedure not method.
  13. Lajos Juhász

    FireDac with Postgres and Prepare()

    FireDAC is very strict. When I have moved projects from BDE and DBX that involved a lot of changes.
  14. Lajos Juhász

    Double, default value

    As a result it can not be assigned to an event.
  15. Lajos Juhász

    FireDac with Postgres and Prepare()

    You can set the datatype before prepare qryWork.Params[0].DataType:=ft...... the data type of field1.
×