[Lazarus] 1.6.0-fpc-3.0.0-win64.exe

2016-05-25 Thread Larry Dalton
I have been using 1.2.4 win32 because of a printer issue when trying to use the 
 64 bit compiler. Are there any printer issues with the new version?

Sent from my iPhone
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Firefox

2016-03-04 Thread Larry Dalton
Is anyone running a lazarus program on a Firefox browser?

Sent from my iPhone

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Getcurrentdir in Linux Mint

2015-11-07 Thread Larry Dalton
I need to know the function to get the current directory in Linux Mint

Sent from my iPhone

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Lazarus applications as webpaged

2015-08-30 Thread Larry Dalton
Can Lazarus apps be set up on servers and executed through Apache or other web 
servers?

Sent from my iPhone
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Lazarus applications as webpaged

2015-08-30 Thread Larry Dalton
I have a very large application with at least 20 forms. What would be the first 
step in rewriting it as a web app?

Sent from my iPhone

 On Aug 30, 2015, at 08:50, Michael Van Canneyt mich...@freepascal.org wrote:
 
 
 
 On Sun, 30 Aug 2015, Larry Dalton wrote:
 
 Can Lazarus apps be set up on servers and executed through Apache or other 
 web servers?
 
 fpweb based apps, yes. Gui apps not. I have a whole ecosystem of such apps 
 running.
 
 Michael;
 
 --
 ___
 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] FPC for 1.4.2.

2015-08-26 Thread Larry Dalton
Thanks

Sent from my iPhone

 On Aug 26, 2015, at 13:24, Mattias Gaertner nc-gaert...@netcologne.de wrote:
 
 On Wed, 26 Aug 2015 12:57:53 -0500
 Larry Dalton larrydalto...@gmail.com wrote:
 
 What is the latest FPC release for Lazarus 1.4.2?
 I am curently using 2.6.4.
 
 FPC 2.6.4 is the latest release.
 
 There is a release candidate for FPC 3.0.0. 
 There is no Lazarus release for that.
 
 Mattias
 
 --
 ___
 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


[Lazarus] PrinterSetupDialog1.Execute won't work.

2015-08-26 Thread Larry Dalton
I can't get PrinterSetupDialog1.Execute to work on Lazarus 1.4.2, FPC
2.6.4, on Windows 7.

I couldn't get it to work in a program that I have used for a long time, so
I built a simple test program, and get the same error code.

Here is the complete program:

unit printertestunit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, PrintersDlgs, Forms, Controls, Graphics,
Dialogs,
  StdCtrls,Messages,Buttons;

type

  { TPrinterTest }

  TPrinterTest = class(TForm)
Button1: TButton;
PageSetupDialog1: TPageSetupDialog;
PrintDialog1: TPrintDialog;
PrinterSetupDialog1: TPrinterSetupDialog;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
  private
{ private declarations }
  public
{ public declarations }
  end;

var
  PrinterTest: TPrinterTest;

implementation

{$R *.lfm}

{ TPrinterTest }

procedure TPrinterTest.Button1Click(Sender: TObject);
var message_string:string;
begin
  PrinterSetupDialog1.Execute;
if PrintDialog1.Execute then message_string:='Executed ok' else
message_string:=
'Not executed';
if messagedlg(message_string,mtconfirmation,[mbok],0)=mrok then
end;

procedure TPrinterTest.FormCreate(Sender: TObject);
begin

end;

end.


{here is the lpr}
 program printertest;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,printertestunit
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, printertestunit, printer4lazarus
  { you can add units after this };

{$R *.res}

var MyTest:TPrinterTest;
begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  MyTest:=TPrinterTest.Create(application);
  Application.Run;
end.

Required Packages are LCL and Printer4lazarus.

When I execute button1click I get the following error:
Project printertest raised exception class 'RunError(217)'

Clicking on Continue I get the subsequent error message:
Project printertest raised exception class 'EControlC' with message:
'Control-C hit.'

Any ideas on this?
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] FPC for 1.4.2.

2015-08-26 Thread Larry Dalton
What is the latest FPC release for Lazarus 1.4.2?
I am curently using 2.6.4.
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Control-C Hit error.

2015-08-26 Thread Larry Dalton
It does.

Sent from my iPhone

On Aug 26, 2015, at 04:15, Bart bartjun...@gmail.com wrote:

 Larry Dalton larrydalto...@gmail.com wrote:
 
 [...]
 printerSetupdialog1.Execute;
 
 The sho_line() is a debugging tool I use to see exactly where the error
 takes place.
 After I installed Lazarus 1.4.2, when I get to line 148, and try the
 printerSetupdialog1.Execute, I get the Control-C hit error.
 What do I need to look for?
 
 Does your project have a dependency on the printers4lazarus package?
 If not, add this dependency.
 
 Bart
 
 --
 ___
 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] Control-C Hit error.

2015-08-26 Thread Larry Dalton
That is the error message that comes up

Sent from my iPhone

 On Aug 26, 2015, at 04:05, Mattias Gaertner nc-gaert...@netcologne.de wrote:
 
 On Tue, 25 Aug 2015 22:19:53 -0500
 Larry Dalton larrydalto...@gmail.com wrote:
 
 [...]
 printerSetupdialog1.Execute;
 
 The sho_line() is a debugging tool I use to see exactly where the error 
 takes place. 
 After I installed Lazarus 1.4.2, when I get to line 148, and try the 
 printerSetupdialog1.Execute, I get the Control-C hit error. 
 What do I need to look for?
 
 What do you mean with Control-C hit error?
 
 Mattias
 
 --
 ___
 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] Control-C Hit error.

2015-08-26 Thread Larry Dalton
Error screen pops up and displays Control-C hit. Press OK to ignore and risk 
data corruption. Press Cancel ti kill the program. When I hit OK it exits the 
procedure.

