mam plik *.enu chce w programie zmieniac jezyk na angielski co mam zrobic bo adam b. pominal ta jakze "nieistotna" drobnostke...;/ pomocy co mam zrobic??
Przejrzyj sobie RichEdit Demo (katalog Delphi\Demos)
Naciśnij też F1 i wpisz language versions, czy coś podobnego, i dowiesz się :-)
przegladalem ale to nic nie dalo... nic nie rozumiem... prosze o pomoc.. a w helpie tez za wiele nie ma...;/
@$##@!
Zrób sobie wersję językową, tak, jak opisał Adam.
Później zajrzyj do demo RichEdit'a.
Skopiuj unit Reinit.pas do swojego projektu.
const
ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;
FRENCH = (SUBLANG_FRENCH shl 10) or LANG_FRENCH;
GERMAN = (SUBLANG_GERMAN shl 10) or LANG_GERMAN;
Ustaw sobie stałe w programie (języki).
I analizuj procedurę
procedure TMainForm.SwitchLanguage(Sender: TObject);
Więcej nie powiem :-P
Mam problem ze zmiana jezyka... Jak to zrobic poprzez klikniecie w button np. Polish, a pozniej English? Moze ktos mi to dokladniej wytlumaczyc?
dostales juz duza podpowiedz... nie oczekuj gotowca.....
procedure TMainForm.SwitchLanguage(Sender: TObject);
var
Name : String;
Size : Integer;
begin
if LoadNewResourceModule(TComponent(Sender).Tag) <> 0 then
begin
Name := FontName.Text;
Size := StrToInt(FontSize.Text);
ReinitializeForms;
LanguageEnglish.Checked := LanguageEnglish = Sender;
LanguageFrench.Checked := LanguageFrench = Sender;
LanguageGerman.Checked := LanguageGerman = Sender;
CurrText.Name := Name;
CurrText.Size := Size;
SelectionChange(Self);
FontName.SelLength := 0;
SetupRuler;
if Visible then Editor.SetFocus;
end;
end;
I tak tez robie. Ale zmienilem germany na polish i usunolem french. w const dodalem LANG_POLISH i mi blad wywalalo w tym miejscu :(