Visual PlanIt

[AndreaM]

Buongiorno,
Per chi volesse utilizzare il componente in oggetto, faccio presente che ho riscontrato una perdita di memoria per un oggetto non deallocato.
La correzione da fare si trova nel file VpMisc alla riga 626.
Riporto per chiarezza lo spezzone di codice gia corretto:

Codice: [Seleziona]

function GetButtonWidth(AButton: TButton): Integer;
const
  MARGIN = 24;
var
  canvas: TControlCanvas;
begin
  try
    canvas := TControlCanvas.Create;
    canvas.Control := AButton;
    canvas.Font.Assign(AButton.Font);
    Result := canvas.TextWidth(AButton.Caption) + MARGIN * Screen.PixelsPerInch div DesignTimeDPI;
  finally
    canvas.Free;
  end;
end;   

[xinyiman]

Perfetto, grazie mille. Lo hai comunicato anche a chi al momento mantiene quel set di oggetti?

[AndreaM]

Non ancora, se usandolo non trovo altro frà un pò lo comunico!

[xinyiman]

Perfetto 

[CieloInvernale]

Sto cercando di localizzare i componenti di Turbopower Visual PlanIt in italiano utilizzando il metodo proposto dalla wiki in questa pagina: http://wiki.freepascal.org/Turbopower_Visual_PlanIt#Localization, tuttavia non riesco ad ottenere alcun risultato (il codice si compila correttamente, ma non avviene alcun cambiamento nelle diciture inglesi dell'interfaccia).

La wiki dice:


Localization

All internal strings used by the VisualPlanIt package can be localized by means of the translation utilities available within Lazarus. The translated po files can be found in the folder languages of the distribution. Copy them to the language folder of your application, and translate them by calling

Codice: [Seleziona]

uses
  translations;
var
  langdir: String;  // language folder of your application 
  lang: String;     // language abbreviation, e.g. "de" for German
//...
  TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + lang + 'po');

Quindi:

• creata la cartella "locale", in cui ho inserito il file "vpsr.it.po"
• provato ad aggiungere il codice suggerito sia nella unit principale dell'applicazione sia nel file "nomeapplicazione.lpr", ma in entrambi i casi non accade nulla
• Provato a modificare le opzioni di progetto di modo che si attivasse la modalità i18n, in entrambi i casi precedenti non succede nulla

Che cosa sto sbagliando??

Grazie per il vostro tempo e la vostra attenzione. Se e quando riuscirò a far funzionare questa traduzione condividerò il file .po tradotto con la community italiana.

[nomorelogic]

così a senso direi che potrebbero mancare le assegnazioni, ad esempio:

Codice: [Seleziona]

uses
  translations;
var
  langdir: String;  // language folder of your application 
  lang: String;     // language abbreviation, e.g. "de" for German
//...

  langdir:='locale';
  lang:='it';
  TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + lang + 'po');

ti consiglio di leggere questo link, credo che può esserti utile per capire meglio come funziona il meccanismo delle traduzioni in lazarus
http://www.lazaruspascal.it/index.php?page=154

[CieloInvernale]

Problema risolto  , era un errore nella definizione del path al file con la traduzione (nello script precedente preso dalla wiki manca un punto  ).

Nel file "nomeapplicazione.lpr":

Codice: [Seleziona]

uses
  ..., Translations;

begin
  Translations.TranslateUnitResourceStrings('vpsr', 'locale/vpsr.it.po');
   ...
  Application.Run; 
end.

Appena termino la traduzione del file .po la posto sul forum per chi volesse italianizzare TurboPower Visual PlanIt.

[xinyiman]

Molto bene 

[CieloInvernale]

In allegato i files .po e .mo (binario) della traduzione italiana dei componenti Turbo Power Visual PlanIt.

[xinyiman]

Grandissimo, per caso lp hai testato anche su Mac?

[CieloInvernale]

  spiacente, non ho un Mac, non posso testare alcunché per quella piattaforma.

[CieloInvernale]

Vorrei aprire l'esempio di Visual PlanIt contenuto nella distribuzione stessa del componente, nella cartella "examples\datastores\sqlite3", ma all'apertura Lazarus ritorna un messaggio di errore per cui alcuni parametri non sarebbero definiti e non mostra la form del progetto.

Qualche idea su come risolvere il problema?

Grazie per il vostro tempo e la vostra pazienza.

[nomorelogic]

qual è il messaggio di errore?

[CieloInvernale]

unit1.lfm SQLite3Connection1 : Database connect string (DatabaseName) not filled in! (ripetuto due volte).

[xinyiman]

Ciao CieloInvernale, stò provando a visualizzare sul mac il tuo lavoro! Mi chiedevo, una volta copiati i file nella cartella delle lingue del pacchetto, come faccio a dirgli che voglio compilarlo in italiano?