Sent from my iPhone

 On Aug 26, 2015, at 04:05, Mattias Gaertner nc-gaert...@netcologne.de wrote:
 
 On Tue, 25 Aug 2015 22:19:53 -0500
 Larry Dalton larrydalto...@gmail.com wrote:
 
 [...]
 printerSetupdialog1.Execute;
 
 The sho_line() is a debugging tool I use to see exactly where the error 
 takes place. 
 After I installed Lazarus 1.4.2, when I get to line 148, and try the 
 printerSetupdialog1.Execute, I get the Control-C hit error. 
 What do I need to look for?
 
 What do you mean with Control-C hit error?
 
 Mattias
 
 --
 ___
 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] PrinterSetupDialog1.Execute won't work.

2015-08-26 Thread Larry Dalton
Had to give up and go to 32 bit

Sent from my iPhone

 On Aug 26, 2015, at 15:28, Bart bartjun...@gmail.com wrote:
 
 On 8/26/15, Larry Dalton larrydalto...@gmail.com wrote:
 I can't get PrinterSetupDialog1.Execute to work on Lazarus 1.4.2, FPC
 2.6.4, on Windows 7.
 
 When I execute button1click I get the following error:
 Project printertest raised exception class 'RunError(217)'
 
 Clicking on Continue I get the subsequent error message:
 Project printertest raised exception class 'EControlC' with message:
 'Control-C hit.'
 
 No such problems here with Lazarus 1.4.3 r49717 FPC 2.6.4
 i386-win32-win32/win64.
 
 Can you run the progrm inside gdb and then do a backtrace?
 
 Bart
 
 --
 ___
 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


[Lazarus] Control-C Hit error.

2015-08-25 Thread Larry Dalton
I have recently upgraded to Lazarus 1.4.2, running on Windows 7.
I have used the following procedure for 14 years on Delphi 4, and Lazarus
1.2.6, on Windows XP, Vista, and Windows 7.

procedure TFormPrinter.GapWaiveButtonClick(Sender: TObject);
var GapwaiveDrawer:Gapwaive_Drawer;


previewing:boolean;
preview:boolean;
deal_counter:integer;
this_font:tfont;
this_page:page;

begin

PrintImage.Visible:=true;
sho_line(109);
PrintImage.Enabled:=true;
sho_line(111);
PrintImage.BringToFront;
sho_line(113);
printimage.Top:=0;
sho_line(115);
printimage.Left:=0;
sho_line(117);
printimage.Width:=1000;
sho_line(119);
printimage.Height:=750;
sho_line(121);
hidebuttons;
sho_line(123);
PrintImage.Top:=0;
sho_line(125);
printimage.Left:=0;
sho_line(127);
printimage.Width:=round(20*96);
sho_line(129);
printimage.Height:=round(9.50*96);
sho_line(131);
preview:=true;
sho_line(133);
this_font:=tfont.create;
sho_line(135);
this_font.Name:='Times New Roman';
sho_line(137);
this_font.size:=12;
sho_line(139);
this_font.Style:=[fsbold];
sho_line(141);
setpage(printImage.canvas,preview,8.50,11.00,0,0,0,0,this_font,this_page);
sho_line(143);
PrintImage.BringToFront;
sho_line(145);
previewing:=true;
sho_line(147);
printerSetupdialog1.Execute;
sho_line(149);

The sho_line() is a debugging tool I use to see exactly where the error
takes place.
After I installed Lazarus 1.4.2, when I get to line 148, and try the
printerSetupdialog1.Execute, I get the Control-C hit error.
What do I need to look for?
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Control-C Hit error.

2015-08-25 Thread Larry Dalton
I have recently upgraded to Lazarus 1.4.2, running on Windows 7. 
I have used the following procedure for 14 years on Delphi 4, and Lazarus 
1.2.6, on Windows XP, Vista, and Windows 7. 

procedure TFormPrinter.GapWaiveButtonClick(Sender: TObject);
var GapwaiveDrawer:Gapwaive_Drawer;
 

previewing:boolean;
preview:boolean;
deal_counter:integer;
this_font:tfont;
this_page:page;

begin
 
PrintImage.Visible:=true;
sho_line(109);
PrintImage.Enabled:=true;
sho_line(111);
PrintImage.BringToFront;
sho_line(113);
printimage.Top:=0;
sho_line(115);
printimage.Left:=0;
sho_line(117);
printimage.Width:=1000;
sho_line(119);
printimage.Height:=750;
sho_line(121);
hidebuttons;
sho_line(123);
PrintImage.Top:=0;
sho_line(125);
printimage.Left:=0;
sho_line(127);
printimage.Width:=round(20*96);
sho_line(129);
printimage.Height:=round(9.50*96);
sho_line(131);
preview:=true;
sho_line(133);
this_font:=tfont.create;
sho_line(135);
this_font.Name:='Times New Roman';
sho_line(137);
this_font.size:=12;
sho_line(139);
this_font.Style:=[fsbold];
sho_line(141);
setpage(printImage.canvas,preview,8.50,11.00,0,0,0,0,this_font,this_page);
sho_line(143);
PrintImage.BringToFront;
sho_line(145);
previewing:=true;
sho_line(147);
printerSetupdialog1.Execute;
sho_line(149);

The sho_line() is a debugging tool I use to see exactly where the error takes 
place. 
After I installed Lazarus 1.4.2, when I get to line 148, and try the 
printerSetupdialog1.Execute, I get the Control-C hit error. 
What do I need to look for? 




--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Control-C error

2015-08-24 Thread Larry Dalton
I upgraded from Lazarus 1.2 to 1.4.2., and recompiled a project I use on 
Windows 7. Now when I try to print, I get a Control- C hit error. What do I 
need to look for?

Sent from my iPhone
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Missing classes unit

2015-08-15 Thread Larry Dalton
1.4.6 on Linux Mint

Sent from my iPhone

 On Aug 15, 2015, at 11:55, Aradeonas aradeo...@operamail.com wrote:
 
 To Team :
 This problem is more happening in 1.4 and later.Before this version I
 didnt see this problem except trunk version.
 
 Regards,
 Ara
 
 
 -- 
 http://www.fastmail.com - Or how I learned to stop worrying and
  love email again
 
 
 --
 ___
 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] Missing classes unit

