Recent

Recent Posts

Pages: [1] 2 3 ... 10
1
FV/Textmode IDE / Re: IDE instability on Raspberry Pi?
« Last post by rvk on Today at 10:37:14 am »
On rpi3 with bookworm 64bit it also hangs on File menu.
With rpi3 with bullseye 32bit it works but the screen handling is still a mess via SSH.

2
Graphics / Re: Boleeman's projects are published on GitHub
« Last post by AlexTP on Today at 10:18:04 am »
Added these 3 demos too (bgrabmp tree + spiral + bgrabmp spiral).
And new 'STARS' too.
3
LCL / Re: Using KeyPress event, how to get subsequent key presses?
« Last post by alpine on Today at 10:02:15 am »
*snip*
and while it reads the first key pressed, subsequent key presses leave KeyPressed stuck at the first character that was typed (viewing in the Watch window while debugging).  Once I grab that key (I am adding it to a buffer) how do I get the next key pressed to be captured by this function?
I'm not experiencing that behavior with TMemo.OnKeyPress, probably your problem lies somewhere else.

Lazarus 2.2.4 (rev lazarus_2_2_4) FPC 3.2.2 x86_64-linux-gtk2
4
Hello ArchChem,

Welcome to the forum.  :)

To investigate, I would need to reproduce the different of line spacings. It may depend on the font family and the system.

Can you provide a simple example that displays both line spacing? Something like this:
Code: Pascal  [Select][+][-]
  1. uses BGRABitmap, BGRABitmapTypes;
  2.  
  3. {$R *.lfm}
  4.  
  5. { TForm1 }
  6.  
  7. procedure TForm1.FormPaint(Sender: TObject);
  8. var
  9.   ts: TSize;
  10.   style: TTextStyle;
  11.   bmp: TBGRABitmap;
  12.   halfX: integer;
  13. begin
  14.   halfX := ClientWidth div 2;
  15.   with Canvas do
  16.   begin
  17.     Brush.Color := clWhite;
  18.     FillRect(0, 0, halfX, ClientHeight);
  19.     Brush.Style := bsClear;
  20.  
  21.     Font.Color := clBlack;
  22.     Font.Height := 50;
  23.     Font.Name := 'Arial';
  24.     ts := Canvas.TextExtent('Hello world');
  25.     Rectangle(0, 0, ts.cx, ts.cy);
  26.     TextOut(0, 0, 'Hello world');
  27.  
  28.     style := Canvas.TextStyle;
  29.     style.Wordbreak:= true;
  30.     style.SingleLine:= false;
  31.     TextRect(rect(0, 50, halfX, ClientHeight),
  32.       0, 50, 'Text with'#13#10'Line endings', style);
  33.   end;
  34.  
  35.   bmp := TBGRABitmap.Create(halfX, ClientHeight, BGRAWhite);
  36.   with bmp.CanvasBGRA do
  37.   begin
  38.     Brush.Style := bsClear;
  39.  
  40.     Font.Color := clBlack;
  41.     Font.Height := 50;
  42.     Font.Name := 'Arial';
  43.     ts := Canvas.TextExtent('Hello world');
  44.     Rectangle(0, 0, ts.cx, ts.cy);
  45.     TextOut(0, 0, 'Hello world');
  46.  
  47.     style := Canvas.TextStyle;
  48.     style.Wordbreak:= true;
  49.     style.SingleLine:= false;
  50.     TextRect(rect(0, 50, halfX, ClientHeight),
  51.       0, 50, 'Text with'#13#10'Line endings', style);
  52.   end;
  53.   bmp.Draw(Canvas, halfX, 0);
  54.   bmp.Free;
  55. end;
5
Graphics / Re: Your best UI design - contest
« Last post by circular on Today at 09:36:11 am »
LazPaint by @circular
Thank you the mention. There is as well a light theme:
6
Databases / Re: ZeosDBO and querys using accents.
« Last post by Zvoni on Today at 09:27:17 am »
Thanks, but this query can not be parametrized, ´cause it´s factory by chackboxes/combo options.
What utter nonsense.
i do this daily.

And get rid of the "Exists" and use a INNER JOIN, which is usually way faster.
And yes, i'm aware that an INNER JOIN in a Master-Detail-Relation can return duplicates, but that one's easy, too (and no: I'm not talking about SELECT DISTINCT which is expensive)
7
LCL / Re: Using KeyPress event, how to get subsequent key presses?
« Last post by Zvoni on Today at 09:13:47 am »
Would it be better to use keydown event instead for this?
rather KeyUp
KeyDown fires permanently, when you hold a key down.
KeyUp only fires once per "Key-Press"
8
Graphics / Re: STARS with line border styles
« Last post by Boleeman on Today at 09:13:29 am »
Now with line styles and save to png.
9
General / Re: JEDI error but unit compiles??
« Last post by DomingoGP on Today at 08:28:17 am »
I can't reproduce it, could you attach or send me a PM with the failed unit (or a stripped down version of it that gives the error when formatting).
10
General / Re: Configure JCF messages
« Last post by DomingoGP on Today at 08:19:10 am »
Currently there is no option to deactivate only one  type of warning, only all warnings can be deactivated.
Pages: [1] 2 3 ... 10

TinyPortal © 2005-2018