Re: [lazarus] Always visible caret
On 2/11/06, Alexander Todorov [EMAIL PROTECTED] wrote: Try scrolling insource editor holding Ctrl+ Ctrl+ Down/Up arrow _ To unsubscribe: mail [EMAIL PROTECTED] with unsubscribe as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
Re: [lazarus] Always visible caret
Mattias Gaertner wrote: On Fri, 10 Feb 2006 23:05:14 +0100 Martin Smat [EMAIL PROTECTED] wrote: Hi, I have an idea to add the feature which you can know for example from Vim. When scrolling with the scrollbars, the caret moves too and is always visible in the window. It is very useful if you often combine scrolling by mouse and keyboard. Before implementing it in the Lazarus I would like to know the opinion of other people if it is useful to have this feature in Lazarus or only waste of time? Please continue. Mattias When I add new option eoAlwaysVisibleCaret into TSynEditorOption I receive this error from the compiler: SynEdit.pp(869,15) Error: Property can't have a default value SynEdit.pp(983,21) Error: That kind of property can't be published SynEdit.pp(1016,1) Fatal: There were 2 errors compiling module, stopping SynEdit.pp(27,18) Fatal: Compilation aborted How can I add the new option in the correct way? Thanks, Martin. _ To unsubscribe: mail [EMAIL PROTECTED] with unsubscribe as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
Re: [lazarus] Always visible caret
Alexander Todorov wrote: On 2/11/06, Alexander Todorov [EMAIL PROTECTED] wrote: Try scrolling insource editor holding Ctrl+ Ctrl+ Down/Up arrow Thank you for this hint, I didn't know it. Martin. _ To unsubscribe: mail [EMAIL PROTECTED] with unsubscribe as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
Re: [lazarus] Always visible caret
On 2/11/06, Martin Smat [EMAIL PROTECTED] wrote: Hi, I have an idea to add the feature which you can know for example from Vim. When scrolling with the scrollbars, the caret moves too and is always visible in the window. It is very useful if you often combine scrolling by mouse and keyboard. Before implementing it in the Lazarus I would like to know the opinion of other people if it is useful to have this feature in Lazarus or only waste of time? Martin. There is something simillar already. Try scrolling insource editor holding Ctrl+ _ To unsubscribe: mail [EMAIL PROTECTED] with unsubscribe as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
Re: [lazarus] Always visible caret
On Sat, 11 Feb 2006 10:43:17 +0100 Martin Smat [EMAIL PROTECTED] wrote: Mattias Gaertner wrote: On Fri, 10 Feb 2006 23:05:14 +0100 Martin Smat [EMAIL PROTECTED] wrote: Hi, I have an idea to add the feature which you can know for example from Vim. When scrolling with the scrollbars, the caret moves too and is always visible in the window. It is very useful if you often combine scrolling by mouse and keyboard. Before implementing it in the Lazarus I would like to know the opinion of other people if it is useful to have this feature in Lazarus or only waste of time? Please continue. Mattias When I add new option eoAlwaysVisibleCaret into TSynEditorOption I receive this error from the compiler: SynEdit.pp(869,15) Error: Property can't have a default value SynEdit.pp(983,21) Error: That kind of property can't be published SynEdit.pp(1016,1) Fatal: There were 2 errors compiling module, stopping SynEdit.pp(27,18) Fatal: Compilation aborted How can I add the new option in the correct way? Add it to TSynEditorOption2. FPC has a maximum of 32 elements per set for published properties. Mattias _ To unsubscribe: mail [EMAIL PROTECTED] with unsubscribe as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
Re: [lazarus] Always visible caret
Mattias Gaertner wrote: On Sat, 11 Feb 2006 10:43:17 +0100 Martin Smat [EMAIL PROTECTED] wrote: Mattias Gaertner wrote: On Fri, 10 Feb 2006 23:05:14 +0100 Martin Smat [EMAIL PROTECTED] wrote: Hi, I have an idea to add the feature which you can know for example from Vim. When scrolling with the scrollbars, the caret moves too and is always visible in the window. It is very useful if you often combine scrolling by mouse and keyboard. Before implementing it in the Lazarus I would like to know the opinion of other people if it is useful to have this feature in Lazarus or only waste of time? Please continue. Mattias When I add new option eoAlwaysVisibleCaret into TSynEditorOption I receive this error from the compiler: SynEdit.pp(869,15) Error: Property can't have a default value SynEdit.pp(983,21) Error: That kind of property can't be published SynEdit.pp(1016,1) Fatal: There were 2 errors compiling module, stopping SynEdit.pp(27,18) Fatal: Compilation aborted How can I add the new option in the correct way? Add it to TSynEditorOption2. FPC has a maximum of 32 elements per set for published properties. Thanks, now it compiles without any error. Martin. _ To unsubscribe: mail [EMAIL PROTECTED] with unsubscribe as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
[lazarus] C:\lazarus_ins\lcl\FileUtil.pas(111,2) Fatal: Can't open include file fileutil.inc
I don't know what is this, but I created a package put it on just a unit (uses classes, sysutils, Dialogs) when I try build appear this unit with error Thanks Patrick Carvalho
[lazarus] New Qt4 Patch
Hello,
Please ignore the Qt4 patch I sent about 2 weeks ago and apply this one
instead.
Attached is a patch that changes the current Qt interface into a Qt4
interface.
Also a new file qtprivate.pp must be included on lcl/interfaces/qt/
The following widgets work: TApplication, TCustomForm, TCustomButton,
TCustomMemo.
The following events work: OnClick, OnPaint.
More information about the qt4 widgetset can be found here:
http://wiki.lazarus.freepascal.org/index.php/Qt_Interface
TCanvas.Rectangle works but only inside OnPaint event.
The following files are obsolete and should be removed:
lcl/interfaces/qt/src/*.*
lcl/interfaces/qt/include/*.*
lcl/interfaces/qt/test/*.*
lcl/interfaces/qt/build.sh
The patch alone doesn't make the interface work. 2 other things are
needed. A 400kb unit called qt4.pas, and the 800kb .so file.
qt4.pas is too big for this mailling list and I already sent it to Mattias.
Thanks,
Felipe
{
*
* QtPrivate.pp *
* -- *
* *
* *
*
*
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.LCL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*
}
unit qtprivate;
{$mode objfpc}{$H+}
interface
uses
qt4, Classes, SysUtils, LMessages, Forms, Controls, LCLType;
type
{ TQtWidget }
TQtWidget = class(QWidgetH)
private
public
Widget: QWidgetH;
LCLObject: TWinControl;
end;
{ TQtButton }
TQtButton = class(TQtWidget)
private
public
constructor Create(const AWinControl: TWinControl; const AParams:
TCreateParams); virtual;
destructor Destroy; override;
procedure SetText(text: PWideString);
procedure SlotClicked; cdecl;
procedure Text(retval: PWideString);
end;
{ TQtBrush }
TQtBrush = class(QBrushH)
private
public
Widget: QBrushH;
public
constructor Create; virtual;
destructor Destroy; override;
end;
{ TQtDeviceContext }
TQtDeviceContext = class(QPainterH)
private
public
Widget: QPainterH;
Brush: TQtBrush;
public
constructor Create(WidgetHandle: HWND); virtual;
destructor Destroy; override;
procedure drawRect(x1: Integer; y1: Integer; w: Integer; h: Integer);
end;
{ TQtCustomForm }
TQtCustomForm = class(TQtWidget)
private
public
PaintBox : QWidgetH;
Splitter : QSplitterH;
public
constructor Create(const AWinControl: TWinControl; const AParams:
TCreateParams); virtual;
destructor Destroy; override;
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
procedure SlotPaint; cdecl;
end;
implementation
{ TQtButton }
{--
Function: TQtButton.Create
Params: None
Returns: Nothing
--}
constructor TQtButton.Create(const AWinControl: TWinControl; const AParams:
TCreateParams);
var
Str: WideString;
Parent: QWidgetH;
begin
// Initializes the properties
LCLObject := AWinControl;
// Creates the widget
{$ifdef VerboseQt}
WriteLn('Calling QPushButton_create');
{$endif}
Str := WideString(AWinControl.Caption);
Parent := TQtCustomForm(AWinControl.Parent.Handle).Widget;
Widget := QPushButton_create(@Str, Parent);
// Sets it´ s initial properties
QWidget_setGeometry(Widget, AWinControl.Left, AWinControl.Top,
AWinControl.Width, AWinControl.Height);
end;
{--
Function: TQtButton.Destroy
Params: None
Returns: Nothing
--}
destructor TQtButton.Destroy;
begin
{$ifdef VerboseQt}
WriteLn('Calling QPushButton_destroy');
{$endif}
[lazarus] Component for to do backup !!
does anybody know any backup component ??? like the file attached. if anybody to get compile it tell me pls !!! backup.pas Description: Binary data
