AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Werkzeuge ProjectLocalizer, MessageDlg Problem in Delphi2009

ProjectLocalizer, MessageDlg Problem in Delphi2009

Ein Thema von Warp · begonnen am 6. Jul 2009 · letzter Beitrag vom 31. Jul 2016
Antwort Antwort
Seite 1 von 2  1 2   
Warp

Registriert seit: 27. Mai 2006
45 Beiträge
 
Delphi XE4 Professional
 
#1

ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 6. Jul 2009, 20:48
Hallo,

hoffe das ist die richtige Rubrik für mein Problem(chen).

Ich arbeite mich gerade in ProjectLocalizer ein und habe da ein Problem bei der Sprachumschaltung (Übersetzung) bei TMessageDlg in Delphi 2009.

Die Beschriftungen der Buttons mbYes, mbNo, mbOk, mbHelp und mbCancel werden nicht richtig übersetzt bzw. sind nicht mehr lesbar. auf den ersten Blick sieht es so aus, dass die Buttons keine passende Schriftart verwenden (Rechtecke werden statt den Buchstaben angezeigt bzw. kryptische Zeichen. Das gleiche gilt auf für die Caption des MessageDlg. Ich habe mal ein paar Beispiele angehängt.

Sonst gibt es bist jetzt keine Schwierigkeiten. Die Res.-Strings und sonstigen String Properties des Programms werden korrekt übersetzt bzw. angezeigt. Zum Testen habe ich einfach mal auf Sakuras Demo im Video aufgesetzt. Auch habe ich zum Vergelich mal ein etwas grösseres Projekt mit ProjectLocalizer mehrsprachig gemacht welches auf TMessageDlg verwendet. Gleiches Resultat. Alles o.k. bis auf die Buttons in den MessageDlg's.

Mein Delphi2009 Pro. DE ist übrigens mit den aktuellsten Updates ausgestattet.

Ach so - hat vielleicht jemand schon probiert die Übersetzungsdatenbank von ProjectLocalizer in eine weiter verarbeitbare Form zu exportieren (z.B. CSV um die Texte an Übersetzungsbüros geben zu können). Entweder ist so etwas wirklich nicht drin oder ich habe es noch nicht gefunden.

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dwsLocalizer;

type
  TForm1 = class(TForm)
    Name: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

resourcestring
  StrProgrammWirklichBeenden = 'Programm wirklich beenden?';
  StrProgrammNichtZuBeenden = 'Sie wollen also weiter machen.';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label2.Caption:= 'Hallo ' + Edit1.Text;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg(StrProgrammWirklichBeenden, mtConfirmation, mbYesNo, 0, mbNo) = mrYes then
    canClose:= TRUE
  else begin
    canClose:= False;
    //Nur zu Testzwecken; ohne irgendeinen Sinn ausser den die Buttons alle zu sehen/testen
    if MessageDlg(StrProgrammNichtZuBeenden, mtConfirmation, [mbYes, mbNo, mbCancel, mbOK, mbHelp], 0, mbOk) = mrYes then {};
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  GetLocalizer.ResourceFolder:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'Languages';
  GetLocalizer.GetLanguages(ListBox1.Items);
  GetLocalizer.LoadSystemLanguage(LANG_ENGLISH);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if Listbox1.Items.Count >0 then
  begin
    GetLocalizer.InitializeLanguage(integer(Listbox1.Items.Objects[Listbox1.ItemIndex]));
  end;
end;

end.

Die dwsLocalizer unti habe ich an folgenden Stelen gepatcht, um sie unter D2009 kompilierbar zu bekommen:

Delphi-Quellcode:
    PropInfo := FindPropInfo(Obj, PropNames, 0, PropType, CollectionIdx);
    if (PropInfo <> nil) then
    begin
      // set string property
      //tkUstring zugefügt, 20090702 HH
      if PropInfo^.PropType^.Kind in [tkString, tkLString, tkWString, tkUString] then
        if PropInfo^.SetProc <> nil then
          SetWideStrProp( Obj, PropInfo^.Name, PropValue );
    end

 .....


function TdwsLocalizerInt.GetCodePage: Integer;
var
    Buf: array[0..6] of Char; //vorher AnsiChar; 20090702 HH
begin
  GetLocaleInfo(GetLocaleID, LOCALE_IDefaultAnsiCodePage, Buf, 6);
  Result := StrToIntDef(Buf, GetACP);
end;

Hat jemand eine Idee was da falsch laufen könnte?

Gruss,

Warp
Miniaturansicht angehängter Grafiken
msgdlgdeutschdemo_264.jpg   msgdlgenglishdemo_175.jpg  
  Mit Zitat antworten Zitat
Warp

Registriert seit: 27. Mai 2006
45 Beiträge
 
Delphi XE4 Professional
 
#2

Re: ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 8. Jul 2009, 19:21
push!

Arbeitet denn von Euch keiner mit "ProjectLocalizer" unter D2009 und kann etwas dazu sagen?

Wenigstens ob bei Euch alles problemlos läuft oder nicht (MessageDlg, usw.)......

Gruss,

Warp
  Mit Zitat antworten Zitat
ConstantGardener

Registriert seit: 24. Jan 2006
Ort: Halberstadt
359 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 8. Jul 2009, 20:11
hallo warp,

ich arbeite mit dem WinLocalizer von Daniel Wieschnewski (aka Sakura ) unter D2006. Leider gibt er keine Infos zur weiteren Entwicklung des Projektes (auch nicht per PN). Im Moment ist das Programm die letzte Hürde für mich auf dem Weg zu D2009. Von daher war ich schon mal erfreut zu hören das Du es zum laufen gebracht hast.

Bei den Fehlern könnte evtl. ein Problem mit der fehlenden UNICODE Unterstützung vorliegen. Ist aber nur so ins blaue geraten.

Einen Export / import nach CSV für externe Übersetzung z.B. habe ich leider auchg noch nicht gefunden.

Ansonsten finde ich das Tool nach wie vor Klasse. Wenn man nur wüsste ob es weiter entwickelt wird ?

cg
Andreas Schachtner
  Mit Zitat antworten Zitat
Benutzerbild von kroimon
kroimon

Registriert seit: 21. Apr 2004
24 Beiträge
 
RAD-Studio 2010 Arc
 
#4

Re: ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 8. Jul 2009, 20:27
Ja, auch per Mail gibt es von Sakura keinerlei Reaktion :-/

Ich fände es nur fair, wenn er sich wenigstens Mal dazu äußern könnte und das optimalste wäre, er würde WinLoc als OpenSource veröffentlichen oder das Projekt in andere Hände legen...
Das Tool ist super, aber mit toter Software zu arbeiten macht keinen Spaß

Sakura! Hierher! Hopp!
~Stefan
  Mit Zitat antworten Zitat
Warp

Registriert seit: 27. Mai 2006
45 Beiträge
 
Delphi XE4 Professional
 
#5

Re: ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 8. Jul 2009, 20:53
Habe Daniel auch bereits versucht per eMail zu erreichen. Ebenso bis jetzt kein Feedback erhalten.

Es hängt jetzt bei mir eigentlich nur noch an dem MessageDlg-Problem und geht es seitens Daniel weiter mit ProjectLocalizer (spez. D2009) oder nicht. Wenigstens eine Antwort "geht weiter: ja/nein" sollte drin sein.

Wenn nein: o.k. - dann muss ich eben etwas Anderes statt ProjectLocalizer suchen.
Würde es dann auch fair finden, wenn Daniel es wenigstens so auf seiner Website aussagen würde.

@krassonkel
Geht mir aber genauso wie Dir, ich find das Tool einfach toll und es wäre schade, wenn es nicht weiter entwickelt würde (egal von wem, wenn Daniel nicht weiter macht.. ...)

Gruss,

Warp
  Mit Zitat antworten Zitat
Jens01

Registriert seit: 14. Apr 2009
631 Beiträge
 
#6

Re: ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 16. Okt 2009, 18:53
eine pragmatische Lösung :
z.B.:
Label.Caption := StrSonstwas + ' '; {also einfach ein Leerzeichen o.ä. anhängen}

dann gehts!
  Mit Zitat antworten Zitat
Warp

Registriert seit: 27. Mai 2006
45 Beiträge
 
Delphi XE4 Professional
 
#7

Re: ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 21. Okt 2009, 12:12
@Jens01
Danke für den Tip.

Leider funktioniert das nicht für die Dialoge der VCL, da die Texte der Buttons/Captions ja nicht explizit in der Appplikation zugewiesen, sondern durch die in WinLoc integrierten Übersetzungsmechanismen automatisch zur Laufzeit angepasst werden.
Hier müsste man dann ggf. in den Code von dwsLocalizer aus WinLoc eingreifen, um dort automatisch noch Leerzeichen anzuhängen (was aber dann nur für die Dialog-Klassen greifen dürfte/müsste).

Gruss,

Warp
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

Re: ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 21. Okt 2009, 12:17
Ist Delphi2009 eigentlich schon vollständig Unicode fähig? Weil bisher war die VCL nicht Unicode fähig und konnte somit keine Unicode Zeichen darstellen. Man musste dann immer auf Fremdkomponenten zurückgreifen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Jens01

Registriert seit: 14. Apr 2009
631 Beiträge
 
#9

Re: ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 21. Okt 2009, 12:50
Hallo Warp,
in Delphi bin ich so tief noch nicht drin, da ich erst wieder ein halbes Jahr damit programmiere.
Ich habe mir aber dwsLocalizer an paar Stellen etwas manipuliert. z.B habe ich ein Label, was groß einen Zustand des Projektes anzeigt. Die Anzeige ist eine Zahl! Wenn du die Sprache umstellst, wird dies Label einfach mit der Standardeinstellung vom Localizer überschrieben. Ich habe dann in der Procedure "TranslateComponent" wie folgt manipuliert :

if not (CompValue = '#~*') then DoTranslateComponent(ComponentToTranslate, CompName, CompValue);

Wenn jetzt im Localizer #~* als Übersetzung eingetragen wird, dann überspringt er die Eintragung einfach. Vielleicht könnte man es mit deinem Problem ähnlich machen.
Ich glaube, das sind keine direkten Lösungen für dich, aber vielleicht hilft dir meine gesammelte "Erfahrung" weiter.
Gruss Jens
  Mit Zitat antworten Zitat
Roaster

Registriert seit: 21. Jul 2004
Ort: bei mir zu Hause
107 Beiträge
 
#10

Re: ProjectLocalizer, MessageDlg Problem in Delphi2009

  Alt 21. Okt 2009, 12:52
Zitat von Luckie:
Ist Delphi2009 eigentlich schon vollständig Unicode fähig?
Die Frage war doch jetzt nicht ernst gemeint, oder?
cu, Michael

Windows 7, WinXP Pro, Vista, WinXP Home, Win98 SE
D4 C/S, D7 Enterprise, Turbo Delphi Pro, Delphi 2009
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf