[es] - Da i Ne u MessageDlg-u?

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Da i Ne u MessageDlg-u?

^{02.02.2006. u 10:46 - pre 221 meseci}

Ovo me muci vec par dana i nikako ne mogu da nadjem resenje... Srki_82 mi je objasnjavao teorijski sta bih trebao da uradim, ali sam ja izgleda jos "zelen" da bih to odradio kako treba

, pa sam poceo da trazim jednostavnije resenje, a to je neku komponentu koja bi mi ovo odradila...

E sad pitanje je da li neko zna za neku komponentu koja bi mi ovo odradila, a takodje ako imate i parce koda koje bi mi ovo odradilo bez komponente moze i tako nesto da dodje u obzir

.

Prevrnuo sam co torry i ne mogu da verujem da to niko nije uradio do sada ili samo ja ne trazim na pravom mestu.

A, da... Toliko sam se raspisao, a nisam ni rekao sta mi u sustini treba osim onog sturog naziva teme

. Treba mi da mi na prozoru MessageDlg-a umesto recimo Warning pise Upozorenje i da mi na dugmicima pise Da i Ne umesto Yes i No.

Unapred se zahvaljujem na pomoci!

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Da i Ne u MessageDlg-u?

^{02.02.2006. u 11:21 - pre 221 meseci}

Eto... Ja uveknesto pitam, pa onda uspem da resim sve kako treba

...

