Re: [Lazarus] Lazarus IDE text display
> Ideally "default" for the IDE font would give a sensible monospace font for > each platform No, “default” is def variable width font. But yes, we need new alias for default mono font, eg “def_mono”. And I will use it, and IDE should use it. Courier isn’t installed on all OS. Courier New too. For new alias, LCL must detect it... Maybe there isn’t such api in main OSes? Alexey -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Unneeded Paint calls from LCL
Seems I posted too pessimistic analysis. Too many repaints are caused by atsynedit, and with an empty control (which only has overridden Paint to show counter) it’s not so bad— counter is 1, only on few WS it’s 2. Sorry Alexey -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] [fpc-pascal] Tests results of several pascal based JSON parsers
It is maybe bug which was fixed in FPC trunk, there was some Unicode issue in 3.0.4. > > On my system with FPJson the test is failing it failing on "bank teller > \u00Ae ", but on when using approximately the same code with JSONTools it > passes on both "name" and "occupation" always. What do you think is going on? > -- > -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] TProgressbar moves slowly, is there a hidden setting for faster response?
I suggest to use ATScrollbar from ATFlatControls, but it needs the option for fast move- I can easily add it soon. -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Mantis: cannot edit my comments
I don’t see such buttons, on Firefox. -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] New XML format for project info files
Great, thanks. I hope that old files will be read ok and then saved to new format. -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] VirtualTreeView rendering on Cocoa
Graeme, if VTV code is good then blurring problem can be solved - by setting DblBuffered to false, no? -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Universal FontDialog for LCL
Completely new form. > Do you want to embed a component into the native dialog, or to > create a complete custom drawn font dialog? > -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Universal FontDialog for LCL
Juha, I wanted to hook new dialog (ok, separate component) into TFontDialog. Can I make a patch to allow such a hook? It must be very small diff which don’t bloat the lcl. -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Universal FontDialog for LCL
Please no? What do other developers think, also no (lcl option for universal dialog not wanted)? AT -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Fwd: TRadioGroup not found error
To use your units in Lazarus, make a new package, then copy all units to a single subdir (with the Lpk package), then add all pas units to this package. So user needs to install this package. So all pas files will be auto found by program if program uses this package. AT -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] With new Win32 manifest LongPathAware I cannot make long filename
I turned new Ide manifest option (subj) on, so I can skip prefix, no? -- ___ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Built console app on Linux, but won't run on another Linux machine
I have an idea. Make an error in some gtk2 widget set unit. Build. Then you ll see which part of the app requires gtk2 code. Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Cross-compile console program to Linux (Ubuntu)?
I would suggest to install FpcupDeluxe, in it you have button to install cross compilers. and then you can choose Target - Linux in Lazarus project options. Alex -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] new http client
FPC has the fpJson lib, so I cannot see why he made Json module. Suggestion for Http: name it PaxHTTP and put demos to the same repo, so OnlinePkgManager guy can get them all. -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] IDE Spotter
I suggest shorter title - Runner. -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] IDE needs lexers JSON, XML
But I don’t see that IDE supports file filters for xml/json/ini, and seems that these 3 syntaxes not activated for files on editor. Text not colored. -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] TControl.AutoAdjustLayout needs param AScaleFont
subj. with default=true. Reason: if F.AutoAdjustLayout called manually in non scaled app (CudaText), then i have oversized fonts in result form. Fonts (label, button, listbox) are scaled anyway in my app, and form size not scaled auto (Scaled=off in proj) -- Regards, Alexey T -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] ButtonPanel uses not same back color as Form uses
This is on Ubuntu 17.10, default theme, gtk2. Pucture, buttonpanel below. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] In trunk, cannot run app from IDE
With Laz trunk, on Win10, i cannot run app from IDE (new empty window with imagelist+ main menu) "No program file "" found" - when i do Run "Launching application invalid"-- when i do Run Without Debug exe file is compiled ok. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Some trunk changes make CudaText crash
I found the reason, it's my bug with generic lists. Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Some trunk changes make CudaText crash
My workaround don't help, still AV on pasting. Both cases give AV in fpc_ansistr_dec_ref. Here is asm window: Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Some trunk changes make CudaText crash
>You don't see the source code for function UTF8CharacterLength() I don't see which place gives AV (on pasting text), is it in this^^^ func, or not. I only see last stop at ...:=UTF8CharacterLength(). Then i removed this call and replaced it with ...:=Length(UTF8Decode(s)). now this crash gone. but new code is slower. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Some trunk changes make CudaText crash
User sees crash in CudaText, when he makes paste from clipboard. He tells how to repeat crash: https://github.com/Alexey-T/CudaText/issues/1146 First i saw error in debugger in lazutf8 (UTF8CharacterLength(..)), after Lazarus update I don't see source of crash now (only some asm dump). -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] CHM help package
On 08.12.2017 17:21, Werner Pamler via Lazarus wrote: I am absolutely against renaming units When user uses new package lzx, he adds new req in project. Then he also can change unit names in "uses". -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] CHM help package
> FPC package 'chm' contain LZX compression routines in some files - paslzx.pas, paslzxcomp.pas, paslznonslide.pas, lzxcompressthread.pas It makes sense to move them to new package, and rename files! to lzx_*.pas. I like such names with _. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] OnlinePM wish about folder
On 08.12.2017 11:32, Werner Pamler via Lazarus wrote: don't like this, I want to keep third-party packages away from Lazarus Then maybe lazarus/components_user/ ? It's on the same level as components/. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] OnlinePM wish about folder
It will be good, of OPM install all packages into subdir lazarus/components/_user. Now it uses very deep subdir which is hard to find in file manager. _user (with _ char so it will be first in filemanager) is easy to find. Or you can use _opm or _addons (_ char must have). -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] NewRequirement dlg
4) "package type" label misaligned with "[x]Online[x]Offline" - coz of big Ubuntu controls. Alex -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] NewRequirement dlg
3) listbox items "aggpas" and with "p" -truncated from below of item by 2pixels, coz of big Ubuntu font. Alex -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] NewRequirement dlg
In this dlg it's needed 1) to paint listbox items with 3-4 pixel indent from left. 2) "Package name" label - make v-centered near Edit field. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Mantis patch "Mouse-wheel-horz-scroll support"
https://bugs.freepascal.org/view.php?id=32753 1. It is tested on Gtk2 and Win32. Gtk1 is not tested [but code is copy pasted, 4..5 values for vert scroll - copied block with 6..7 values for horz scroll, 6..7 is from gtk doc]. 2. Maybe change issue section to "Patches" 3. you applied micro patch for LM_MouseHWHeel - changed in mantis patch -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Need to use this fix in 1.8
https://bugs.freepascal.org/view.php?id=32717 Otherwise, this dialog is not scaled. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Mouse horiz scroll support
LCL don't support it. Pls apply this diff- only constant LM_MouseHWHeel https://msdn.microsoft.com/en-us/library/windows/desktop/ms645614(v=vs.85).aspx Index: lcl/lmessages.pp === --- lcl/lmessages.pp (revision 56436) +++ lcl/lmessages.pp (working copy) @@ -215,6 +215,7 @@ LM_XBUTTONUP = $020C; LM_XBUTTONDBLCLK = $020D; LM_MOUSELAST = $020D; + LM_MOUSEHWHEEL = $020E; LM_PARENTNOTIFY = $0210; LM_CAPTURECHANGED= $0215; @@ -935,6 +936,7 @@ LM_MBUTTONUP : Result := 'LM_MBUTTONUP'; LM_MBUTTONDBLCLK : Result := 'LM_MBUTTONDBLCLK'; LM_MOUSEWHEEL: Result := 'LM_MOUSEWHEEL'; + LM_MOUSEHWHEEL : Result := 'LM_MOUSEHWHEEL'; LM_XBUTTONDOWN : Result := 'LM_XBUTTONDOWN'; LM_XBUTTONUP : Result := 'LM_XBUTTONUP'; LM_XBUTTONDBLCLK : Result := 'LM_XBUTTONDBLCLK'; -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Mouse horiz scroll support
Does LCL support mouse wheel horz scrolling? how? Ie, i have a mouse which has wheel with horz scroll. On Linux it works in Firefox if i tilt the wheel left/rt. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Center text in multi-line hints?
any way to center the text in a multi-line hint? You can now apply the patch https://bugs.freepascal.org/view.php?id=32716 -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Guessing the encoding of some text
ChsDet is in IDE OnlinePackageManager, "trivial changes" aren't needed. Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Apply diff in mantis, CF_text/CF_bitmap
Pls see and apply it, posted long ago: https://bugs.freepascal.org/view.php?id=27194 -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Guessing the encoding of some text
>What do others do in this situation? I use https://github.com/Alexey-T/ATSynEdit/blob/master/atsynedit/atstringproc_utf8detect.pas -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] IDE OI always-on-top: fix
>It's fixed in r.56413 Yes, now it's fixed this way. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] IDE OI always-on-top: fix
On 12.11.2017 21:53, Alexey wrote: Can you apply this fix? it changes only window-type-hints for "toolwindow" BorderStyle, it's safe i think. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] type IntegerList
it is very easy to implement using generics as you can see from TIntegerList. Good to include lists for [Int64, PtrInt, PtrUInt] to the same unit. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] type IntegerList
Thanks for this new list. Diff like - Result:=integer(PtrUInt(FCols[aCol])) + Result:=FCols[aCol] shows it's useful. It supports Longint or PtrInt or PtrUInt? Or i need another list for PtrInt? -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] IDE SearchResult dlg - edit is clipped
Here's screenshot, top border of edit is out of window. Linux gtk2. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] IDE OI always-on-top: fix
I see reports about OI is always on top; I see it too. Here's simple fix, found it becoz I made patch for these lines, window-type-hints. -- Regards, Alexey Index: lcl/interfaces/gtk2/gtk2globals.pp === --- lcl/interfaces/gtk2/gtk2globals.pp (revision 56375) +++ lcl/interfaces/gtk2/gtk2globals.pp (working copy) @@ -81,8 +81,8 @@ GDK_WINDOW_TYPE_HINT_NORMAL, GDK_WINDOW_TYPE_HINT_NORMAL, GDK_WINDOW_TYPE_HINT_DIALOG, - GDK_WINDOW_TYPE_HINT_UTILITY, - GDK_WINDOW_TYPE_HINT_UTILITY + GDK_WINDOW_TYPE_HINT_NORMAL, //avoid always-on-top style for OI on Ubuntu with Cinnamon + GDK_WINDOW_TYPE_HINT_NORMAL //this too ); var -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] PackageLinks dialog
- enable option RowSelect Why? Now selection is barely visible with thin frame on 1 cell. - not sure about opt Editing, maybe disable it. What do you mean with opt Editing? grid.Options has goEditing. Mattias -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] PackageLinks dialog
I wish that in this dialog grid - disable option RangeSelect (select n lines) - enable option RowSelect - not sure about opt Editing, maybe disable it. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] PlotFunction patch declined?
Can you add to FPC some example which uses this engine? (fpc)\source\packages\fcl-base\src\fpexprpars.pp -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] PlotFunction patch declined?
>missing some features of the fpexprparser. I couldn't find fpexprparser folders in FPC 3.0.2 and Laz- where is it? -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] "Ambiguous unit found" message
On 31.10.2017 12:41, Michael Van Canneyt via Lazarus wrote: Hm. Somehow the use of the word 'sad' at the end reminds me of the tweets of the Orange Emperor... I saw such tweets from anther man. E.g. "Today we have meeting. They don't understand this and this. Sad!" -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] "Ambiguous unit found" message
On 31.10.2017 12:01, Werner Pamler via Lazarus wrote: the interesting parts are hidden by the "...", no way to expand the dialog: It is caused by WinAPI truncating path. i suggested to make workaround for WinAPI, but guys declined. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Who is using Object Pascal in production?
>What do you think? I think, new langs are for other tasks. Go- for web servers; Rust- maybe concurrent or not (used for browser). JS based langs- for web. Kotlin- for Java. 90% of new langs - for other tasks. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Gtk2 error after update to Ubuntu 17.10
LCL Gtk2 app [was ok] now shows in console msg about str-constant: user@PC:~$ cudatext -v /usr/share/themes/Radiance/gtk-2.0/apps/mate-panel.rc:30: error: invalid string constant "murrine-scrollbar", expected valid string constant CudaText version 1.22.0.0 user@PC:~$ -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] How to enable Code outline feature of the IDE
>A link to a description would be nice. I made desc topic here: http://wiki.freepascal.org/Lazarus_IDE_Tools#Outline -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] TCDListbox implemented?
I see not implemented, CustomDrawn demo don't show it. ...Why you cannot take ATListbox and make CDListbox on its base? -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] AppProps property for dimmed disabled controls
Old issue about "patch for dimmed font color for Grid.Enabled=false" (patch wasnt applied). Maybe add TApplicationProperties.DimmedColorOfDisabledControls ? Then we can use it in LCL. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] App don't appear on taskbar of 2nd monitor
On 06.10.2017 12:10, Michael Van Canneyt via Lazarus wrote: Works fine if I do it here with an LCL app. Linux mint It seems was a Win8/Win10 report. (I dont have monitors to test.) -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] App don't appear on taskbar of 2nd monitor
Is looks like LCL bug. who can confirm it? https://github.com/Alexey-T/CudaText/issues/1108 -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] IDE with ATtabs idea
Hi. I thought it would be nice change, coz of features of ATtabs: + pseudo tab, v dropdown menu, <> scroll arrows. PAS icon on pas tabs, LFM icon on form tabs, etc. But minus of this: not native tabs look. On Win10 look is like native, on Linux/Mac not. Plus: is same look on Win/Lin/Mac. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Custom component: cannot make Items: TStrings
On 30.09.2017 22:44, Michael Van Canneyt via Lazarus wrote: Remove the clear statement in the setter ? It clears FTabItems, which you just assigned. That's pointless. Also, if FTabItems equals AValue, it will clear the AValue hmm, setter don't clear FTabItems, it clear another FTabList [TList]. procedure TATTabs.SetItems(AValue: TStrings); var i: integer; begin FTabItems.Assign(AValue); Clear; for i:= 0 to AValue.Count-1 do AddTab(-1, AValue[i]); end; (updated repo) -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Custom component: cannot make Items: TStrings
On 30.09.2017 20:20, Vojtěch Čihák via Lazarus wrote: ATTabs should read Items from *.lfm. But it creates new instance of TStringList instead. New instance is created from existing tabs, therefore it is empty. I changed getter. it uses now FTabItems (field) and fills it on each GetItems. But it don't help... -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Custom component: cannot make Items: TStrings
Hi. I added to ATTabs prop Items: TStrings. It has getter/setter. It has registering in IDE. - in designer, OI can set Items and tabs appear - if i run app, tabs dont appear- ?? - if I restart IDE, app's LFM looses Items- ?? https://github.com/alexey-t/attabs -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] MainMenu dropped to the left, Win bug?
User reported this bug here: https://github.com/Alexey-T/CudaText/issues/1101 -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] FPReport file names
On 12.09.2017 21:25, Michael Van Canneyt via Lazarus wrote: Why would people see filename conflicts ? None of these files exist yet. because files like dlginputcombo.pp, fradbfdata.*, frmresizeelements.* may exist in BIG app. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] FPReport file names
>Definitely not. It is good to do (some users will see filename conflicts in big apps). no big apps ready on FPRep yet. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] FPReport file names
Hi It is new. Please rename (it's easy for new component) all files: usually its good with one prefix. E.g. fprep_*.*. And form resources: 18 LFM files, 29 pas files. Pls rename with prefix too, to avoid LFM conflicts. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Idea of TFormTitle
>Why would you want that? LCL can have global var for FormTitle. this var can be used by all forms. so all forms will be "themed". if programmer changes this glob var (like we can do with THintWindow) then all windows have themed window title. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Idea of TFormTitle
Maybe ok idea? make class TFormTitle. it is some small (by Y) form which is embedded into Form (form which has FormTitle property set). When prop FormTitle set, OS border hides and obj of FormTitle inserted into TOP of form (it looks like OS window caption). When this FormTitle is used, form has LCL border. default FormTitle can be simple (x, min, max +icon +title). OS border is hidden. It is ok idea? -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] not optimal code (need Move) in RegExpr unit
function StrPCopy (Dest: PRegExprChar; const Source: RegExprString):
PRegExprChar;
var
i, Len : PtrInt;
begin
Len := length (Source); //###0.932
for i := 1 to Len do
Dest [i - 1] := Source [i];
Dest [Len] := #0;
Result := Dest;
end; { of function StrPCopy
--}
function StrLCopy (Dest, Source: PRegExprChar; MaxLen: PtrUInt):
PRegExprChar;
var i: PtrInt;
begin
for i := 0 to MaxLen - 1 do
Dest [i] := Source [i];
Result := Dest;
end; { of function StrLCopy
--}
--
Regards,
Alexey
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] TreeView.SortType has no effect on adding
not sure it is a bug. set Tree.SortType to stText. tree is sorted OK. now clear it, add many new items ==> items not sorted. so AlphaSort not called after adding items. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] crDrag cursor is now 2x bigger
with crNoDrop cursor. On Linux gtk2 I see cursor is 2x-3x bigger than I seen it before, 2-3 months ago. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] TControl.ChangeScale impl
There is such procedure. why not to rewrite it via call to AutoAdjustLayout. to not have "dup" code. procedure TControl.ChangeScale(Multiplier, Divider: Integer); var R: TRect; begin if Multiplier <> Divider then begin ScaleConstraints(Multiplier, Divider); if not ParentFont then Font.Height := MulDiv(GetFontData(Font.Reference.Handle).Height, Multiplier, Divider); R := BaseBounds; if (Self is TCustomForm) and (GetParentForm(Self, True) = Self) then begin //Dont change Left,Top if this is the topmost form R.Right := R.Left + MulDiv(R.Right-R.Left, Multiplier, Divider); R.Bottom := R.Top + MulDiv(R.Bottom-R.Top, Multiplier, Divider); end else begin R.Left := MulDiv(R.Left, Multiplier, Divider); R.Top := MulDiv(R.Top, Multiplier, Divider); R.Right := MulDiv(R.Right, Multiplier, Divider); R.Bottom := MulDiv(R.Bottom, Multiplier, Divider); end; BoundsRect := R; end; end; -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] dynamic string proposal
On 16.08.2017 15:30, Martin Frb via Lazarus wrote: A char can be composed of several combining code points (each of them afaik, in the 32 bit range). So a char can have 96 or more bits. (And not all of them have a combined form). See my prev post: i see that each S[i] good to be like QWord (sizeof(one char)= sizeof(Qword)). It can be TextChar. And type can be TextString. internally it can be compressed to utf8. TextString is good if i want to parse text by "chars". If "char" needs more bytes- lets take more (internally it is same utf8) -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] dynamic string proposal
On 16.08.2017 12:51, Mattias Gaertner via Lazarus wrote: When you propose a new string type "dynamicstring" you have to define these operators. BTW, it will be good to have "Cstring" (or another name, not "dynamicstring") : - [] operator is 0-based like Python/C - s[i] is DWORD per char (for all Unicode chars from 0 to MaxDWORD codes) PChar(s)/PWChar(s) wont work for it? so it is not ok idea? But this type can be compressed inside, eg in utf8. S[i] is DWORD outside. It is like some class. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Optimize SwapEndian for widestring?
Thanks, it didn't compile, this this did: function SSwapEndian(const S: UnicodeString): UnicodeString; var i: integer; p: PWord; begin Result:= S; if S='' then exit; UniqueString(Result); P:= PWord(@Result[1]); for i:= 1 to Length(Result) do begin P^:= SwapEndian(P^); Inc(P); end; end; AlexeyT -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Optimize SwapEndian for widestring?
Pls tell can I optimize this func? E.g. calc each char's PWord and read/write word. function SSwapEndian(const S: UnicodeString): UnicodeString; var i: integer; begin Result:= S; for i:= 1 to Length(Result) do Result[i]:= WideChar(SwapEndian(Ord(Result[i]))); end; -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] LCL don't paint to canvas if a key is holded
Problem: CudaText editor opens 400K file at the end, syntax parser is slow, I hold "d" char. expected: "d" or "d"*n chars appears from time to time. Eg each 1-2 seconds. Seen: "d" chars appears each 5-6 seconds. Not ok. Maybe LCL don't call Paint method during holding a key (if component paints slowly)? How to solve it? Or i must force repaint to canvas each 1-2 seconds (not all platforms support it, Mac don't). ps. Ubuntu x64 gtk2 -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] ComparePoints func
First start by defining what ComparePoints is supposed to measure or compare. yes, of course: compare source editor x/y positions. Ie, it is CompareCoords. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] ComparePoints func
On 26.07.2017 18:11, Graeme Geldenhuys via Lazarus wrote: ComparePoints() returning a Integer is not a very friendly return type either, Hm, in my app Int makes sense: i need to compare Points in binary search, and see: >, <, =. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Gtk2 missed try-finally
How did you manage to create a mem leak there? If not using try-finally, and exception, Bitmap will not be freed. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Gtk2 missed try-finally
gtk2proc.inc, procedure DrawImageListIconOnWidget: it allocates Bitmap +
DC. Pls add try-finally for Bitmap; and (not sure) try-finally for DC:
finally
ReleaseDC(HDC({%H-}PtrUInt(DestWidget)),DestDC);
end;
finally
Bitmap.Free;
end;
--
Regards,
Alexey
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] New tool sspell for pascal programmers
On 24.07.2017 04:07, Darius Blaszyk via Lazarus wrote: This tool extracts text from comments and string literals in source code files and checks them for spelling. Very useful It is already doable in CudaText editor: - install plugin SpellChecker [not ready for Win64] - open Pas file, call spell-checker plugin - it hilites only errs in comments/strings (and can call suggestion dlg to fix em). -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] pmXor pen mode on Mac
Dmitry, i searched for pmXor and i see it's not implemented on Mac too?
And it's used in Grids, 3 matches.
+Search for "pmXor" in "/home/user/lazarus/lcl" (7 matches in 4 files)
: #7
: #2
<(162)>: pmXor = FPCanvas.pmXor;
<(162)>: pmXor = FPCanvas.pmXor;
: #3
<(3171)>: Canvas.Pen.Mode := pmXOR;
<(3186)>: Canvas.Pen.Mode := pmXOR;
<(10285)>: Canvas.Pen.Mode := pmXOR;
: #1
: #1
: #1
<(1005)>: pmXor: cairo_set_operator(Widget,
CAIRO_OPERATOR_XOR);
: #1
: #1
<(221)>: {pmXor} R2_XORPEN,
--
Regards,
Alexey
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] MenuItem's new methods
For this you have the methods in TPopupMenu/TMainMenu. You should be able to link your global events there. Change of each PopupMenu +MainMenu is not nice: theming of all menus at once in nicer, global option. If app does theme for main menu, why not to change other popupmenus. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] MenuItem's new methods
Ondrej, thanks for adding this. Pls tell: is it possible to make MenuItems themes (application wide in all menus, or MainMenu)? this needs global OnDrawItem which will be used by LCL. Can you add it? -- Regards, AlexeyT -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] MessageBox mb_defbutton1
This must show def-button Retry, as button#1, but shows def-button
Cancel. Is it a bug? Linux gtk2 x64
if MsgBox{simple wrapper}(msgCannotSaveFile+#10+FFileName,
MB_RETRYCANCEL or MB_ICONERROR or MB_DEFBUTTON1) = ..
--
Regards,
Alexey
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] IDE-SynEdit Caret Color
>The code of the internal caret painter sets pmNotXor mode when drawing lines. The value seems to be ignored by WS Yes, it is ignored in Mac WSes. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] IDE-SynEdit Caret Color
Caret should paint via pmNotXor (or pmXor) pen mode. MacOS WS bug - it paints it always black. Win32 should paint Ok. Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] TShape cross shape
IDE uses x mark for ComponentPalettePopup. it paints it custom way. I want to add TShape kind "cross". It may be used here in PalettePopup. For cross, so needed to add property "width of cross". I want to add prop ShapeSizeSmall: it may be width of cross + radius for rounded-rect. (now radius is MinSize/4). Ok? -- Regards, Alexey T -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Comment-3 about TAChart diff
+ 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
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Commment-2 about TAChart diff
+ 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, but don't convert #rgb (eg #123 means #112233).
example from ATSynEdit -
//allow only #rgb, #rrggbb
Len:= Length(s);
if (Len<>3) and (Len<>6) then exit;
for i:= 1 to Len do
if not IsCharHex(s[i]) then exit;
if Len=6 then
begin
N1:= StrToInt('$'+Copy(s, 1, 2));
N2:= StrToInt('$'+Copy(s, 3, 2));
N3:= StrToInt('$'+Copy(s, 5, 2));
end
else
begin
N1:= StrToInt('$'+s[1]+s[1]);
N2:= StrToInt('$'+s[2]+s[2]);
N3:= StrToInt('$'+s[3]+s[3]);
end;
Result:= RGBToColor(N1, N2, N3);
end;
my code also has checking for Hex, and yours dont have check for hex. so
'#aazz33' will crash.
--
Regards,
Alexey
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Commment-2 about TAChart diff
+ 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, but don't convert #rgb (eg #123 means #112233).
example from ATSynEdit -
//allow only #rgb, #rrggbb
Len:= Length(s);
if (Len<>3) and (Len<>6) then exit;
for i:= 1 to Len do
if not IsCharHex(s[i]) then exit;
if Len=6 then
begin
N1:= StrToInt('$'+Copy(s, 1, 2));
N2:= StrToInt('$'+Copy(s, 3, 2));
N3:= StrToInt('$'+Copy(s, 5, 2));
end
else
begin
N1:= StrToInt('$'+s[1]+s[1]);
N2:= StrToInt('$'+s[2]+s[2]);
N3:= StrToInt('$'+s[3]+s[3]);
end;
Result:= RGBToColor(N1, N2, N3);
end;
my code also has checking for Hex, and yours dont have check for hex. so
'#aazz33' will crash.
--
Regards,
Alexey
--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] Comment about new LCL diff
+function TDragManagerDefault.IsCanBeStartDragging(Site: TWinControl; AThreshold: Integer; X,Y:Integer): boolean; +var + Threshold:integer; + aRect:TRect; +begin + if AThreshold<=0 then +Threshold:=DragThreshold + else +Threshold:=AThreshold; + aRect := Site.ClientRect; + InflateRect(aRect, Threshold, Threshold); + if not PtInRect(aRect, Point(X, Y)) then +Result:=true + else +Result:=false; +end; 1) name IsCanNNN, and even worse IsCanBeNNN. Pls rename to CanStartDragging 2) end of func: replace to Result:= not PtInRect(..); -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] TreeView.MouseLeave issue
procedure TCustomTreeView.MouseLeave; begin FStates:=FStates-[tvsDblClicked,tvsTripleClicked,tvsQuadClicked, tvsEditOnMouseUp,tvsSingleSelectOnMouseUp]; if Assigned(FHintWnd) and FHintWnd.Visible and not PtInRect(ClientRect, ScreenToClient(Mouse.CursorPos)) then FHintWnd.Hide; inherited MouseLeave; end; If it is MouseLeave than mouse cannot be in ClientRect, then condittion PtInRect not needed here. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] IDE hilite all same words don't check word-only
The default is 3. So Words with more chars, are highlighted also if part of a bigger word. Do you agree that normal editors have "Whole words" option, and not "some length up to n" option? -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Res leaks on exiting gtk2 app
On 27.06.2017 00:22, Mattias Gaertner via Lazarus wrote: it must be something you are doing with the imagelist. You must give some clues what you are doing otherwise no one can help. I'm doing loading of png files [Imagelist size 16x] to it-- function UpdateImagelistWithIconFromFile(AImagelist: TCustomImagelist; const AFilename: string): boolean; var bmp: TCustomBitmap; begin Result:= false; if AImagelist=nil then exit; if not FileExistsUtf8(AFilename) then exit; if ExtractFileExt(AFilename)='.bmp' then bmp:= TBitmap.Create else if ExtractFileExt(AFilename)='.png' then bmp:= TPortableNetworkGraphic.Create else exit; try try bmp.LoadFromFile(AFilename); bmp.Transparent:= true; AImagelist.Add(bmp, nil); Result:= true; finally FreeAndNil(bmp); end; except end; end; for many icons. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus
[Lazarus] IDE hilite all same words don't check word-only
This is hilite of word dlg_hotkey_replace: other ids hilited too, but i dont want other words. How not to hilite other words? -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Res leaks on exiting gtk2 app
On 14.06.2017 12:38, Mattias Gaertner via Lazarus wrote: reproduce this in a small project. Cannot repeat it : event with my custom controls and Python. Leak is here only after i open folder in Cudatext [it calls Python engine to load filelist and show it in Treeview]. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Res leaks on exiting gtk2 app
On 14.06.2017 12:14, Mattias Gaertner via Lazarus wrote: Why do you think this is a bug in the LCL, and not in cudatext? I wrote that I have 4 imagelists with 19 icons [imagelists created in design time, icons load some in runtume, some in design time], and 19 objects leak. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus
Re: [Lazarus] Res leaks on exiting gtk2 app
[TGtk2WidgetSet.Destroy] WARNING: There are 19 unreleased GDIObjects, a detailed dump follows: I see I have 19 icons in app, in 3..4 ImageLists. so all icons from Imagelists leaked? ImageLists placed in design time. They must free by LCL. -- Regards, Alexey -- ___ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus
