Zanima me kako najlakse uraditi cirilicni user interfejs ako vec imate vise od pola uradjene aplikacije i latinicni user interfejs?
Cirilicni user interfejs
Zaključano
Zakačeno
Zar niko nije pravio cirilicni user interfejs?
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.
Potpis
Goran Pilipović fka bluesman
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?
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?
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...
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...
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?
(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?
Evo dela koda:
Recimo, moj font file se zvao "mssscyu1.fnt" a ime fonta je MS Sans Serif CYU1
ZATIM IDE TVOJ CODE
a zatim:
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;
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;
procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if iFontLoaded > 0 then
RemoveFontResource (PChar(sPath + 'mssscyu1.fnt'));
end;
Potpis
Goran Pilipović fka bluesman