StringGrid

[Nicola]

Sto imparando ad utilizzare il componente StringGrid, con discreti risultati; la mia domanda è come posso fare ad eleiminare la colonna a sx, senza nessun dato, in modo da avere piu' spazio a video? (in sostanza quella colonna a sx della colonna "data fattura").
Grazie
Nicola

[nomorelogic]

devi impostare FixedCols a 0 (zero)

[Nicola]

Fatto e funziona, grazie!

[Nicola]

E' possibile esportare la griglia in un pdf?

[Nicola]

Altra cosa se seleziono una riga con il mouse, vorrei che lo sfondo cambiasse colore, non riesco però a capire come fare, se utilizzo StringGrid.Color mi varia tutte le righe (alternate); ho provato a cercare ma non trovo come fare.

[Stilgar]

Per il PDF .. non in "automatico". (A proposito dell'appetito vien mangiando Stai alzando il tiro )
Devi usare una libreria aggiuntiva per scrivere PDF. La griglia da sola non lo fa.

Per la selezione della riga sotto il mouse, devi gestire gli eventi del mouse (onMouseMove ad esempio)

Codice: [Seleziona]

procedure AForm.HandlerGrigliaMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);
var
  row, col: Int32;
begin
  Griglia.MouseToCell(x, y, col,row);
  Griglia.Row := row;
end;    

Ad esempio..

Stilgar

[Nicola]

Per il Pdf aspetto allora di aver fatto un po' di pratica, non vorrei che alzando troppo il tiro...mi sparo sui piedi!

Per l'altra domanda non ho capito (forse non mi son ben spiegato): in sostanza vorrei
che quando faccio click su una qualsiasi cella tutta la riga di quella cella diventasse di altro
colore come fosse evidenziata, ad esempio la riga 3;

inoltre ho un altro problema: nel vecchio Pascal/Dos si era soliti inserireri una frase del tipo
"confermi la cancellazione (Y/N)"; se la risposta era "Y" si mandava in esecuzione un codice, altrimenti si usciva; con Lazarus con che componente gestisco una richiesta di
conferma? come puoi vedere dall'allegato ho inserito un "Showmessage" ma non accetta ovviamente risposte.
Grazie infinite

[nomorelogic]

Per l'altra domanda non ho capito (forse non mi son ben spiegato): in sostanza vorrei
che quando faccio click su una qualsiasi cella tutta la riga di quella cella diventasse di altro
colore come fosse evidenziata, ad esempio la riga 3;

c'è la proprietà RowSelect, devi impostarla a True

come puoi vedere dall'allegato ho inserito un "Showmessage" ma non accetta ovviamente risposte.

usa MessageDlg

[Nicola]

Ok funzionante, grazie; ora però mi servirebbe proprio la stampa, potresti suggerirmi qualche link? ho cercato con google ma non trovo nulla, e anche sotto la cartella di Lazarus examples, non trovo esempi di aiuto.

[nomorelogic]

per la stampa di direi di partire leggendo da qua http://wiki.lazarus.freepascal.org/LazReport_Tutorial

se poi vuoi provare l'esportazione su foglio elettronico...
http://forum.lazarus.freepascal.org/index.php/topic,26935.0.html

[Nicola]

ti ringrazio per i link ma devo partire mooolto piu' dal basso; ho trovato questo
http://wiki.freepascal.org/Using_the_printer, però copiando il codice mi da già
un errore (come da allegati).

Codice: [Seleziona]

//Raise error if Printer.Printing is not Value
procedure TPrinter.CheckPrinting(Value: Boolean);
begin
  if Printing<>Value then
  begin
    if Value then
      raise EPrinter.Create('Printer is not printing')
    else
      raise Eprinter.Create('Printer is printing');
  end;
end;   [/code ]

[code]
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Printers,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    PrintBtn: TButton;
    procedure PrintBtnClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.PrintBtnClick(Sender: TObject);
  const
  LEFTMARGIN = 100;
  HEADLINE = 'I Printed My Very First Text On ';
var
  YPos, LineHeight, VerticalMargin: Integer;
  SuccessString: String;
begin
  with Printer do
  try
    BeginDoc;
    Canvas.Font.Name := 'Courier New';
    Canvas.Font.Size := 10;
    Canvas.Font.Color := clBlack;
    LineHeight := Round(1.2 * Abs(Canvas.TextHeight('I')));
    VerticalMargin := 4 * LineHeight;
    // There we go
    YPos := VerticalMargin;
    SuccessString := HEADLINE + DateTimeToStr(Now);
    Canvas.TextOut(LEFTMARGIN, YPos, SuccessString);
  finally
    EndDoc;
  end;
end;


end.

[Stilgar]

Alla riga 298 di Printers è definite la variabile ....

Codice: [Seleziona]

var
  Printer: TPrinter = nil;  

Codice: [Seleziona]

function TPrinterCanvas.GetRightMargin: Integer;
begin
  if (fRightMargin=0) and (fPrinter<>nil) then
  begin
    with fPrinter.Papersize.PaperRect do
      Result := PhysicalRect.Right-WorkRect.Right;
  end else
    Result := fRightMargin;
end;

finalization
  If Assigned(Printer) then
    Printer.Free;
end.    

Ma non vedo l'inizializzazione della variabile stessa.
Prova con un :

Codice: [Seleziona]

  Printer := TPrinter.Create;

Secondo me risolvi.

Stilgar

[Stilgar]

Codice: [Seleziona]

constructor TPrinter.Create;
begin
  if ClassType=TPrinter then
    raise Exception.Create('TPrinter is an abstract base class.'
    +' Please use a printer implementation like the package printers4lazarus.');
  Inherited Create;
  fPrinterIndex:=-1;  //By default, use the default printer
  fCanvas:=nil;
  fPaperSize:=nil;
  fBins:=nil;
  fTitle:='';
end; 

No ... non risolvi. Ho appena controllato il costruttore.

Stilgar

[Nicola]

In realtà ho fatto copia incolla dalla guida giusta per iniziare a fare delle prove, ma se non va allora ci sono errori nel manuale?

[Stilgar]

Questi passi li hai fatti?

"The basic steps

You must do the following to be able to use printers:

    Add the Printer4Lazarus package to your project requirements.
    Add the Printers unit to the uses section of your unit.
    Use the existing Printer object.

Adding the Printer4Lazarus package to your project requirements

The Printer4Lazarus package defines a basic printer and provides platform independent printing. The following can thus be used on various platforms.

In the Lazarus IDE, do the following:

    In the Project menu, click Project Inspector. A window is shown with a tree view, one of the branches is named Required Packages. By default, the Required Packages branch shows the LCL package.
    Click the Add button, the button with the plus sign at the top of the window.
    Open the New Requirements page.
    From the Package Name list box, select Printer4Lazarus.
    Click OK.
    Printer4Lazarus is now shown in the Required Packages branch.

Adding the Printers unit to the uses section of your unit"