2015-08-15 Thread Larry Dalton
Correction: 1.4.2. Larry

Sent from my iPhone

 On Aug 15, 2015, at 11:55, Aradeonas aradeo...@operamail.com wrote:
 
 To Team :
 This problem is more happening in 1.4 and later.Before this version I
 didnt see this problem except trunk version.
 
 Regards,
 Ara
 
 
 -- 
 http://www.fastmail.com - Or how I learned to stop worrying and
  love email again
 
 
 --
 ___
 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


[Lazarus] Missing classes unit

2015-08-15 Thread Larry Dalton
When I install any component on a form and then click on it, I get an error 
that says Classes unit missing. The IDE was working perfectly yesterday. What 
do I need to check for?

Sent from my iPhone
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Missing classes unit

2015-08-15 Thread Larry Dalton
What is the fix?

Sent from my iPhone

 On Aug 15, 2015, at 11:29, Michael Van Canneyt mich...@freepascal.org wrote:
 
 
 
 On Sat, 15 Aug 2015, Larry Dalton wrote:
 
 When I install any component on a form and then click on it, I get an error 
 that says Classes unit missing. The IDE was working perfectly yesterday. 
 What do I need to check for?
 
 Sounds like the FPC source path has gone wrong.
 
 Michael.
 
 --
 ___
 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] Missing classes unit

2015-08-15 Thread Larry Dalton
Thanks! Worked great! Larry

Sent from my iPhone

 On Aug 15, 2015, at 11:43, Aradeonas aradeo...@operamail.com wrote:
 
 Hit the Tools / Rescan FPC directory
 
 Regards,
 Ara
 
 
 -- 
 http://www.fastmail.com - Send your email first class
 
 
 --
 ___
 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


[Lazarus] TComboBox

2015-08-15 Thread Larry Dalton
I am using lazarus 1.4.2 on Linux Mint  unit and 1.2.6 on Windows 7 unit. Combo 
box is has a scroll bar on the windows unit but not the linux unit. Which is 
the problem: windows/linux or 1.4 vs 1.2?

Sent from my iPhone
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Converting from windows to linux mont

2015-08-04 Thread Larry Dalton
I am trying to convert one of my programs from windows to mint. When I try to 
compile one of my package, I get the following error: cannot find unit insrate 
used by numtools. Check search path of package larrypackage32. Try a clean 
rebuild. When I try to do that, I get several deletr failed error codes.

Sent from my iPhone
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Search path options for pacages

2015-08-04 Thread Larry Dalton
How do I add a search path for packages in linux mint? Buttons are grayed out

Sent from my iPhone

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] getdevicecaps

2015-08-04 Thread Larry Dalton
I am converting a program from windows to linux mint. The following unit
won't compile under linux because uses the windows unit. I have replaced
windows unit with linux unit. Now it can't find GetDeviceCaps. Enclosed is
the following unit. What do I have to rewrite to get it to compile under
linux?

unit baseformRt;

interface
uses
StringRt,sysutils,StdCtrls,graphics,d_print,person_type,laz_procs,AddressUnit;

type


form_adjust_record=record
form_name:string[20];
form_number:integer;
form_vert_adjust:double;
form_horiz_adjust:double;
filled:boolean;
end;{ends form_adjust_record}



baseform_Writer=object
this_adjust:form_adjust_record;
Top_of_bank:Double;
Last_line:double;
right_side:double;
Bank_Font:TFont;
Bank_Canvas:TCanvas;
vert_adjust:double;
horiz_adjust:double;
Bank_x_pixels:integer;
Bank_Y_Pixels:integer;
b_printer:printrec;
last_pay:tdatetime;
form_horiz_adjust:double;
form_vert_adjust:double;
ppix,ppiy:integer;
b_width:double;
{Del_counter:integer;
del_string:string;}
total_down:currency;
warrantyline:string;
scalex,scaley:double;
var today:tdatetime;
constructor init(var BankCanvas:TCanvas);

procedure stringinit(a_line:string;a_vert:double;a_horiz:double);
procedure set_font_size(const dog:double);
procedure set_font_by_length(const dog:double;const hite:double;const
cat:string);

procedure bottomstring_init(a_line:string;a_vert:double;a_horiz:double);
procedure int_init(a_int:integer;a_vert:double;a_horiz:double);
procedure long_init(a_long:longint;a_vert:double;a_horiz:double);
procedure double_init(a_double:double;a_vert:double;a_horiz:double);
procedure perc_init(a_perc:double;a_vert:double;a_horiz:double);
procedure dollar_init(a_dollar:currency;a_vert:double;a_horiz:double);
procedure x_init(a_vert:double;a_horiz:double);
procedure big_x_init(a_vert:double;a_horiz:double);
procedure dot_init(a_vert:double;a_horiz:double);
procedure na_init(a_vert:double;a_horiz:double);
procedure phn_init(a_phone:phone_record;a_vert:double;a_horiz:double);
procedure date_init(a_date:tdatetime;a_vert:double;a_horiz:double);
procedure street_init(a_street:address_record;a_vert:double;a_horiz:double);
procedure city_init(a_city:address_record;a_vert:double;a_horiz:double);
procedure start_line(vert_start:double;horz_start:double);
procedure draw_line(vert_end:double;horz_end:double);
procedure draw_thin_line(vert_end:double;horz_end:double);


end;

implementation
uses printers,numtools,messages,linux,
forms,dialogs,controls,new_dates;

procedure baseform_writer.draw_line(vert_end:double;horz_end:double);
var b_x,b_y:integer;
test_height:double;
test_string:string;
begin
bank_canvas.Pen.Width:=bank_canvas.pen.width*6;
test_string:='My String';
test_height:=inchheight(bank_canvas,ppiy,test_string);
b_x:=round((form_horiz_adjust+horz_end)*ppix);
b_y:=round((test_height+vert_end+form_vert_adjust)*ppiy);
bank_canvas.LineTo(b_x,b_y);
bank_canvas.pen.width:=round(bank_canvas.pen.width/6);
end;{ends baseform_writer.draw_line}