Evo koda, za slucaj da zatreba jos nekome pa da ne lupa glavu kako da odradi to ( ovo u sustini nije bas to sto sam ja rekao, ali vrsi posao, tj. kreira jednu formu koja igra ulogu tog dialoga, ali krajnji korisnik ne primecuje razliku

Code:
use Dialogs;

.........

procedure TForm1.Button1Click(Sender: TObject);
var
  Dlg: TForm;
  Rslt: Integer;
begin
  Dlg := CreateMessageDialog('Da li ste sigurni da zelite da izvrsite brisanje?', mtWarning,
    [mbYes, mbNo, mbCancel]);
  { change the messagedlg caption }
  Dlg.Caption := 'Upozorenje!';
  {change the button texts }
  TButton(Dlg.FindComponent('Yes')).Caption := 'Da';
  TButton(Dlg.FindComponent('No')).Caption := 'Ne';
  TButton(Dlg.FindComponent('Cancel')).Caption := 'Odustajem';
  Rslt := Dlg.ShowModal;
  Case Rslt of
    2: ShowMessage('Odustajem od ovoga :)!');
    6: ShowMessage('Da, definitivno zelim!');
    7: ShowMessage('Pa, ipak necu :D!');
  end
end;

Uzivajte u Custom dijalogu

.

*******EDIT*********

Evo sad sam se setio da nisam dao Integer kodove koji odgovaraju kojem dugmetu ( mada bi to svi nasli bez problema u Helpu kao sto sam i ja upravo uradio

):

OK = 1
CANCEL = 2
ABORT = 3
RETRY = 4
IGNORE = 5
YES = 6
NO = 7
CLOSE = 8
IDHELP = 9
TRYAGAIN = 10
CONTINUE = 11

Eto, sada se sa ovim kodovima moze napraviti i jedna lepa komponentica, sto cu verovatno ovih dana i da odradim pa cu onda da okacim ovde i da niko vise nikada nema ovih problema

.

Pozz!

_{[Ovu poruku je menjao Strog dana 02.02.2006. u 12:28 GMT+1]}

_{[Ovu poruku je menjao Strog dana 02.02.2006. u 12:32 GMT+1]}

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
195.252.99.*

Sajt: https://avramovic.info

+46 Profil

Re: Da i Ne u MessageDlg-u?

^{02.02.2006. u 12:39 - pre 221 meseci}

Napravi je, stvarno bi bilo lepo da imamo tako nesto

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina

+7 Profil

Re: Da i Ne u MessageDlg-u?

^{02.02.2006. u 15:18 - pre 221 meseci}

Ovo je bas elegenatno, ali primenljivo samo na Yes, No, Ignore, Yes to all, i slicne dijaloge.

Drugo resenje - mozes da prevedes Consts.pas i DBConsts.pas (zapravo sve *consts.pas), prekompajliras i sve sto si preveo ces imati u programu.

Trece resenje je runtime zamena resurasa ali je komplikovana i moze da se radi samo na resursima koji poticu is ovih *Consts.pas fajlova.

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Consts {mora da se ukljuci}, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('asdf', mtError, [mbOK, mbYesToAll, mbNo, mbNoToAll, mbIgnore], 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  tmpInt : integer;
  NewText1, NewText2: string;
begin
  NewText1 := 'asdfasdf';
  NewText2 := 'zxcvzxcv';
  VirtualProtect(@SMsgDlgOK, sizeof(PResStringRec), PAGE_EXECUTE_READWRITE, @tmpInt);
  PResStringRec(@SMsgDlgOK).Identifier := Integer(PChar(NewText1));
  VirtualProtect(@SMsgDlgOK, sizeof(PResStringRec), tmpInt, @tmpInt);
  VirtualProtect(@SMsgDlgYesToAll, sizeof(PResStringRec), PAGE_EXECUTE_READWRITE, @tmpInt);
  PResStringRec(@SMsgDlgYesToAll).Identifier := Integer(PChar(NewText2));
  VirtualProtect(@SMsgDlgYesToAll, sizeof(PResStringRec), tmpInt, @tmpInt);
end;

end.

Cetvrto resenje je upotreba API funkcija za zamenu resurasa (Srki_82 ih je naveo u slicnoj raspravi, pretrazi forum). Ovim funkcijama menjas vec kompajliran program i po meni nije prakticno.

Peto i najkompletnije resenje (a i moj favorit) je instalacija srpskog interfejsa.

_{[Ovu poruku je menjao obucina dana 02.02.2006. u 16:22 GMT+1]}

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.231.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Da i Ne u MessageDlg-u?

^{02.02.2006. u 17:16 - pre 221 meseci}

E pa ovo poslednje resenje jedino ne dolazi u obzir

. Ja nekako ne mogu ni u ludilu da se navikenm na srpski interface, a jos ako neko instalira cirilicnu verziju i pozove me da mu nesto odradim dodje mi da se obijem

... Nije mi dovoljno sto vidim "Nova>Fascikla" vec to moram da gledam na cirilici

.

U svakom slucaju ovo sto sam ja naveo mi sasvim vrsi posao, tako da ga za sada ne menjam posto mi ni za sta osim tih dijaloga nije ni bilo potrebno... Uskoro ce i komponenta biti, samo da stignem kuci sa posla posto sam danas nesto zaglavio ovde i ne zna se kada cu kuci

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Da i Ne u MessageDlg-u?

^{02.02.2006. u 21:51 - pre 221 meseci}

Evo ga napokon i nesto opipljivo sa moje strane

...

Napravio sam ipak dll umesto komponente, ali to nema ni veze. Dll ima samo jednu proceduru za sada i to je CustomDialog a parametara ima malo vise od obicnog MessageDlg-a, ali zato daje custom poruke

. Ubacio sam uz dll i programce koje pokazuje kako se koristi dll i koji su sve parametri, a samo naglasavam da za sada dll radi samo sa Yes, No i Cancel dugmicima posto sam vec dosta umoran i mrzelo me da obradim sve varijante, ali to cu uraditi ovih dana ( necu biti par dana kod kuce tako da necu moci odmah to da odradim ). Za sada se moraju uneti svi parametri sto se tice custom poruka za dugmice, ali cu to odraditi da ne bude tako, pa se strpite jos koji dan ako vas bude nerviralo da stavljate umesto parametra samo '' ako ne koristite to dugme... Samo jos da napomenem posto nigde u kodu nisam:

Parametar Poruka1 je za dugme Yes, Poruka2 je za dugme No, a Poruka3 je onda logicno za Cancel

.

Nadam se da ce ovo bar jednom coveku biti od koristi

.

Uzivajte

.

_{[Ovu poruku je menjao Strog dana 02.02.2006. u 22:54 GMT+1]}

ex Strog

http://www.zeussoftware.rs

Prikačeni fajlovi

TestDll.rar - 163.61k

Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina

+7 Profil

Re: Da i Ne u MessageDlg-u?

^{03.02.2006. u 02:48 - pre 221 meseci}

Citat:

Strog: Ja nekako ne mogu ni u ludilu da se navikenm na srpski interface

Potrebno je nedelju dana za navikavanje (iz mog i tudjih iskustava). Ako je u pitanju pocetnik, odmah.

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
*.net
Via: [es] mailing liste

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Da i Ne u MessageDlg-u?

^{03.02.2006. u 09:08 - pre 221 meseci}

Ma koristio sam ja to kad se tek pojavilo i to samkoristio mesec dana
sigurno... Ali sam sve vreme imao osecaj da to nije to. Uh kako sam odahnuo
kad sam uninstall-irao taj dodatak :).

Ma ja ni na Linuxu ne mogu da koristim nas jezik, ne znam zasto, jednostavno
mi ne prija da tako radim. Svaka cast svim tim ljudima koji rade na
lokalizaciji, ali ja ipak ne verujem da cu ikada da je koristim ( do duse
nikad ne reci nikad, ali to je moje misljenje sa danasnjeg gledista na
"problem" ).

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

cacafaca
Nemanja Simovic
Beograd, Voždovac

Član broj: 49511
Poruke: 174
*.adsl.sezampro.yu.

ICQ: 68999229

+18 Profil

Re: Da i Ne u MessageDlg-u?

^{03.02.2006. u 14:13 - pre 221 meseci}

Imas dosta korisnih stvari pa i to na delphi.about.com. Pogledaj malo. Inace sve te konstatne se drze delphijevom poddirektorijumu consts.pas. Njega kopiras u svoj dir, posto ne valja da se menja u prvobitonom diru. Onda dodas taj falj u search path u project options i to je to. Koristis klasičan MessageDlg.

Evo šta sam ja menjao:

SMsgDlgWarning = 'Upozorenje';
SMsgDlgError = 'Greska';
SMsgDlgInformation = 'Informacija';
SMsgDlgConfirm = 'Potvrda';
SMsgDlgYes = '&Da';
SMsgDlgNo = '&Ne';
SMsgDlgOK = 'Prihvati';
SMsgDlgCancel = 'Odustani';
SMsgDlgHelp = '&Pomoc';
SMsgDlgHelpNone = 'Nema pomoci';
SMsgDlgHelpHelp = 'Pomoc';
SMsgDlgAbort = '&Prekini';
SMsgDlgRetry = '&Ponovo';
SMsgDlgIgnore = '&Ignorisi';
SMsgDlgAll = '&Sve';
SMsgDlgNoToAll = 'N&e za sve';
SMsgDlgYesToAll = 'Da za &sve';

_{[Ovu poruku je menjao cacafaca dana 03.02.2006. u 15:16 GMT+1]}

Odgovor na temu

sapet
Novi Beograd
sluzbenik
Srbija

Član broj: 25598
Poruke: 150
*.ptt.yu.

Sajt: sasapetrovic.bravesites.c..

+2 Profil

Re: Da i Ne u MessageDlg-u?

^{04.02.2006. u 12:59 - pre 221 meseci}

Ovo je prava stvar cacafaca. Tako da moze lako da se ostvari i svoja specificnost u svim programima.
Interesuje me unosenje putanje u search path u project options. Da li je neophodno, posto radi i bez toga,
a ako jeste sta bi bilo u slucaju premestanja programa na drugi direktorijum? Meni radi. Nije mi bas jasno....

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
195.252.99.*

Sajt: https://avramovic.info

+46 Profil

Re: Da i Ne u MessageDlg-u?

^{04.02.2006. u 14:10 - pre 221 meseci}

Mislim da ne moras da dodajes u search path jer Delphi pored Search (Library) path gleda i folder aplikacije.

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu