Re: [Lazarus] suggestion about source editor's pagecontrol
On 21/05/2015 17:52, FreeMan wrote: On 21.05.2015 18:05, Martin Frb wrote: "Lock" means the IDE will not scroll the editor in this tab, if you try to jump to an identifier, that would need scrolling, then a new window is opened. If you mean, not scroll is can not down/up in editor, its not work like that for me. I mean, I can scroll down/up and can edit. When cmd + click on procedure name, its jump and if its not opened file, file is opening and goto procedure definition. At this point, lock and unlock not different, just tab caption has '#' symbol In my mind, lock tab mean, tab is always opened, and cant change page index and cant close. "Lock" in the source editor means, that it will not scroll by itself. (e.g. as a result from code jump actions). It does allow scroll by user. -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] TBitBtn's OnClick not fired
Hi Graeme, debugging on (I have fallen for this many times - hate that I can set BPs w/o any visual indication that debugging itself is off)? It sure does work for me. I call 2nd form like this: procedure TForm1.BitBtn1Click(Sender: TObject);var f: Tform2;begin f := Tform2.Create(nil); tryf.Showmodal; finallyif Assigned(f) then f.Free; end;end; form2 has a panel with a bitbtn on it. The button's ModalResult = mrNone and Kind = bkClose. The Actionproperty is also empty. BP set on 'Self.Close' line in OnClick event and debugger stops there as expected (Laz 1.4, Windows 7) Cheers,Kai > Date: Thu, 21 May 2015 15:52:43 +0100 > From: mailingli...@geldenhuys.co.uk > To: lazarus@lists.lazarus.freepascal.org > Subject: [Lazarus] TBitBtn's OnClick not fired > > Hi, > > I've got a form with a panel and a TBitBtn in the panel. The button is > used to close the form, which is shown via ShowModal. > > I've got an OnClick event handler for the BitBtn, but when I put a > breakpoint in that event handler it is never reached??? > > The button's ModalResult = mrNone and Kind = bkClose. The Action > property is also empty. > > Unfortunately there is no LCL help on the TBitBtn.Kind property, but > would that affect the OnClick event not being used? > > http://lazarus-ccr.sourceforge.net/docs/lcl/buttons/tcustombitbtn.kind.html > > Clicking the button does close the modal form though. > > > Regards, > - Graeme - > > -- > fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal > http://fpgui.sourceforge.net/ > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] suggestion about source editor's pagecontrol
On 21.05.2015 18:05, Martin Frb wrote: You mean "lock" from context menu (pop-up)? Yes Are you sure, the file you are trying to open (that gets a new window), is not one of the files, that you locked? If so, then that is expected behaviour. long time been, I forgot how todo this, I tried more time but work normal now. I'm sorry not tried before write one more time this. "Lock" means the IDE will not scroll the editor in this tab, if you try to jump to an identifier, that would need scrolling, then a new window is opened. If you mean, not scroll is can not down/up in editor, its not work like that for me. I mean, I can scroll down/up and can edit. When cmd + click on procedure name, its jump and if its not opened file, file is opening and goto procedure definition. At this point, lock and unlock not different, just tab caption has '#' symbol In my mind, lock tab mean, tab is always opened, and cant change page index and cant close. -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] suggestion about source editor's pagecontrol
On 21/05/2015 15:58, FreeMan wrote: 3-)Click lock 2-3 pagetab, then if try open new file (tab) IDE open new source editor regards You mean "lock" from context menu (pop-up)? Are you sure, the file you are trying to open (that gets a new window), is not one of the files, that you locked? If so, then that is expected behaviour. "Lock" means the IDE will not scroll the editor in this tab, if you try to jump to an identifier, that would need scrolling, then a new window is opened. -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] suggestion about source editor's pagecontrol
fpc r30892 & lazarus r49126 osx qtx64 -dEnableUTF8RTL 1-)Is it possible cancel focus change via wheel? 'cos on mac touchpad, double finder move mean scroll to x or y direction. 2-)page tabs moveing sometimes unwanted style. I could not find yet how to, which key combination or etc. some times click to tab for activate it but, change position (pageindex) change. 3-)Click lock 2-3 pagetab, then if try open new file (tab) IDE open new source editor regards -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] TBitBtn's OnClick not fired
Hi, I've got a form with a panel and a TBitBtn in the panel. The button is used to close the form, which is shown via ShowModal. I've got an OnClick event handler for the BitBtn, but when I put a breakpoint in that event handler it is never reached??? The button's ModalResult = mrNone and Kind = bkClose. The Action property is also empty. Unfortunately there is no LCL help on the TBitBtn.Kind property, but would that affect the OnClick event not being used? http://lazarus-ccr.sourceforge.net/docs/lcl/buttons/tcustombitbtn.kind.html Clicking the button does close the modal form though. Regards, - Graeme - -- fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal http://fpgui.sourceforge.net/ -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Division by zero. with fpc r30855
for not fill pain, not pay & hate puzzle. in terminal gdb lazarus run lazarus IDE started, run or build project, if get error, you can see which file is raised exception On 21.05.2015 11:34, FreeMan wrote: Do you have ppu files in your include files path? Please test now. Mattias I checked all lpk one by one, and all folders I couldn't find any ppu in include file path. All lpk's "unit output directory (-FU)" like this. ../../all_libs/ $(PkgName)/$(TargetCPU)-$(TargetOS)-$(LCLWidgetType) ERROR in IDE: Creating gdb catchable error: Program received signal SIGFPE, Arithmetic exception. 0x000100696b71 in RAISEEXCEPTION (MSG=0x0) at ideprocs.pp:2278 2278 if (length(Msg) div (length(Msg) div 1))=0 then ; (gdb) bt #0 0x000100696b71 in RAISEEXCEPTION (MSG=0x0) at ideprocs.pp:2278 #1 0x000100b51c08 in ADD (this=0x118653fa0, SRCFILE=0x1197f38c0, PPUFILE=0x0) at ../packager/interpkgconflictfiles.pas:182 Index: /opt/lazarus/packager/interpkgconflictfiles.pas === --- /opt/lazarus/packager/interpkgconflictfiles.pas (revision 49126) +++ /opt/lazarus/packager/interpkgconflictfiles.pas (working copy) @@ -178,8 +178,10 @@ RaiseException(''); if (SrcFile<>nil) and (PPUFile<>nil) and (PPUFile.OwnerInfo<>SrcFile.OwnerInfo) then RaiseException(''); - if (SrcFile<>nil) and FilenameIsCompiledSource(SrcFile.ShortFilename) then + if (SrcFile<>nil) and FilenameIsCompiledSource(SrcFile.ShortFilename) then begin +DebugLn('Check this file -->> ', SrcFile.FullFilename); RaiseException(''); + end; if (PPUFile<>nil) and not FilenameIsCompiledSource(PPUFile.ShortFilename) then RaiseException(''); Result:=length(CompiledFiles); -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] ShellExecute and german umlauts
Am 21.05.2015 um 11:37 schrieb Henry Vermaak: On Thu, May 21, 2015 at 10:06:28AM +0200, John Landmesser wrote: i want to send a mail on windows using shellexecute with german Umlauts ( ö,å,ü .. ) in the body of the mail. This Code doesn't work: var s: string; s := 'öö' shellexecute(Application.Mainform.handle, 'open',PChar('mailto:' + 'exam...@gmail.com' + '?subject=' + 'ARJ-ChapterArchiv: ' + '&body=' + UTF8ToAnsi(s)),nil, nil, sw_normal); Good tipps are welcome!I don't want to use Indy or synapse! I use something like this: if Win32MajorVersion < 5 then Ret := ShellExecute(0, 'open', PChar(UTF8ToSys(AProg)), nil, nil, SW_SHOWNORMAL) else Ret := ShellExecuteW(0, 'open', PWideChar(UTF8Decode(AProg)), nil, nil, SW_SHOWNORMAL); Result := Ret > 32; Henry -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus thanks Henry! found a solution that is ok with umlauts in body: var list : TStringList; // body s : string; // for body without LFN and spaces (* LFN replace: *) for x := 0 to list.Count -1 do s := s + '%0D%0A' + List[x]; (* replace Spaces : *) s := StringReplace(s,' ','%20',[rfReplaceAll, rfIgnoreCase]); cmdLine := 'mailto:exam...@gmail.com?subject=ARJ-ChapterArchiv: ' + ArchName + '&body=' + s; if not Openurl(cmdLine) then that works, but i don't know why, Perhaps your PChar(UTF8ToSys(AProg)) and PWideChar(UTF8Decode(AProg)) is the trick? -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] ShellExecute and german umlauts
On Thu, May 21, 2015 at 10:06:28AM +0200, John Landmesser wrote: > i want to send a mail on windows using shellexecute with german > Umlauts ( ö,å,ü .. ) in the body of the mail. > > This Code doesn't work: > > var s: string; > > s := 'öö' > > > shellexecute(Application.Mainform.handle, 'open',PChar('mailto:' + > 'exam...@gmail.com' + '?subject=' + 'ARJ-ChapterArchiv: ' + > '&body=' + UTF8ToAnsi(s)),nil, nil, sw_normal); > > Good tipps are welcome! I don't want to use Indy or synapse! I use something like this: if Win32MajorVersion < 5 then Ret := ShellExecute(0, 'open', PChar(UTF8ToSys(AProg)), nil, nil, SW_SHOWNORMAL) else Ret := ShellExecuteW(0, 'open', PWideChar(UTF8Decode(AProg)), nil, nil, SW_SHOWNORMAL); Result := Ret > 32; Henry -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Division by zero. with fpc r30855
On 20.05.2015 23:52, Mattias Gaertner wrote: Do you have ppu files in your include files path? Please test now. Mattias I checked all lpk one by one, and all folders I couldn't find any ppu in include file path. All lpk's "unit output directory (-FU)" like this. ../../all_libs/ $(PkgName)/$(TargetCPU)-$(TargetOS)-$(LCLWidgetType) ERROR in IDE: Creating gdb catchable error: Program received signal SIGFPE, Arithmetic exception. 0x000100696b71 in RAISEEXCEPTION (MSG=0x0) at ideprocs.pp:2278 2278 if (length(Msg) div (length(Msg) div 1))=0 then ; (gdb) bt #0 0x000100696b71 in RAISEEXCEPTION (MSG=0x0) at ideprocs.pp:2278 #1 0x000100b51c08 in ADD (this=0x118653fa0, SRCFILE=0x1197f38c0, PPUFILE=0x0) at ../packager/interpkgconflictfiles.pas:182 #2 0x000100b5382d in CHECKDUPLICATESRCFILES (parentfp=0x7fff5fbfdae0) at ../packager/interpkgconflictfiles.pas:993 #3 0x000100b5359c in CHECKINTERPKGFILES (IDEOBJECT=0x115feedd0, PKGLIST=0x11d20d620, FILESCHANGED=false) at ../packager/interpkgconflictfiles.pas:1064 #4 0x0001005647bd in PACKAGEGRAPHCHECKINTERPKGFILES (this=0x1161b45c0, IDEOBJECT=0x115feedd0, PKGLIST=0x11d20d620, FILESCHANGED=false) at ../packager/pkgmanager.pas:929 #5 0x0001005572b4 in COMPILEREQUIREDPACKAGES (this=0x106ef3ac0, APACKAGE=0x0, FIRSTDEPENDENCY=0x117d41840, SKIPDESIGNTIMEPACKAGES=true, POLICY=PUPASNEEDED) at ../packager/packagesystem.pas:3667 #6 0x00010057159a in DOCOMPILEPROJECTDEPENDENCIES (this=0x1161b45c0, APROJECT=0x115feedd0, FLAGS=128) at ../packager/pkgmanager.pas:4164 #7 0x000100089e7b in DOBUILDPROJECT (this=0x106ef31c0, AREASON=CRBUILD, FLAGS=1, FINALIZERESOURCES=true) at main.pp:6575 #8 0x0001000808c9 in MNUBUILDPROJECTCLICKED (this=0x106ef31c0, SENDER=0x1162c5f40) at main.pp:4266 #9 0x0001004508e1 in MENUITEMCLICK (this=0x1162c5f40, SENDER=0x1162c5f40) at menuintf.pas:575 #10 0x0001004545e9 in MENUITEMCLICK (this=0x1162c5f40, SENDER=0x1162c5f40) at menuintf.pas:1651 #11 0x000100452285 in TRIGGERCLICK (this=0x1162c5f40) at menuintf.pas:932 #12 0x000100f996e9 in CLICK (this=0x111c266f0) at editortoolbar_impl.pas:162 #13 0x0001002b323f in COMCTRLS$_$TTOOLBUTTON_$__$$_MOUSEUP$TMOUSEBUTTON$TSHIFTSTATE$LONGINT$LONGINT () #14 0x0001001fba77 in CONTROLS$_$TCONTROL_$__$$_DOMOUSEUP$TLMMOUSE$TMOUSEBUTTON () #15 0x0001001fc5d6 in CONTROLS$_$TCONTROL_$__$$_WMLBUTTONUP$TLMMOUSE () #16 0x0001000121cd in SYSTEM$_$TOBJECT_$__$$_DISPATCH$formal () #17 0x0001019380b0 in $$fpclocal$_ld230 () #18 0x000101934048 in VMT_$CONTROLS_$$_TWINCONTROL () #19 0x002a in ?? () #20 0x0202 in ?? () #21 0x7fff5fbfe228 in ?? () #22 0x000111c266f0 in ?? () #23 0x7fff5fbfef70 in ?? () #24 0x000107b063c0 in ?? () #25 0x7fff5fbfef70 in ?? () #26 0x000117596ba0 in ?? () #27 0x00011153d840 in ?? () #28 0x0001001fb859 in CONTROLS$_$TCONTROL_$__$$_WNDPROC$TLMESSAGE () #29 0x0001001fa0c0 in CONTROLS$_$TCONTROL_$__$$_PERFORM$LONGWORD$WPARAM$LPARAM$$LRESULT () #30 0x0001001ed34b in CONTROLS$_$TWINCONTROL_$__$$_ISCONTROLMOUSEMSG$formal$$BOOLEAN () #31 0x0001001eea1d in CONTROLS$_$TWINCONTROL_$__$$_WNDPROC$TLMESSAGE () #32 0x000100271551 in QTWIDGETS$_$TQTWIDGET_$__$$_DELIVERMESSAGE$formal$BOOLEAN$$LRESULT () #33 0x00010026d54d in QTWIDGETS$_$TQTWIDGET_$__$$_SLOTMOUSE$QOBJECTH$QEVENTH$$BOOLEAN () #34 0x00010026b4db in QTWIDGETS$_$TQTWIDGET_$__$$_EVENTFILTER$QOBJECTH$QEVENTH$$BOOLEAN () #35 0x00010028a602 in QTWIDGETS$_$TQTVIEWPORT_$__$$_EVENTFILTER$QOBJECTH$QEVENTH$$BOOLEAN () #36 0x00010028b74d in QTWIDGETS$_$TQTCUSTOMCONTROL_$__$$_VIEWPORTEVENTFILTER$QEVENTH$PBOOLEAN () #37 0x000103b9c92f in QLCLAbstractScrollArea::viewportEvent(QEvent*) () from /Library/Frameworks/Qt4Pas.framework/Versions/5/Qt4Pas ---Type to continue, or q to quit--- #38 0x000106114f10 in QAbstractScrollAreaFilter::eventFilter(QObject*, QEvent*) () from /Library/Frameworks/QtGui.framework/Versions/4/QtGui #39 0x000106bdeff7 in QCoreApplicationPrivate::sendThroughObjectEventFilters(QObject*, QEvent*) () from /Library/Frameworks/QtCore.framework/Versions/4/QtCore #40 0x000105c98ade in QApplicationPrivate::notify_helper(QObject*, QEvent*) () from /Library/Frameworks/QtGui.framework/Versions/4/QtGui #41 0x000105c9eeb0 in QApplication::notify(QObject*, QEvent*) () from /Library/Frameworks/QtGui.framework/Versions/4/QtGui #42 0x000106bdf54c in QCoreApplication::notifyInternal(QObject*, QEvent*) () from /Library/Frameworks/QtCore.framework/Versions/4/QtCore #43 0x000105ca023d in QApplicationPrivate::sendMouseEvent(QWidget*, QMouseEvent*, QWidget*, QWidget*, QWidget**, QPointer&, bool) () from /Library/Frameworks/QtGui.framework/Versions/4/QtGui #44 0x000105c4c62b in qt_mac_handleMouseEvent(NSEvent*, QEvent::Type, Qt::MouseButton, QWidget*, bool) () from /Library/Framewo
[Lazarus] ShellExecute and german umlauts
i want to send a mail on windows using shellexecute with german Umlauts ( ö,ä,ü .. ) in the body of the mail. This Code doesn't work: var s: string; s := 'öö' shellexecute(Application.Mainform.handle, 'open',PChar('mailto:' + 'exam...@gmail.com' + '?subject=' + 'ARJ-ChapterArchiv: ' + '&body=' + UTF8ToAnsi(s)),nil, nil, sw_normal); Good tipps are welcome! I don't want to use Indy or synapse! -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus