Message dialogin viestin voi asettaa mieleisekseen, mutta miten voi pakottaa nuo Kyllä, Ei ja Peruuta -nappien teksti mieleisekseen. Miten niiden captioneihin pääsee käsiksi?
Esim.
strIlmoitus := 'Tiedosto on jo olemassa. haluatko korvata sen?';
case MessageDlg(strIlmoitus , mtCustom,
[mbYes, mbNo, mbCancel], 0) of ... jne
Tuossa noiden nappien tekstit näkyvät suomeksi Kyllä, Ei, Peruuta. muuta haluaisin ne englanniksi englannin kielistä sovellusta varten.
Message dialogin nappien tekstien muuttaminen
Lokalisointiako
7
512
Vastaukset
Eikös ne nyt mene automaattisesti käyttöjärjestelmän kielen mukaan?
- Lokalisointiako2
"Eikös ne nyt mene automaattisesti käyttöjärjestelmän kielen mukaan?"
Ei kun haluaisin nimenomaan pakottaa captionit noille napeille. Voisi tietysti tehdä oman dialogilomakkeensa niille, muuta luulisi, että on olemassa keino pakottaa nuo Message dialog -nappien captiontekstit.Niin siis yritin sanoa sitä, että voit tehdä englannin kielisen version ja jättää huomioimatta nuo kun ne on lokalisoitu jo ja kieli vaihtuu automaatisesti riippuen käyttöjärjestelmän kieliasetuksista/versiosta.
Näkyy sitten suomen kielisellä Windowsilla suomiasetuksilla suomenkielellä.
Saattaa kyseinen dialogi olla ihan Windowsin vakioita, että ei ole keinoja vaikuttaa siihen muuten kuin tekemällä itse oman.
- a--a--aaa
kokeile tätä:
procedure TForm1.Button1Click(Sender: TObject);
var
otsikko,viesti,ok,ei,
okVastaus, eiVastaus:string;
begin
otsikko := 'Otsikko';
viesti := 'viesti';
ok := 'Kyllä';
ei := 'Ei';
okVastaus := 'Vastattiin kyllä';
eiVastaus := 'Vastattiin ei';
case QuestionDlg ( otsikko, viesti,mtCustom,[mrYes,ok, mrNo, ei, 'IsDefault'],'') of
mrYes: Memo1.Lines.Add(okVastaus);
mrNo: Memo1.Lines.Add(eiVastaus);
end;
end; - Affiliate-Julkaisia
Kaikki vakiot löytyvät delphin Consts.pas tiedostosta.
Tiedosto taas löytyy polusta . . . . . . \Delphi7\Source\Vcl\
- kopioi Consts.pas tiedosto omaan projekti kansioosi.
- avaa se jollakin tekstinkäsittely ohjelmalla
- hae tiedosto kohta josta löytyy seuraavat vakio määrittelyt
SMsgDlgWarning = 'Warning';
SMsgDlgError = 'Error';
SMsgDlgInformation = 'Information';
SMsgDlgConfirm = 'Confirm';
SMsgDlgYes = '&Kyllä Yes, yes';
SMsgDlgNo = '&Ei hitossa';
SMsgDlgOK = 'Selvä';
SMsgDlgCancel = 'Cancel';
SMsgDlgHelp = '&Help';
SMsgDlgHelpNone = 'No help available';
SMsgDlgHelpHelp = 'Help';
SMsgDlgAbort = '&Abort';
SMsgDlgRetry = '&Retry';
SMsgDlgIgnore = '&Ignore';
SMsgDlgAll = '&All';
SMsgDlgNoToAll = 'N&o to All';
SMsgDlgYesToAll = 'Yes to &All';
- tee tarvittavat muutokset vakioiden sisältöön
- tallenna muutkoset, sulje tiedosto, siirry delphiin.
- avaa projektisi.
- paina Shit F11 ja valitse se Consts.pas tiedosto projektiisi liitettäväksi
- paina Ctrl F9 kääntääksesi projektisi uudestaan
Nyt ohjelmaasi ajettaessa pitäisi näkyä muuttuneet tekstit painikkeissa.
Älä muuta vakioiden nimiä, vain sisältöä, kuten tuohon muutaman esimerkkinä tein.- Delphix
"Kaikki vakiot löytyvät delphin Consts.pas tiedostosta.
Tiedosto taas löytyy polusta . . . . . . \Delphi7\Source\Vcl\"
Aivan niin. Tosin nykyisessä Delphi 10.2 Community Editionissa Consts.pas on nimellä Vcl.Consts.pas.
Löytyy hakemistosta Program Files (x86)/Embarcadero/Studio/19.0/source/vcl/.
Kopioi tuo originaali Vcl.Consts.pas oman sovelluksesi projektihakemistoon ja tee tarvittavat muutokset caption-teksteihin siellä. Kääntämisen jälkeen painiketekstit näkyvät nyt sellaisena kuin olet ne kirjoittanut. - Anonyymi00008
"paina Shit F11 ja valitse se Consts.pas tiedosto projektiisi liitettäväksi"
Kai sen noinKIN voi tehdä... itse olen käyttänyt toista tapaa:
0. Raahaa ko. tiedosto (Consts.pas) Windows tiedostonhallinnasta Delphin tekstieditoriin.
1. Paina AltGr -F11 (Project Manager)
2. Varmista, että oikea projekti on valittuna
3. Projektin päätiedoston (.dpr) kohdalla paina joko paikallismenunappia näppikseltä tai hiiren oikeaa nappia.
4. Avautuvasta paikallisvalikosta valitse Add (to project)
5. Delphi kysyy: Add Consts.pas to project <Myproject.Dpr> ?
6. Vastaa myöntävästi - ja Delphi hoitaa homman. Vinkki: File / Save All.
Ketjusta on poistettu 3 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Lindtman I vasemmistohallitus aloittaa viimein Suomen kuntoon laittamisen
Tässä nyt on 3 vuotta seurattu irvokasta kärsimysnäytelmää nimeltään "valtion budjetin tasapainotus by äärioikeisto", ja1982747Missä viipyy persujen lupaama euron bensa?
En edes muista milloin bensapumpussa olisi ollut ykkösellä alkava litrahinta. Missä siis viipyy persujen lupaama euron b1582465Kirje, PellePelottomalle.
Tärkeää olisi luoda ystävyys, että se, jota rakastaa, on samalla paras ystävä ja luotettavin, jolle voi ja uskaltaa luot1061152- 64941
Martinan hevoset.
Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait246860Mistä löytyy naisseuraa sinkkumiehelle?
Kertokaapas kokeneemmat mistä löytyis naisseuraa sinkulle. Ihan ois eukko nyt tosissaan hakusessa. Tanssipaikat kun on a21853Voi teitä naisia
Suudeltiin ja nukuttiin toisissamme kiinni mutta pillua ei tullu, ei edes aamulla. t.38vmies93820Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa
Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka290811Hyvä meininki
TTP:ssa väkeä tosi runsaasti paikalla. Hyvää ruokaa jälleen ja munkit ja sima erinomaista. Kiitos yrittäjälle! Hieno Vap22738Onneksi tapasin sut
Ilman sua olisin jatkanut pään lyömistä seinään eli samanlaisten miesten etsimistä. Tajusin, mikä menee pieleen vasta ku93719