Da i Ne u MessageDlg-u?

Da i Ne u MessageDlg-u? 02.02.2006. u 11:46 · pre 252 meseca #1

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!

Potpis

ex Strog

http://www.zeussoftware.rs

Re: Da i Ne u MessageDlg-u? 02.02.2006. u 12:21 · pre 252 meseca #2

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!

Potpis

ex Strog

http://www.zeussoftware.rs

Re: Da i Ne u MessageDlg-u? 02.02.2006. u 13:39 · pre 252 meseca #3

Napravi je, stvarno bi bilo lepo da imamo tako nesto

Potpis

Laravel Srbija.

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

Re: Da i Ne u MessageDlg-u? 02.02.2006. u 16:18 · pre 252 meseca #4

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.

Re: Da i Ne u MessageDlg-u? 02.02.2006. u 18:16 · pre 252 meseca #5

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

.

Potpis

ex Strog

http://www.zeussoftware.rs

Re: Da i Ne u MessageDlg-u? 02.02.2006. u 22:51 · pre 252 meseca #6

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

.

Potpis

ex Strog

http://www.zeussoftware.rs

TestDll.rar163.61k

Re: Da i Ne u MessageDlg-u? 03.02.2006. u 03:48 · pre 252 meseca #7

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.

Re: Da i Ne u MessageDlg-u? 03.02.2006. u 10:08 · pre 252 meseca #8

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" ).

Potpis

ex Strog

http://www.zeussoftware.rs

Re: Da i Ne u MessageDlg-u? 03.02.2006. u 15:13 · pre 252 meseca #9

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';

Re: Da i Ne u MessageDlg-u? 04.02.2006. u 13:59 · pre 252 meseca #10

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....

Re: Da i Ne u MessageDlg-u? 04.02.2006. u 15:10 · pre 252 meseca #11

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

Potpis

Laravel Srbija.

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

Forum kao aplikacija na telefonu

Srodne teme