procedure baseform_writer.draw_thin_line(vert_end:double;horz_end:double);
var b_x,b_y:integer;
test_height:double;
test_string:string;
begin
bank_canvas.Pen.Width:=bank_canvas.pen.width*2;
test_string:='My String';
test_height:=inchheight(bank_canvas,ppiy,test_string);
b_x:=round((form_horiz_adjust+horz_end)*ppix);
b_y:=round((test_height+vert_end+form_vert_adjust)*ppiy);
bank_canvas.LineTo(b_x,b_y);
bank_canvas.pen.width:=round(bank_canvas.pen.width/2);
end;

procedure baseform_writer.start_line(vert_start:double;horz_start:double);
var b_x,b_y:integer;
test_line:string;
test_height:double;
begin
test_line:='My String';
test_height:=inchheight(bank_canvas,ppiy,test_line);
b_y:=round((test_height+vert_start+form_vert_adjust)*ppiy);
b_x:=round((form_horiz_adjust+horz_start)*ppix);
bank_canvas.MoveTo(b_x,b_y);
end;{ends start_line}


constructor baseform_writer.init(var BankCanvas:TCanvas);

var right_marg:double;

message_string:string;
dealer_only:boolean;
line:string;
label end_form;
begin

bank_canvas:=bankcanvas;
b_width:=0;
top_of_bank:=0;
Last_line:=0;
right_side:=0;

Bank_Font:=tfont.Create;

bank_font.Size:=10;
bank_font.Style:=[fsbold];
bank_font.Name:='Times New Roman';


ppix:=GetDeviceCaps(Bank_Canvas.Handle,logpixelsX);
ppiy:=GetDeviceCaps(bank_canvas.Handle,logpixelsY);

bank_x_pixels:=GetDeviceCaps(bank_canvas.Handle,LogPixelsX);
Bank_Y_pixels:=GetDeviceCaps(bank_canvas.Handle,LogPixelsY);

line:='This printer';

vert_adjust:=inchHeight(Bank_Canvas,Bank_Y_Pixels,line);
horiz_adjust:=inchWidth(bank_canvas,bank_x_pixels,line);

Bank_Font.Style:=bank_font.Style-[fsUnderline];


form_horiz_adjust:=0;
form_VERT_ADJUST:=0;



end_form:
end;{ends baseform_writer.init}



procedure
baseform_writer.stringinit(a_line:string;a_vert:double;a_horiz:double);

