I suggest to introduce LCL font "default_mono"(we have "default" font only):
- on first access to getter/resolver, and find some monospaced font:
a) if font list has "Courier" or "Courier new" or "Consolas", we take it
(to support Win32 usual font)
b) if no usual names found (case for
Maybe a) project don't "require" (project options) needed package for
DateTimeCtrl. b) LFM file misses something, check it.
What is causing this really strange error???
And what can I do about it?
Doing a build instead of Quick Compile does not help, same errors...
--
Regards,
Alexey
--
procedure TFileSearcher.Search(ASearchPath: String; ASearchMask: String;
ASearchSubDirs: Boolean; CaseSensitive: Boolean = False);
while ASearchPath<>'' do begin
p:=Pos(FPathSeparator,ASearchPath);
if p<1 then
p:=length(ASearchPath)+1;
procedure FindAllFiles(AList: TStrings; const SearchPath: String;
Searcher.Search(SearchPath, SearchMask, SearchSubDirs);
Here we miss parameter "CaseSensitive=False". So on Linux it is False
and function does case-insens search. It is slower! Why not to add param
True for Unix. Not sure
With last changes (may-june-july 2020) in Laz, CudaText gtk2 starts faster-
before with small window: 220ms, with big window: 330ms (BoundsRect
change was SLOW)
now with small window: 220ms, with big window: 260ms
--
Regards,
Alexey
--
___
lazarus
Ubuntu 19.10 x64, Lazarus trunk
If I run "./cudatext dd.erb" with not installed lexer ERB, CudaText runs
Python plugin to detect lexer for dd.erb, and shows menu-like dialog
with such a lexer. It runs ok. and it prints to terminal such line
(cudatext:12080) Gtk-CRITICAL **: x.x.x.x:
macOS 10.8, FPC 3.0.2 2017/02/12 for i386
pkgmanager.pas(77,78) Error (5000) Id not found TObjectArray$2
PS-- I use fpc 3.0.2 because I had problems to compile CudaText with
3.0.4 on macOS in 2019
--
Regards,
Alexey
--
___
lazarus mailing list
Details here. I see it on Linux gtk2 x64 too.
https://forum.lazarus.freepascal.org/index.php/topic,48617.0.html
What is wrong with atsynedit?
Stacktrace
#0 CLASSES$_$TWRITER_$__$$_WRITEPROPERTY$TPERSISTENT$POINTER at :0
001 CLASSES$_$TWRITER_$__$$_WRITEPROPERTIES$TPERSISTENT at :0
002
Docs have wrong name
Override the Cursor property with a temporary value. Use
EndTempCursor to release it.
Release the temporary cursor set with
BeginTempCursor.
--
Regards,
Alexey
--
___
lazarus
I will let you know about CudaText issue, seems LCL issue
https://github.com/Alexey-T/CudaText/issues/2322#issuecomment-587597067
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
Details:
Linux gtk2: LCL calls Paint 5 times for ATSynEdit on FormCreate/FormShow:
1- DoOnResize - i filtered it out
2- DoOnResize - i filtered it out
3- Paint - it's ok
4- Paint again - i cannot filter it out
5- Paint again
Win32: LCL calls Paint 3 times:
1- Paint - it's ok
2- DoOnResize - i
Linux gtk2.
reduce these calls?
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
When I compile CudaText for Solaris SPARC (32bit CPU as IDE GoTo shows
me blocks with "ifdef cpu32") I get compile error, gtk2widgetset.inc
// clipboard
ClipboardTypeAtoms[ctPrimarySelection]:=GDK_SELECTION_PRIMARY;
ClipboardTypeAtoms[ctSecondarySelection]:=GDK_SELECTION_SECONDARY;
User of ATTabs wrote, I don't know what to do here?
Hi,
Having a issue with ATTabs on Linux GTk2 (Laz 2.06) When I add a tab
from a popup menu from a tvirtualstringtree the close button on the tab
does nothing on the first click and on the second click it closes and in
the terminal this error
lcl/graphics.pp
procedure PolyBezier(Points: PPoint; NumPts: Integer;
Filled: boolean = False;
Continuous: boolean = False); virtual; {$IFDEF
HasFPCanvas1}reintroduce;{$ENDIF}
procedure PolyBezier(const Points: array of TPoint;
https://wiki.lazarus.freepascal.org/IDE_Window:_Help_Options
- Can somebody write there, what is field "FP Doc HTML Path"? what
folder of FPC or Lazarus must be put there?
- What is "FP Doc" - write too.
- How user can fill "Databases" grid? what databases? where to get them?
--
Regards,
I must say I do cross compile from Linux x64 toHaiku x32, it is FPC x32
limitation.
Alex
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
Lazarus trunk, fpc 3.3.1-r43462 Linux x64
qt56.pas(12495,37) Error: Enumeration symbols can only have values in
the range of -2^31 to 2^31-1
QStyleCE_CustomBase = $f000 );
--
Regards,
Alexey
--
___
lazarus mailing list
Database error
A database query error has occurred. This may indicate a bug in the
software.
[ac44310904ca4f16e1729b3f] /Special:Upload Wikimedia\Rdbms\DBQueryError
from line 1457 of
/srv/www/lazaruswiki/includes/libs/rdbms/database/Database.php: A
database query error has occurred. Did
https://bugs.freepascal.org/view.php?id=36145
Last attached demo contains my reworked function (after the fix it works
pretty fast, i tested it). Can you apply at least this function? The
issue can be opened - issue is about IDE. The function is reworked to
support Linux virtual files like
Sorry, that Filter works ok.
Another question. In qt5/qtwsdialogs.pp we have
if (AFileDialog is TSaveDialog) and (trim(TmpFilter)='()') then
Result := ''
else
Result := GetUtf8String(TmpFilter);
so that empty dlg.Filter will give empty result Qt filter. Only for
SaveDialog! Why
Fedora 31, KDE Plasma, Qt5 version of CudaText x64.
In one dialog (Plugins / Find in Files 4), I have button with
accelerator, "&.*" -it's accelerator for dot char. Now in the same form
i have TCombobox. I type text in combobox, when i type dot, button
presses! so I cannot enter full text.
Checked on Ubuntu x64 (with its GTK based Qt5) and Fedora (KDE Plasma)
29. In my app qt5 build, OpenDialog and SaveDialog file filters are
empty (while they are set in app). Confirmed?
--
Regards,
Alexey
--
___
lazarus mailing list
'QLineEdit_setPlaceholderText';
but don't have QTextEdit_setPlaceholderText.
On 26.10.2019 10:01, AlexeyT via lazarus wrote:
./cudatext: undefined symbol: QTextEdit_setPlaceholderText
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https
I did install the libqt5pas (on Ubuntu x64), i just cannot detect qt5
version from terminal. The problem is with LCL application CudaText:
a) its dialog Plugins / Options Editor cannot be dragged by mouse, it
always jumps to back of main Cudatext window
b) new problem found in application
I made Qt5 build of CudaText, pls test and see is my bug present? I test
on Ubuntu w/o Qt5:
user@PC:~$ qmake --version
qmake: could not exec '/usr/lib/x86_64-linux-gnu/qt4/bin/qmake': No such
file or directory
user@PC:~$ qmake-qt5 --version
Command 'qmake-qt5' not found, did you mean:
IMO I have found place where width of canvas line is not scaled to
current DPI.
procedure TCustomGrid.ChangeCursor(ACursor: TCursor;
...
Canvas.Pen.Width:=3;
...
Canvas.Pen.Width:=1;
--
Regards,
Alexey
--
___
lazarus mailing list
https://github.com/sysrpl/JsonTools/issues -many issues are there, seems
all not even reviewed. JsonTools author had posted the comparision of
json libs here.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
Qt4 version.
user@PC:~$ dpkg-query -s qtchooser
Package: qtchooser
Status: install ok installed
Priority: optional
Section: libdevel
Installed-Size: 127
Maintainer: Ubuntu Developers
Architecture: amd64
Multi-Arch: foreign
Version: 66-1
Replaces: libqt5core5a (<< 5.5.1+dfsg-17~), libqtcore4
>> if (not EqualRect(LocalRect, sourceRect^) then
Changed this; still crash. call stack is similar:
#0 QTransform::type() const at :0
#1 ?? at :0
#2 QPainter::drawImage(QRectF const&, QImage const&, QRectF const&,
QFlags) at :0
#3 QPainter_drawImage2 at :0
#4 DRAWIMAGE(0x7fffdd6aad80,
Stack trace.
#0 QTransform::type() const at :0
#1 ?? at :0
#2 QPainter::drawImage(QRectF const&, QImage const&, QRectF const&,
QFlags) at :0
#3 QPainter_drawImage2 at :0
#4 DRAWIMAGE(0x7fffdd6aad80, 0x7fffb2e4, 0x18bd8a0, 0x7fffb2f4,
0x0, 0x7fffb2d4, 0) at qt/qtobjects.pas:3568
I just tested CudaText Linux x64 qt4 build: it now crashes on showing
Command Palette dialog. Crash inside ATListbox.pas in Paint handler, in
some Qt painting code. (I tried to change ATListbox.DoubleBuffered, no
help.)
--
Regards,
Alexey
--
___
Hi; these are one liners.
procedure AdjustBorderSpace(var RemainingClientRect, CurBorderSpace: TRect;
const Space: TRect);
begin
AdjustBorderSpace(RemainingClientRect,CurBorderSpace,Space.Left,Space.Top,
Space.Right,Space.Bottom);
end;
procedure ChangeBiDiModeAlignment(var
It is fixed; thanks.
New build of Lazarus (trunk) gives errors with CudaText gtk2 build.
How to fix that?
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
I'm not sure it is Laz issue, seem it is- please see the report and GIF
animation:
https://github.com/Alexey-T/CudaText/issues/2183
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
New build of Lazarus (trunk) gives errors with CudaText gtk2 build. How
to fix that?
user@PC:~/cuda/cuda/app$ ./cudatext
Gtk-Message: 14:01:37.977: Failed to load module "overlay-scrollbar"
Gtk-Message: 14:01:37.987: Failed to load module "canberra-gtk-module"
GetOrCreateWidgetInfo: MainWidget
Hi
https://github.com/Alexey-T/CudaText/files/3438082/cudatext_hidpi.zip
This is video with bug of CudaText on Linux on hi-dpi. Details:
https://github.com/Alexey-T/CudaText/issues/2099
On video you see some gray "panel entity" on the bottom of TreeView (ie
Snippet Panel plugin of
https://github.com/graemeg/lazarus/commit/4a95f3638a6ec38e6c975164b52c9f6d54c7ad10
orderArray. Better make its type "array of TWinOrderLevel" and set its
size as SetLength(orderArray, N), and SetLength(orderArray, 0) to free.
This is better practice, more pascalish way to allocate array.
--
Database error
A database query error has occurred. This may indicate a bug in the
software.
[abf9cf9f7950256477509e2b] /Special:Upload Wikimedia\Rdbms\DBQueryError
from line 1457 of
/srv/www/lazaruswiki/includes/libs/rdbms/database/Database.php: A
database query error has occurred. Did
Thanks for this info, made a patch for Grids.
> 1 pixel dots followed by 1 pixel spaces then this works for dotted
Geometric (Cosmetic = false) pen
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
According to MS docs, psDot style must give nice looking 1 pixel dots.
https://docs.microsoft.com/en-us/windows/desktop/gdi/pen-style
Lazarus creates pen via Widgetset's ExtCreatePen which calls Win32
ExtCreatePen.
reality: If I set psDot to StringGrid.GridLineStyle, I get ugly dots:
each
https://github.com/graemeg/lazarus/commit/34d02cea12df535b67cb07f45d02e2b06134dc66
better this (Result can be any int!)
begin
Result:= TFreeTypeGlyph(Item1).Index - TFreeTypeGlyph(Item2).Index;
end;
--
Regards,
Alexey
--
___
lazarus mailing
procedure TCustomGrid.AutoAdjustColumns;
For i:=0 to ColCount do
AutoAdjustColumn(i);
//must be ColCount-1
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
In the IDE "Target" sheet page we have OS names
1- "Beos"- consider to change to better casing "BeOS" (Wikipedia)
2- "go32v2" - the same--> "Go32v2"
3- "iphonesim" - the same
4- "nds"- I dunno what it is, maybe fix too
5- "Netware"- the same--> "NetWare" (Wikipedia)
6- "qnx"- the same-->
I noticed that Qt4 build of CudaText paints tabs' X on mouse-over wrong.
Picture attached (1K). It is ATTabs code - see here
https://github.com/Alexey-T/ATTabs/blob/master/attabs/attabs.pas#L1486
attabs.pas, procedure TATTabs.DoPaintXTo
--
Regards,
Alexey
--
In /Environment - Messages Window/ pane of options dialog, we have 2
colorbox'es. They have same height on Linux gtk2. On Win10 with High-dpi
150%, they have different height (by 4..6 pixels). Maybe some AutoSize
is not set?
(see also other colorbox'es in another panes - the same)
--
wsgrids.pp(13,30) Fatal: Cannot find WSGrids used by Grids, incompatible
ppu=/home/user/lazarus/lcl/units/x86_64-linux/wsgrids.ppu, package LCLBase
I didn't show that msg before, now I see it and show it. Can Laz show
more detailed error here? with ppu version and platform?
--
Regards,
lcl/clipbrd.pp
procedure SetAsHtml(Html: String);
procedure SetAsHtml(Html: String; const PlainText: String);
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
Cannot edit them anymore. No button at all.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
Will be good if Developers will be added to white list in Mantis. Seems
they are not spammers.
AT
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
My last Mantis issue (about macOS dark theme) has lost the PNG attachment.
AT
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
FPC 3.2 fixes. IDE last trunk.
function TFppkgHelper.GetConfigurationFileName: string;
begin
Result := '';
{$IF FPC_FULLVERSION>30100}
if Assigned(FFPpkg) then
Result:=FFPpkg.ConfigurationFilename;
/fppkghelper.pas(524,20) Error: identifier
idents no member
I suggest to remap Ctrl+W to "close current tab". Now it is weird-- some
completion listbox shows...
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
Okay, will do so. About lcl patch, we ll talk later.
On 08.03.2019 14:54, Juha Manninen via lazarus wrote:
Everybody wants to include their custom components in LCL. Why? The
Online Package Manager is designed exactly for easy access to external
components. Let's use it please!
--
Regards,
Default must be native OS dialog. I suggest to use my dialog when
boolean option in LCL (will be added) true. Here's my GH repo with
dialog which almost 100% mimics GTK2 FontDialog.
https://github.com/alexey-t/atfontdialog
It even increases preview height for big sizes >20.
On 07.03.2019
I have an idea to make LCL based TFontDialog- which will be LCL form,
which can be called by TFontDialog.Execute (if Boolean variable in LCL
is set). Why make it?
- we can make all best features of FontDlgs from all WSes
- we can make additional events- e,g, OnSelectFont (called when used
function TFppkgHelper.IsProperlyConfigured: Boolean;
{$IF FPC_FULLVERSION>30100}
var
CompilerFilename: string;
{$ENDIF FPC_FULLVERSION>30100}
begin
{$IF FPC_FULLVERSION>30100}
if Assigned(FFPpkg) and (FIsProperlyConfigured=fpcUnknown) then
begin
FIsProperlyConfigured := fpcYes;
-I deleted FPC 3.0.4 from Linux x64 OS path (/usr/.)
-Instead installed FPC fixes3.2 via FpcUpDeluxe into ~/fpcupdeluxe/fpc
IDE after recompiling via FPC 3.2 now asks FPPKG path!! in startup
dialog. I cannot solve it. I tried all paths from ~/fpcupdeluxe dir and
tried to press [Create new
I find it cumbersome that two buttons on top [+ -] don't have titles
(not TButton), while "Environment" tab (same dialog) has two buttons [+
-] with titles.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
function IsEditableTextKey(Key: Word): Boolean;
begin
Result := (((Key >= VK_A) and (Key <= VK_Z)) or
((Key >= VK_NUMPAD0) and (Key <= VK_DIVIDE)) or
((Key >= VK_0) and (Key <= VK_9)) or
((Key >= 186) and (Key <= 188)) or
((Key >= 190) and (Key <=
Why not split TIFF classes from %subj% into new unit? This allows to
skip using of this unit by define DisableLCLTIFF.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
May be caused by EOL at end of items. on Linux.
On 06.02.2019 23:37, Bo Berglund via lazarus wrote:
There is space with approximately a half line hight
between them.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
After changing FPC from 3.0.4 to 3.3.1 i see this error on IDE start.
a) ugly caption
b) how to avoid it?
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
From OPM. I see prompt about missing dependences, confirmed all, it
'Cannot intall' after compiling dep's.
r60156, fpc 3.0.4, Linux x64 gtk2.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
Ok:
You mean GotLine dialog (default shoertcut: Ctrl+G)?
yes.
If so, does it work in r60107?
I don't know, but i retested in later revision.
Alex
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
r60137. fpc 3.0.4. Ubuntu 18.04 gtk2 x64. rebuilt with clean-all. ESC
still don't work.
(checked on 2 PCs)
On 22.01.2019 0:20, Bart via lazarus wrote:
@AlexeyT: a reaction please?
--
Regards,
Alexey
--
___
lazarus mailing list
Dialog must cancel on Esc press, now it doesn't. Latest SVN, Linux gtk2 x64.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
https://github.com/graemeg/lazarus/commit/961abc27b89c2f33b36d091225f0d351e3429073
function PrepareToHTML(s: string): string;
var
i1: Integer;
s1: string;
1) better i instead of i1,
2) make function param "s" - const param.
AT
--
___
All is described here
https://forum.lazarus.freepascal.org/index.php/topic,43664.0.html
and demo project attached. Do you consider it as LCL bug? (I need that
Mouse.IsDragging works only after mouse moved by DragThreshold value.
Btw, TControl.Dragging is flawed the same way.)
--
Regards,
procedure TDragPerformer.DragStarted(APosition: TPoint);
//Imput device has moved beyond tresholt limits (or immediate docking)
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
%subj - they are not public so I must use now dirty code:
1.
procedure DoControlLock(Ctl: TWinControl);
2.
begin
3.
{$ifdef fpc}
4.
if Application.MainForm<>nil then
5.
TFormHack(Application.MainForm).BeginFormUpdate;
6.
{$else}
7.
Ctl.Perform(WM_SetRedraw, 0, 0);
8.
customform.inc
{--
procedure TCustomForm.BeginFormUpdate;
Called after all children handles are created.
--}
procedure
>Why?
Several users of my program complain that its hard to read Wiki -
running cat logo is distracting for them.
Alex
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
Hi. Can someone replace animated
http://wiki.freepascal.org/skins/pic/logo.gif - running cat - to static
pic? It can be from http://wiki.freepascal.org/Logos_and_Banners
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://github.com/graemeg/lazarus/commit/16dea52f979acc4a2998942f07d2e17ea5233aa5
I see N functions with somename(s: string). they need word /const/ for
parameter.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
Except for more flexible positioning of the '...', this is already
available as MinimizeName in FileCtrl
MinimizeName is different as I see. it uses ExtractFile* heavily for ex.
And no option DotsString.
--
Regards,
Alexey
--
___
lazarus mailing
Why is there :
S:= UTF8Decode(Text);
...
Result:= UTF8Encode(S);
Seems it can be just "S:= Text", "Result:= S". but I had problems
without UTF8Encode/decode in my apps before. On Windows. It was FPC 2.6.4.
Please also look at function ShortDisplayFilename() in unit IDEProcs.
It is
I want to donate this func. it can truncate text on canvas with 3 modes:
dots at begin/ at middle of text/ at end of text. Tested in ATTabs demo.
Code--
https://github.com/Alexey-T/ATTabs/blob/master/attabs/attabs.pas#L894
char $2026 is ellipsis. Can also use '...' or '..'
--
Regards,
Alexey
I see that you converted FPC project to JS and inserted it into the
webpage. Is it correct?
It is achievement, yes...
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
Colorbox "fuchsia" on the right bottom: it's too narrow, text don't fit.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
This app cannot make 2nd folder (it can make 1st) and make file. Error
on file saving. why? new manifest option is used. Win10.
{ TForm1 }
const
Button "Load default" in Icon group - needs new icon, which is used for
"set default" buttons in IDE. it is brown curved arrow.
--
Regards,
Alexey
--
___
lazarus mailing list
lazarus@lists.lazarus-ide.org
On 20.11.2018 1:17, Denis Kozlov via lazarus wrote:
Any thoughts on integrating
I'm making the patch. I dont know on which XML level to insert new XML
part - inside or out of it in the root?
xmlns:ws2="http://schemas.microsoft.com/SMI/2016/WindowsSettings;>
true
--
Regards,
--File I/O functions in the Windows API convert "/" to "\" as part of
converting the name to an NT-style name, except when using the "\\?\"
prefix as detailed in the following sections.
So apps may have new bugs from this prefix. when app uses / shashes (fn
:= dir + '/' + name) by mistake.
patch adds BorderSpacing.Around=6 for Memo of IDE About dialog.
--
Regards,
Alexey
Index: ide/aboutfrm.lfm
===
--- ide/aboutfrm.lfm (revision 59418)
+++ ide/aboutfrm.lfm (working copy)
@@ -191,6 +191,7 @@
I saw in some apps an option: scale UI - 100%..300%. Eg in Telegram.
Can it be idea for LCL? Can u add global variable,
GlobalScalingPercents, which is affected by OS PixelPerInch, but also
can be affected by app? App can give option like in Telegram.
--
Regards,
Alexey
--
patch adds inline to NN tiny functions.
--
Regards,
Alexey
Index: components/lazutils/lazutf8.pas
===
--- components/lazutils/lazutf8.pas (revision 59373)
+++ components/lazutils/lazutf8.pas (working copy)
@@ -67,10 +67,10 @@
revised patch (ignore prev message about "Forms.pp function error").
Needs some testing on Carbon/Cocoa, because MK_ALT const is defined in
Mac WS'es.
--
Regards,
Alexey
Index: lcl/interfaces/carbon/carbonproc.pp
===
---
As pointed by Dmitry B, and checked by myself in LCL, MK_ALT must be
defined in LCLType.pp as $2000. For ex, this is sample from
qtwidgets.pas:
if (ModifierState and MK_SHIFT) <> 0 then
Msg.State := [ssShift];
if (ModifierState and MK_CONTROL) <> 0 then
Msg.State := [ssCtrl] +
added 2 inline's + fixed for loop.
--
Regards,
Alexey
Index: components/lazutils/fpcadds.pas
===
--- components/lazutils/fpcadds.pas (revision 59355)
+++ components/lazutils/fpcadds.pas (working copy)
@@ -25,24 +25,21 @@
Patch adds BorderSpacing (6) for 3 main controls on the form.
--
Regards,
Alexey
Index: ide/restrictionbrowser.lfm
===
--- ide/restrictionbrowser.lfm (revision 59319)
+++ ide/restrictionbrowser.lfm (working copy)
@@ -7,25 +7,29 @@
Value $400 makes sense.
And also this must be changed then:
function KeysToShiftState(Keys: PtrUInt): TShiftState;
it uses same constants.
Alex
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
On 16.10.2018 09:56, Michael Van Canneyt via Lazarus wrote:
There does not need to be if there is no corresponding MK_nnn value ?
What would be the MK_nnn value for ssAlt ?
We can add in, LCLType.pp:
const
// Mouse message key states
MK_LBUTTON = 1;
MK_RBUTTON = 2;
MK_SHIFT = 4;
function ShiftStateToKeys(ShiftState: TShiftState): PtrUInt;
begin
Result := 0;
if ssShift in ShiftState then Result := Result or MK_SHIFT;
if ssCtrl in ShiftState then Result := Result or MK_CONTROL;
if ssLeft in ShiftState then Result := Result or MK_LBUTTON;
if ssRight in
https://bugs.freepascal.org/view.php?id=34383
just a reminder.
--
Regards,
Alexey
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
I see truncated label "Default width" in Scout opts: screenshot.
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
2 titles of groupboxes: Install / Avail for installation. they mean
almost the same thing. So: rename 1st title to "Installed".
--
Regards,
Alexey
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
a) Pls, delete outdated beta versions from list: 1.8 RCx, 1.6 RCx, 1.4
RCx, 1.2 RCx
b) Pls add 2.1 (trunk)
--
Regards,
Alexey
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
This tiny patch adds global var (option) which allows to raise exeption,
when utf8 cannot convert to single byte page. needed for CudaText to
detect that user text cannot convert to current codepage. its default is
off (don't use exception).
--
Regards,
Alexey
Index:
3- better add inner (inside listbox) left indent of text: 3-4pix.
4- right indent is too big (15-20pix even with scrollbar), use same
3-4pix as left (considering scrollbar)
--
Regards,
Alexey
--
___
Lazarus mailing list
1 - 100 of 191 matches
Mail list logo