2017-06-30 15:33 GMT-03:00 Sandro Cumerlato via Lazarus <
lazarus@lists.lazarus-ide.org>:
> Hello,
> I need a GUI component to implement a Questionnaire (label + combo boxes
> right aligned), all in a line like this:
>
> Question 1? (Option A) (Option B)
>
>
You can look at
https://github.com/bli
On 07/04/2017 04:25 PM, Juha Manninen via Lazarus wrote:
> It surely is reported. See this and the related issues:
> https://bugs.freepascal.org/view.php?id=30863
> Nobody has found a way to fix it for good on every system. It is
> annoying, yes.
>
OK, I'll not bother testing the other two relea
On 04.07.2017 22:58, Valdas Jankūnas via Lazarus wrote:
code (WS: GTK2):
i := Canvas.TextHeight('I');
writeln(i);
Canvas.Font.Height := i;
i:= Canvas.TextHeight('I');
writeln(i);
Canvas.Font.Height := i;
i:= Canvas.TextHeight('I');
writeln(i);
I get:
24
33
45
I think that "Canv
On 07/04/2017 01:36 PM, Mattias Gaertner via Lazarus wrote:
> On Tue, 4 Jul 2017 12:33:29 -0400
> brian via Lazarus wrote:
>
>> [...]
>> Well, I'm certainly not using an Asian keyboard (not unless you mean
>> manufactured in Asia! :) ) and I don't understand, in that case, why
>> it's apparently
Hello,
code (WS: GTK2):
i := Canvas.TextHeight('I');
writeln(i);
Canvas.Font.Height := i;
i:= Canvas.TextHeight('I');
writeln(i);
Canvas.Font.Height := i;
i:= Canvas.TextHeight('I');
writeln(i);
I get:
24
33
45
I think that "Canvas.Font.Height" and "Canvas.TextHeight('a')" shou
It surely is reported. See this and the related issues:
https://bugs.freepascal.org/view.php?id=30863
Nobody has found a way to fix it for good on every system. It is annoying,
yes.
Juha
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://
I respond myself :)
1) "shl 8" is necessary to get TFPColor values (The TFPColor record
contains the Red, Green, Blue and Alpha channel values as left adjusted 16
bit words, with increasing intensity from 0 to $). Not TColor values as
I thought.
2) 3 digits case has been just fixed in revisio
+ if len = 3 then begin
+ Result.Red := StrToInt('$' + AText[1]);
+ Result.Green := StrToInt('$' + AText[2]);
+ Result.Blue := StrToInt('$' + AText[3]);
+ end;
not OK: #abe means color components $aa $bb $ee, not $a $b $e.
--
Regards,
Alexey
--
On Tue, 4 Jul 2017 12:33:29 -0400
brian via Lazarus wrote:
>[...]
> Well, I'm certainly not using an Asian keyboard (not unless you mean
> manufactured in Asia! :) ) and I don't understand, in that case, why
> it's apparently ONLY the Lazarus 1.8 RC3 IDE that's affected. In case
> you missed it i
On 07/04/2017 11:37 AM, Julius via Lazarus wrote:
>
>
> On 07/04/2017 01:50 PM, brian via Lazarus wrote:
>> I'm seeing an *extremely* strange problem with 1.8.0 RC3, AMD64
>> version as DEBs, as downloaded from SourceForge.
>>
>> I'm using the latest Ubuntu Studio 64-bit, which basically means
>>
On 07/04/2017 01:50 PM, brian via Lazarus wrote:
> I'm seeing an *extremely* strange problem with 1.8.0 RC3, AMD64
> version as DEBs, as downloaded from SourceForge.
>
> I'm using the latest Ubuntu Studio 64-bit, which basically means
> Ubuntu 17.04. Using the Lazarus IDE, and creating a totally
On Tue, Jul 4, 2017 at 3:04 AM, Michael Van Canneyt via Lazarus <
lazarus@lists.lazarus-ide.org> wrote:
> You can create some form of apps using the customdrawn
> widgetset, but I cannot honestly recommend this approach. I do not think it
> works on iOS (I could be mistaken) and it looks simply ab
+ else if (pos('#', AText) = 1) and (Length(AText) = 7) then begin
+ Delete(AText, 1, 1);
+ Result.Red := StrToInt('$' + copy(AText, 1, 2)) shl 8;
+ Result.Green := StrToInt('$' + copy(AText, 3, 2)) shl 8;
+ Result.Blue := StrToInt('$' + copy(AText, 5, 2)) shl 8;
+ end else
+
you convert #rrggbb
On 06/30/2017 08:15 AM, Mattias Gaertner via Lazarus wrote:
> The Lazarus team is glad to announce the third release candidate of
> Lazarus 1.8.
>
<...>
>
> == How to test ==
>
> Download and install the 1.8 RC3.
> - On Windows you can install as a 2ndary install, that will not affect your
> cu
+ else if (pos('#', AText) = 1) and (Length(AText) = 7) then begin
+ Delete(AText, 1, 1);
+ Result.Red := StrToInt('$' + copy(AText, 1, 2)) shl 8;
+ Result.Green := StrToInt('$' + copy(AText, 3, 2)) shl 8;
+ Result.Blue := StrToInt('$' + copy(AText, 5, 2)) shl 8;
+ end else
+
you convert #rrggbb
+ procedure HTMLTagFound(NoCaseTag, ActualTag: String);
+ procedure HTMLTextFound_Size(AText: String);
+ procedure HTMLTextFound_Out(AText: String);
Better to use "const Par: string", since "const" param passed by ref, it
is faster than "value parameter" w/o "const".
--
Regards,
Alexey
--
Hi,
I appear to have figured it out.
FWIW, I was using a single sqlite transaction per item insert. I tested
today under a single transaction for all item inserts and it was very fast.
The question in my mind remains however. Why was this slowdown not
apparent in the IDE??
In any case, all seem
17 matches
Mail list logo