Message dialogin nappien tekstien muuttaminen

Lokalisointiako

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.

6

171

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • M-Kar

      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.

      • M-Kar

        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.


    Ketjusta on poistettu 3 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Tehyn Rytkösellä tallessa tekstiviestit A-studiokohussa

      https://www.mtvuutiset.fi/artikkeli/a-studiosta-kohu-tehyn-rytkosen-mukaan-ministeri-linden-sai-paattaa-osallistujat-ohjelma-kiistaa-vaitteen/8407068
      Maailman menoa
      164
      6075
    2. Ohhoh! Rita Niemi-Manninen otti ison tatuoinnin - Herätti somekansan: "Täydellinen paikka!"

      Rita Niemi-Mannisen suuri, uusi tatuointi on saanut somekansan heräämään talvihorroksesta. Niemi-Manninen otti tatskan rakkauslomalla Aki-miehensä kan
      Kotimaiset julkkisjuorut
      20
      1748
    3. Harvoin julkisuudessa nähty Jari Sillanpää, 56, julkaisi uusia kuvia - Karisti Suomen pölyt jaloista

      Huumekohun jälkeen matalaa profiilia pitänyt Jari "Siltsu" Sillanpää on ollut vaitonainen elämästään. Tänä keväänä miehen some on ollut hiljainen. Nyt
      Kotimaiset julkkisjuorut
      11
      1646
    4. Ihastumisesta kertominen

      Olen päättänyt kertoa tunteistani ihastukseni kohteelle. Erityisen vaikeaksi tilanteeni tekee se, että kyseessä on ns. kielletty rakkaus. Olen jo toi
      Ihastuminen
      92
      1533
    5. Taas Venäjän tiedoittaja akka Varoitti Suomea ja Ruotsia liittymästä Natoon

      Juuri sopivasti julkaistu varoitus, kun Suomen eduskunta alkaa klo 13:50 käsitellä asiaa suorassa TV 1:n lähetyksessä. ILtasanomat.
      Maailman menoa
      441
      1426
    6. Ässät lähtivät eri teille

      Tämä on ilonpäivä 😁
      Kotimaiset julkkisjuorut
      113
      1140
    7. Oon mä susta mustasukkainen

      Mä tunnustan. Olen aina vähän jollain tapaa ollu susta mustis. Tottakai, koska rakastan sua. Mutta mustiskin vain terveellä tavoin. Ihan luonnollista
      Mustasukkaisuus
      150
      984
    8. Sohvi blörf

      Siellä se taas keekoilee kaupungilla ja kuvailee viattomia opiskelijoita instaansa. Kuvaa nyt vaan omaa tissivakoo ja bebaa jätä muut rauhaan ettei t
      Kotimaiset julkkisjuorut
      106
      831
    9. Jättäkää tuo Lumio nyt jo rauhaan!

      Mihinkään tuo avaus katosi? Säälittävää touhua kertakaikkiaan, harvoin tänne mitään kirjoittelen mutta tämä touhu alkaa mennä jo yli hilseen. Hävetkää
      Kauhava
      26
      742
    10. Rakas rakas rakas

      Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Oot kaikkeni sä ihana m
      Ikävä
      65
      664
    Aihe