const this_checker=false;
begin
today:=now;
if this_checker then if messagedlg('now testing
stringinit',mtconfirmation,[mbok,mbabort],0)=mrabort then halt;
IF A_LINE'' THEN
b_printer.init('S',today,0,a_line,a_vert,

Re: [Lazarus] Search path options for pacages

2015-08-04 Thread Larry Dalton
Thanks all of you. You helped me figure it out and my packages all work now.

Sent from my iPhone

 On Aug 4, 2015, at 12:27, Péter Gábor p...@freemail.hu wrote:
 
 In my previous mail I was assuming that Larry wants to add search path
 (for example: where additional units can be found) for a package in the
 Package dialog, selecting Options / Copiler Options / Paths.
 There are buttons to open Path Editor and add/edit search paths.
 
 2015-08-04 16:44 keltezéssel, Larry Dalton írta:
 How do I add a search path for packages in linux mint? Buttons are grayed out
 
 -- 
 Péter Gábor
 p...@freemail.hu
 
 
 --
 ___
 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] getdevicecaps

2015-08-04 Thread Larry Dalton
That has already been converted and the unit compiles and runs on window 7 
platform, but will not compile on linux

Sent from my iPhone

 On Aug 4, 2015, at 12:21, Juha Manninen juha.mannine...@gmail.com wrote:
 
 On Tue, Aug 4, 2015 at 8:06 PM, Larry Dalton larrydalto...@gmail.com wrote:
 I am converting a program from windows to linux mint. The following unit
 won't compile under linux because uses the windows unit.
 
 Do you mean you are converting a program from Delphi?
 FPC / Lazarus is a cross-platform system. A properly made program can
 be compiled for different platforms without changing the code.
 Use the Delphi converter and see what it does for your program.
 
 Juha
 
 --
 ___
 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


[Lazarus] mysql

2015-07-28 Thread Larry Dalton
Is anyone using Mysql with Lazarus 1.4.2, and if so, what version?

Sent from my iPhone

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Linux mint install

2015-07-24 Thread Larry Dalton
I have tried to remove the default lazarus install with the following
commands:  sudo apt-get purge fpc lazarus
sudo rm -Rf /usr/lib/fpc sudo rm -Rf /usr/lib/lazarussudo rm -Rf
/usr/share/fpcsr sudo rm -f ~/.fpcsudo rm -Rf ~/.lazarus, then downloaded
lazarus_1.4.2-0amd64.deb. Then I get the following output:
dpkg: regarding fpc_2.6.2-0_i386.deb containing fpc, pre-dependency
problem: fpc pre-depends on binutils dpkg: error processing archive
fpc_2.6.2-0_i386.deb (--install): pre-dependency problem - not installing
fpc (Reading database ... 220087 files and directories currently
installed.) Preparing to unpack google-chrome-stable_current_i386.deb ...
Unpacking google-chrome-stable (43.0.2357.134-1) over (43.0.2357.134-1) ...
Selecting previously unselected package lazarus. Preparing to unpack
lazarus_1.4.2-0_amd64.deb ... Unpacking lazarus (1.4.2) ... Setting up
google-chrome-stable (43.0.2357.134-1) ... dpkg: dependency problems
prevent configuration of lazarus: lazarus depends on fpc (= 2.6.4) |
fp-compiler (= 2.6.4); however: Package fpc is not installed. Version of
fp-compiler on system is 2.6.2-8. lazarus depends on fpc-src (= 2.6.4) |
fpc-source (= 2.6.4); however: Version of fpc-source on system is 2.6.2-8.
lazarus depends on fpc (= 2.6.4) | fp-ide (= 2.6.4); however: Package fpc
is not installed. Package fp-ide is not installed. lazarus depends on fpc
(= 2.6.4) | fp-units-base (= 2.6.4); however: Package fpc is not
installed. Package fp-units-base is not installed. lazarus depends on fpc
(= 2.6.4) | fp-units-db (= 2.6.4); however: Package fpc is not installed.
Package fp-units-db is not installed. lazarus depends on fpc (= 2.6.4) |
fp-units-fcl (= 2.6.4); however: Package fpc is not installed. Package
fp-units-fcl is not installed. lazarus depends on fpc (= 2.6.4) |
fp-units-fv (= 2.6.4); however: Package fpc is not installed. Package
fp-units-fv is not instal dpkg: error processing package lazarus
(--install): dependency problems - leaving unconfigured Processing triggers
for mime-support (3.54ubuntu1.1) ... Processing triggers for
desktop-file-utils (0.22-1ubuntu1) ... Processing triggers for man-db
(2.6.7.1-1ubuntu1) ... Processing triggers for shared-mime-info
(1.2-0ubuntu3) ... Unknown media type in type 'all/all' Unknown media type
in type 'all/allfiles' Unknown media type in type 'uri/mms' Unknown media
type in type 'uri/mmst' Unknown media type in type 'uri/mmsu' Unknown media
type in type 'uri/pnm' Unknown media type in type 'uri/rtspt' Unknown media
type in type 'uri/rtspu' Errors were encountered while processing:
fpc_2.6.2-0_i386.deb lazarus


On Fri, Jul 24, 2015 at 1:23 PM, Graeme Geldenhuys 
mailingli...@geldenhuys.co.uk wrote:

 On 2015-07-24 17:45, Larry Dalton wrote:
  What am I doing wrong?

 No idea, but may I suggest you rather download the *.tar file instead.
 It is a console based installer created by the FPC team. I've used it
 for years on Linux and FreeBSD, and never had any problems. I can also
 install it to any directory (I normally choose $HOME/devel/fpc/),
 instead if /usr/bin/ or /usr/local/bin/.

 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


[Lazarus] Linux mint install

2015-07-24 Thread Larry Dalton
I have downloaded fpc_2.6.2_i386.deb. When I try to install it from the command 
line it says it can't find it. When I try to add it through Synaptic pkg mgr, 
it is grayed-out and I can't click on it. What am I doing wrong?

Sent from my iPhone
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Linux mint install

2015-07-24 Thread Larry Dalton
Using linux mint 17.1 Rebecca

Sent from my iPhone

 On Jul 24, 2015, at 16:26, brian br...@meadows.pair.com wrote:
 
 On Fri, 24 Jul 2015 16:10:28 -0500, you wrote:
 
 Larry, 
 
 Are you by any chance using the Debian version of Mint? It's a few
 versions ago, but I had all kinds of weird problems with
 Lazarus/FPC/LMDE, and after a few iterations with the LMDE users, I
 switched to plain old Debian, and things have worked just fine since
 then. 
 
 If you're using the Ubuntu-based Mint, then forget all the above, that
 used to work OK. 
 
 Brian. 
 
 
 I have tried to remove the default lazarus install with the following
 commands:  sudo apt-get purge fpc lazarus
   sudo rm -Rf /usr/lib/fpc sudo rm -Rf /usr/lib/lazarussudo rm -Rf
 /usr/share/fpcsr sudo rm -f ~/.fpcsudo rm -Rf ~/.lazarus, then downloaded
 lazarus_1.4.2-0amd64.deb. Then I get the following output:
 dpkg: regarding fpc_2.6.2-0_i386.deb containing fpc, pre-dependency
 problem: fpc pre-depends on binutils dpkg: error processing archive
 fpc_2.6.2-0_i386.deb (--install): pre-dependency problem - not installing
 fpc (Reading database ... 220087 files and directories currently
 installed.) Preparing to unpack google-chrome-stable_current_i386.deb ...
 Unpacking google-chrome-stable (43.0.2357.134-1) over (43.0.2357.134-1) ...
 Selecting previously unselected package lazarus. Preparing to unpack
 lazarus_1.4.2-0_amd64.deb ... Unpacking lazarus (1.4.2) ... Setting up
 google-chrome-stable (43.0.2357.134-1) ... dpkg: dependency problems
 prevent configuration of lazarus: lazarus depends on fpc (= 2.6.4) |
 fp-compiler (= 2.6.4); however: Package fpc is not installed. Version of
 fp-compiler on system is 2.6.2-8. lazarus depends on fpc-src (= 2.6.4) |
 fpc-source (= 2.6.4); however: Version of fpc-source on system is 2.6.2-8.
 lazarus depends on fpc (= 2.6.4) | fp-ide (= 2.6.4); however: Package fpc
 is not installed. Package fp-ide is not installed. lazarus depends on fpc
 (= 2.6.4) | fp-units-base (= 2.6.4); however: Package fpc is not
 installed. Package fp-units-base is not installed. lazarus depends on fpc
 (= 2.6.4) | fp-units-db (= 2.6.4); however: Package fpc is not installed.
 Package fp-units-db is not installed. lazarus depends on fpc (= 2.6.4) |
 fp-units-fcl (= 2.6.4); however: Package fpc is not installed. Package
 fp-units-fcl is not installed. lazarus depends on fpc (= 2.6.4) |
 fp-units-fv (= 2.6.4); however: Package fpc is not installed. Package
 fp-units-fv is not instal dpkg: error processing package lazarus
 (--install): dependency problems - leaving unconfigured Processing triggers
 for mime-support (3.54ubuntu1.1) ... Processing triggers for
 desktop-file-utils (0.22-1ubuntu1) ... Processing triggers for man-db
 (2.6.7.1-1ubuntu1) ... Processing triggers for shared-mime-info
 (1.2-0ubuntu3) ... Unknown media type in type 'all/all' Unknown media type
 in type 'all/allfiles' Unknown media type in type 'uri/mms' Unknown media
 type in type 'uri/mmst' Unknown media type in type 'uri/mmsu' Unknown media
 type in type 'uri/pnm' Unknown media type in type 'uri/rtspt' Unknown media
 type in type 'uri/rtspu' Errors were encountered while processing:
 fpc_2.6.2-0_i386.deb lazarus
 
 
 On Fri, Jul 24, 2015 at 1:23 PM, Graeme Geldenhuys 
 mailingli...@geldenhuys.co.uk wrote:
 
 On 2015-07-24 17:45, Larry Dalton wrote:
 What am I doing wrong?
 
 No idea, but may I suggest you rather download the *.tar file instead.
 It is a console based installer created by the FPC team. I've used it
 for years on Linux and FreeBSD, and never had any problems. I can also
 install it to any directory (I normally choose $HOME/devel/fpc/),
 instead if /usr/bin/ or /usr/local/bin/.
 
 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

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Linux mint install

2015-07-24 Thread Larry Dalton
Yes

Sent from my iPhone

 On Jul 24, 2015, at 17:19, brian br...@meadows.pair.com wrote:
 
 On Fri, 24 Jul 2015 17:12:06 -0500, you wrote:
 
 Using linux mint 17.1 Rebecca
 
 OK, scratch the comment about LMDE (I assume what you're using is the
 Ubuntu-based version?). 
 
 Brian. 
 
 Sent from my iPhone
 
 On Jul 24, 2015, at 16:26, brian br...@meadows.pair.com wrote:
 
 On Fri, 24 Jul 2015 16:10:28 -0500, you wrote:
 
 Larry, 
 
 Are you by any chance using the Debian version of Mint? It's a few
 versions ago, but I had all kinds of weird problems with
 Lazarus/FPC/LMDE, and after a few iterations with the LMDE users, I
 switched to plain old Debian, and things have worked just fine since
 then. 
 
 If you're using the Ubuntu-based Mint, then forget all the above, that
 used to work OK. 
 
 Brian. 
 
 
 I have tried to remove the default lazarus install with the following
 commands:  sudo apt-get purge fpc lazarus
  sudo rm -Rf /usr/lib/fpc sudo rm -Rf /usr/lib/lazarussudo rm -Rf
 /usr/share/fpcsr sudo rm -f ~/.fpcsudo rm -Rf ~/.lazarus, then downloaded
 lazarus_1.4.2-0amd64.deb. Then I get the following output:
 dpkg: regarding fpc_2.6.2-0_i386.deb containing fpc, pre-dependency
 problem: fpc pre-depends on binutils dpkg: error processing archive
 fpc_2.6.2-0_i386.deb (--install): pre-dependency problem - not installing
 fpc (Reading database ... 220087 files and directories currently
 installed.) Preparing to unpack google-chrome-stable_current_i386.deb ...
 Unpacking google-chrome-stable (43.0.2357.134-1) over (43.0.2357.134-1) ...
 Selecting previously unselected package lazarus. Preparing to unpack
 lazarus_1.4.2-0_amd64.deb ... Unpacking lazarus (1.4.2) ... Setting up
 google-chrome-stable (43.0.2357.134-1) ... dpkg: dependency problems
 prevent configuration of lazarus: lazarus depends on fpc (= 2.6.4) |
 fp-compiler (= 2.6.4); however: Package fpc is not installed. Version of
 fp-compiler on system is 2.6.2-8. lazarus depends on fpc-src (= 2.6.4) |
 fpc-source (= 2.6.4); however: Version of fpc-source on system is 2.6.2-8.
 lazarus depends on fpc (= 2.6.4) | fp-ide (= 2.6.4); however: Package fpc
 is not installed. Package fp-ide is not installed. lazarus depends on fpc
 (= 2.6.4) | fp-units-base (= 2.6.4); however: Package fpc is not
 installed. Package fp-units-base is not installed. lazarus depends on fpc
 (= 2.6.4) | fp-units-db (= 2.6.4); however: Package fpc is not installed.
 Package fp-units-db is not installed. lazarus depends on fpc (= 2.6.4) |
 fp-units-fcl (= 2.6.4); however: Package fpc is not installed. Package
 fp-units-fcl is not installed. lazarus depends on fpc (= 2.6.4) |
 fp-units-fv (= 2.6.4); however: Package fpc is not installed. Package
 fp-units-fv is not instal dpkg: error processing package lazarus
 (--install): dependency problems - leaving unconfigured Processing triggers
 for mime-support (3.54ubuntu1.1) ... Processing triggers for
 desktop-file-utils (0.22-1ubuntu1) ... Processing triggers for man-db
 (2.6.7.1-1ubuntu1) ... Processing triggers for shared-mime-info
 (1.2-0ubuntu3) ... Unknown media type in type 'all/all' Unknown media type
 in type 'all/allfiles' Unknown media type in type 'uri/mms' Unknown media
 type in type 'uri/mmst' Unknown media type in type 'uri/mmsu' Unknown media
 type in type 'uri/pnm' Unknown media type in type 'uri/rtspt' Unknown media
 type in type 'uri/rtspu' Errors were encountered while processing:
 fpc_2.6.2-0_i386.deb lazarus
 
 
 On Fri, Jul 24, 2015 at 1:23 PM, Graeme Geldenhuys 
 mailingli...@geldenhuys.co.uk wrote:
 
 On 2015-07-24 17:45, Larry Dalton wrote:
 What am I doing wrong?
 
 No idea, but may I suggest you rather download the *.tar file instead.
 It is a console based installer created by the FPC team. I've used it
 for years on Linux and FreeBSD, and never had any problems. I can also
 install it to any directory (I normally choose $HOME/devel/fpc/),
 instead if /usr/bin/ or /usr/local/bin/.
 
 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
 
 --
 ___
 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


[Lazarus] linux mint install

2015-07-23 Thread Larry Dalton
I just acquired a desktop box with linux mint os. I want to upgrade lazarus
to the latest release. Anyone have any step-by-step directions?
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Dbase tutorial

2015-07-04 Thread Larry Dalton
Old dbase

Sent from my iPhone

 On Jul 4, 2015, at 11:04, waldo kitty wkitt...@windstream.net wrote:
 
 On 07/04/2015 09:20 AM, Larry Dalton wrote:
 Where can I get a tutorial for using dbase on lazarus?
 
 dbase as in the old dBase database stuff or dbase as in coding for and 
 using (SQL) databases?
 
 IIRC and unless something has changed that i'm not aware of (quite easy), the 
 dbase interface code is only really for reading that data... today's 
 databases are all SQL databases which offers a lot more capabilities and is 
 really where you should look... if you have an existing dbase database, you 
 might consider to convert it from that format to SQL and store the 
 information in a modern database...
 
 -- 
 NOTE: No off-list assistance is given without prior approval.
   *Please keep mailing list traffic on the list* unless
   private contact is specifically requested and granted.
 
 --
 ___
 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] Dbase tutorial

