Cirilicni user interfejs

[ goky2002 @ 23.12.2002. 16:59 ] @

Zanima me kako najlakse uraditi cirilicni user interfejs ako vec imate vise od pola uradjene aplikacije i latinicni user interfejs?

[ goky2002 @ 25.12.2002. 17:04 ] @

Zar niko nije pravio cirilicni user interfejs?

[ bluesman @ 25.12.2002. 21:50 ] @

instaliras cirilicni screen font "on the fly" i sve meniji i sve ostalo ti pise na cirilici, zatim, kada se aplikacija prekine deinstaliras font. Nesto slicno radi Adobe Photoshop. Ja sam to radio i jednom programcicu i radilo je bez ikakvih problema.

[ goky2002 @ 26.12.2002. 15:08 ] @

Kako se izvodi instaliranje screen fonta "on the fly"?
Ja sam izveo nesto sa dodelom cirilicnog fonta svim formama kroz screen i promenio font menija i sl. Da li si na to mislio?

Ima jos jedna stvar, posto je pisano uz pomoc latinicne srpske tastature onda kodni raspored nije

isti pa ima sa tim problema, da li postoji neka funkcija koja prevodi to u ove obicne cirilicne

fontove koji nisu Unicode?

[ -zombie- @ 28.12.2002. 05:30 ] @

za bulesmena:

sta je to screen font (ovo sto je goky rekao ili nesto trece)?

kako menjash unicode font iz latinice u cirilicu?

kako se resava lj, dj, nj i sl...

[ broker @ 29.12.2002. 11:12 ] @

Mislim da rešenje može da bude u korišćenju Tnt Delphi Unicode Controls
(http://home.ccci.org/wolbrink/tnt/delphi_unicode_controls.htm).

Radi se o kompletnom setu komponenti koje nasleđuju VCL komponente i daju im mogućnost korišćenja unicode stringova. Koliko sam pročitao čak dotera i Delphi'jev porperty editor koji ne ume da se snađe sa ćirilicom.

Vrlo mi je čudno da čak i u D7 Borland nije rešio problem kodnih strana. Font properti ima opciju za izbot kodne strane ali Delphi to en ume da prepozna i omogući ukucavanje znakova po podešenoj kodnoj strani.

Zna li neko za Kajliks rešenje za korišćenje unicode-a?

[ bluesman @ 30.12.2002. 22:49 ] @

Evo dela koda:
Recimo, moj font file se zvao "mssscyu1.fnt" a ime fonta je MS Sans Serif CYU1

Code:

procedure TMain.FormCreate(Sender: TObject);
begin
// Instaliraj font runtime
sPath := ExtractFilePath (ParamStr(0));

iFontLoaded := AddFontResource (PChar(sPath + 'mssscyu1.fnt'));
if iFontLoaded > 0 then begin
   SendMessage(
    HWND_BROADCAST,    // handle of destination window
    WM_FONTCHANGE,    // message to send
    0,    // first message parameter
    0     // second message parameter
   );
   Font.Name := 'MS Sans Serif CYU1';
   end;
....
end;

ZATIM IDE TVOJ CODE

a zatim:

Code:

procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if iFontLoaded > 0 then
RemoveFontResource (PChar(sPath + 'mssscyu1.fnt'));
end;