2015-07-04 Thread Larry Dalton
Is there a way to use microsoft excel spreadsheets?

Sent from my iPhone

 On Jul 4, 2015, at 11:04, waldo kitty wkitt...@windstream.net wrote:
 
 On 07/04/2015 09:20 AM, Larry Dalton wrote:
 Where can I get a tutorial for using dbase on lazarus?
 
 dbase as in the old dBase database stuff or dbase as in coding for and 
 using (SQL) databases?
 
 IIRC and unless something has changed that i'm not aware of (quite easy), the 
 dbase interface code is only really for reading that data... today's 
 databases are all SQL databases which offers a lot more capabilities and is 
 really where you should look... if you have an existing dbase database, you 
 might consider to convert it from that format to SQL and store the 
 information in a modern database...
 
 -- 
 NOTE: No off-list assistance is given without prior approval.
   *Please keep mailing list traffic on the list* unless
   private contact is specifically requested and granted.
 
 --
 ___
 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] Dbase tutorial

2015-07-04 Thread Larry Dalton
I used delphi with .db and .xls files for years

Sent from my iPhone

 On Jul 4, 2015, at 11:04, waldo kitty wkitt...@windstream.net wrote:
 
 On 07/04/2015 09:20 AM, Larry Dalton wrote:
 Where can I get a tutorial for using dbase on lazarus?
 
 dbase as in the old dBase database stuff or dbase as in coding for and 
 using (SQL) databases?
 
 IIRC and unless something has changed that i'm not aware of (quite easy), the 
 dbase interface code is only really for reading that data... today's 
 databases are all SQL databases which offers a lot more capabilities and is 
 really where you should look... if you have an existing dbase database, you 
 might consider to convert it from that format to SQL and store the 
 information in a modern database...
 
 -- 
 NOTE: No off-list assistance is given without prior approval.
   *Please keep mailing list traffic on the list* unless
   private contact is specifically requested and granted.
 
 --
 ___
 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


[Lazarus] Dbase tutorial

2015-07-04 Thread Larry Dalton
Where can I get a tutorial for using dbase on lazarus?

Sent from my iPhone

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Formkeydown

2015-06-12 Thread Larry Dalton
The following worked fine in Delphi. I can't get it to work in Lazarus.
Tips, please!


  procedure FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

  const FunctionKeys:array[vk_f1..vk_f12] of string[3]=

('F1','F2','F3','F4','F5','F6','F7','F8','F9','F10','F11','F12');





procedure TMain_Form.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

  var show_string:string;

begin

str(key,show_string);

If messagedlg('Key
Pressed='+show_string,mtconfirmation,[mbok,mbabort],0)=mrabort then halt;

if Key=vk_f1 then agentbuttonclick(application);

if Key=vk_f2 then custom_form.CreateCar('Cars');

if Key=vk_f3 then custom_form.CreateDeal('Deal');

if Key=vk_f4 then f4panelclick(application);

if key=vk_f5 then custom_form.CreateAgent('Insurance Agent');

if key=vk_f6 then custom_form.CreatePreset('Presets');

if key=vk_f7 then custom_form.CreatePrinter('Print Forms');

if key=vk_f8 then begin
custom_form.F8PanelClick(application);top:=0;left:=0;vertscrollbar.Position:=0;end;

if key=vk_f9 then custom_form.F9Panelclick(application);

if key=vk_f10 then sendnamebuttonclick(application);

if key=vk_home then begin

if messagedlg('Home Key Pressed',mtconfirmation,[mbok],0)=mrok then

top:=0;left:=0;vertscrollbar.Position:=0;

horzscrollbar.Position:=0; }





end;
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Formkeydown

2015-06-12 Thread Larry Dalton
Will try that, but first problem is nothing happens when key pressed

Sent from my iPhone

 On Jun 12, 2015, at 11:02, Jürgen Hestermann juergen.hesterm...@gmx.de 
 wrote:
 
 Am 2015-06-12 um 15:08 schrieb Larry Dalton:
  The following worked fine in Delphi. I can't get it to work in Lazarus. 
  Tips, please!
 What is the problem?
 
  const FunctionKeys:array[vk_f1..vk_f12] of string[3]= 
  ('F1','F2','F3','F4','F5','F6','F7','F8','F9','F10','F11','F12');
 Where do you use FunctionKeys?
 
  if messagedlg('Home Key Pressed',mtconfirmation,[mbok],0)=mrok then
 top:=0;left:=0;vertscrollbar.Position:=0;
 What is intended here? Only the first statement (top:=0) is omitted when 
 the IF statement is false.
 All others are executed in all cases.
 
  horzscrollbar.Position:=0; }
 What comment ends here?
 
 
 Why not use a case statement instead of the many IF statements?
 For example:
 
 ---
 Case Key of
   vk_f1 : agentbuttonclick(application);
   vk_f2 : custom_form.CreateCar('Cars');
   vk_f3 : custom_form.CreateDeal('Deal');
   vk_f4 : f4panelclick(application);
   vk_f5 : custom_form.CreateAgent('Insurance Agent');
   vk_f6 : custom_form.CreatePreset('Presets');
   vk_f7 : custom_form.CreatePrinter('Print Forms');
   vk_f8 : begin 
 custom_form.F8PanelClick(application);top:=0;left:=0;vertscrollbar.Position:=0;end;
   vk_f9 : custom_form.F9Panelclick(application);
   vk_f10 : sendnamebuttonclick(application);
   vk_home :
  begin
  if messagedlg('Home Key Pressed',mtconfirmation,[mbok],0)=mrok then
 top:=0;
  left:=0;
  vertscrollbar.Position:=0;
  horzscrollbar.Position:=0;
  end;
   end; // of case
 
 
 --
 ___
 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] Formkeydown

2015-06-12 Thread Larry Dalton
I forgot to include that this is on Windows 7 platform


Sent from my iPhone

 On Jun 12, 2015, at 11:02, Jürgen Hestermann juergen.hesterm...@gmx.de 
 wrote:
 
 Am 2015-06-12 um 15:08 schrieb Larry Dalton:
  The following worked fine in Delphi. I can't get it to work in Lazarus. 
  Tips, please!
 What is the problem?
 
  const FunctionKeys:array[vk_f1..vk_f12] of string[3]= 
  ('F1','F2','F3','F4','F5','F6','F7','F8','F9','F10','F11','F12');
 Where do you use FunctionKeys?
 
  if messagedlg('Home Key Pressed',mtconfirmation,[mbok],0)=mrok then
 top:=0;left:=0;vertscrollbar.Position:=0;
 What is intended here? Only the first statement (top:=0) is omitted when 
 the IF statement is false.
 All others are executed in all cases.
 
  horzscrollbar.Position:=0; }
 What comment ends here?
 
 
 Why not use a case statement instead of the many IF statements?
 For example:
 
 ---
 Case Key of
   vk_f1 : agentbuttonclick(application);
   vk_f2 : custom_form.CreateCar('Cars');
   vk_f3 : custom_form.CreateDeal('Deal');
   vk_f4 : f4panelclick(application);
   vk_f5 : custom_form.CreateAgent('Insurance Agent');
   vk_f6 : custom_form.CreatePreset('Presets');
   vk_f7 : custom_form.CreatePrinter('Print Forms');
   vk_f8 : begin 
 custom_form.F8PanelClick(application);top:=0;left:=0;vertscrollbar.Position:=0;end;
   vk_f9 : custom_form.F9Panelclick(application);
   vk_f10 : sendnamebuttonclick(application);
   vk_home :
  begin
  if messagedlg('Home Key Pressed',mtconfirmation,[mbok],0)=mrok then
 top:=0;
  left:=0;
  vertscrollbar.Position:=0;
  horzscrollbar.Position:=0;
  end;
   end; // of case
 
 
 --
 ___
 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


[Lazarus] Real number display

2014-12-09 Thread Larry Dalton
How do I get a real number to display as a decimal in a dbedit instead of an 
exponential number?

Sent from my iPhone
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Real number display

2014-12-09 Thread Larry Dalton
Works great! Thanks!

Sent from my iPhone

 On Dec 9, 2014, at 22:23, Chris Kelling kelli...@cox.net wrote:
 
 RealNumber := 1.5;
 FloatToStr(RealNumber:2,RealStr);
 DbeditBox.text := RealStr
 
 The :2 specifies the number of decimal. If you were using WRITE to output 
 to the console, it would look like:
 
 RealNumber := 13.3456;
 writeln('Number = ',RealNumber:3:2);
 
 Which would output
 Number =  13.34
 
 The first number = the number of spaces after the literal (notice the extra 
 space after the equals), and the second is the number of decimal places to 
 print. NOTE, in both examples, the formatting dies bit change the value (i.e. 
 No rounding or trunking happen, just the number of decimal places specified 
 are printed).  
 
 Hope that helps. 
 
 -Chris
  Everything at or below the line is a signature, not to be confused 
 with the body of the email above. Sorry about the last signature text that 
 seemed to have some people questioning my sanity. 
 
 We are what we repeatedly do. Excellence, then, is not an act, but a habit.
 
 -Aristotle
 
 
 
 
 On Dec 9, 2014, at 23:03, Larry Dalton larrydalto...@gmail.com wrote:
 
 How do I get a real number to display as a decimal in a dbedit instead of an 
 exponential number?
 
 Sent from my iPhone
 --
 ___
 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
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] ODBC

2014-12-05 Thread Larry Dalton
Working good except for one spreadsheet. Every time I close it out and reopen 
it, the column header row gets moved down one row and replaced by a row with 
N1,N11. What do I need to look for?

Sent from my iPhone

 On Nov 25, 2014, at 10:52, Marcos Douglas m...@delfire.net wrote:
 
 On Tue, Nov 25, 2014 at 1:41 PM, Larry Dalton larrydalto...@gmail.com 
 wrote:
 I can use the TDbf, but unless I don't know how to use it, I can't execute 
 Sql statements. Am I wrong?
 
 The dbf is simple so, I don't need SQL more than I already use with
 the Filter property.
 For insert/update/delete, just use the DataSet methods.
 
 Marcos Douglas
 
 --
 ___
 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


[Lazarus] ODBC

2014-11-25 Thread Larry Dalton

Is anyone successfully using Lazarus with .dbf files connected by ODBC?
Sent from my iPhone

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] ODBC

2014-11-25 Thread Larry Dalton
I can use the TDbf, but unless I don't know how to use it, I can't execute Sql 
statements. Am I wrong?

Sent from my iPhone

 On Nov 25, 2014, at 10:36, Marcos Douglas m...@delfire.net wrote:
 
 On Tue, Nov 25, 2014 at 1:28 PM, Larry Dalton larrydalto...@gmail.com 
 wrote:
 
 Is anyone successfully using Lazarus with .dbf files connected by ODBC?
 Sent from my iPhone
 
 I'm using TDbf component. Works fine.
 
 Marcos Douglas
 
 --
 ___
 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


[Lazarus] Mysql

2014-10-29 Thread Larry Dalton
Which version of mysql works best with Lazarus on windows 7?

Sent from my iPhone

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus