MyCity » Pascal -> Delphi » Zadatak iz Delfija - formatiranje poruke

Zadatak iz Delfija - formatiranje poruke

Napisano na dan: 18.8.2011

Zadatak iz Delfija - formatiranje poruke
Sledeća strana Pagination

Idi na vrh

Poslao: 18 Avg 2011 00:10
Idi na vrh
offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3898
  • Gde živiš: Novi Sad,Klisa

Zadatak: Treba da napravim GUI kao na slici:



to sam uradio. Treba da podesim dugme "Formatiraj poruku" da kada pritisnem na njega mogu da promenim boju slova,i takodje da mogu da menjam njihov oblik (kurziv,podebljano,podvuceno).
E sad boje sam uspeo da sredim pomocu petlje case
case RgrpBoja.ItemIndex of 0: EdtPoruka.Color:=clRed; 1: edtPoruka.Color:=clBlue   ; 2: edtPoruka.Color:=clGreen ; 3: edtPoruka.Color:=clYellow  ; 4: edtPoruka.Color:=clBlack;

ali stilove nikako ne mogu da promenim.
Stilovi sam morao da "pravim" preko checkBoxa (posto ne postoji nesto kao CheckGroup) i svaki od njih je poseban objekat tako da nemam ideju kako da nateram ovaj kod da proradi (u knjizi u kojoj mi je data vezba imam vec i kod)
EdtPoruka.Font.style:= [fsbold,fsitalic,fsunderline]; i EdtPoruka.Font.Style:=[] {za ponistavanje svih stilova slova}
ali kad god napisem prvi kod desi se da mi slova budu u sva tri oblika, a kada ubacim ovu drugu liniju slova nece da se promene. Kada ih kucam posebno,izbaci mi samo zadnji. (npr ako je zadnji fsBold, slova ce samo biti podebljana nista drugo ne bih mogao da uradim)....
ako bi neko mogao da mi pomogne bio bih mu zahvalan.....



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 18 Avg 2011 00:21
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

Sta se desava ako na klik uradis ovo:
EdtPoruka.Font.style:= [fsbold]; EdtPoruka.Font.style:= [fsitalic];
hoce li biti podebljana i iskosena ili samo iskosena?
Pitam, jer ne znam sintaksu delphi-ja , radio sam nesto bzvz u srednjoj skoli samo.

Ako je podebljana i iskosena, onda ubacis jedan if, i ispitujes za svaki od ta tri checkbox-a da li otkacen ili ne(postoji neki metod za ispitivanje sigurno), ako jeste samo mu dodas taj deo, recimo , ako je otkacen podebljan u tom if-u stavis
EdtPoruka.Font.style:= [fsbold];
i slicno i za druga dva...i mislim da ce raditi...
A pre svega toga ponistis, znaci, na pocetku akcije stavis ovaj deo:
EdtPoruka.Font.Style:=[] {za ponistavanje svih stilova slova}
da ti ponisti sta je u prethodnom formatiranju bilo, pa tek onda stavis ta tri if-a



Poslao: 18 Avg 2011 01:35
Idi na vrh
offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3898
  • Gde živiš: Novi Sad,Klisa

kada ih stavim po tom redosledu oni budu samo iskoseni,a ako idem obrnutim redosledom budu podebljana.

Poslao: 18 Avg 2011 02:31
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

Napisano: 18 Avg 2011 2:26

Onda je jedan nacin, nacin grube sile, da za te tri stavke ispitas 9 kombinacija.
Postoji verovatno elegantnije resenje, ali ne znam kako moze da se na postojeci stil samo doda novi a da se ne izgubi stari...

Dopuna: 18 Avg 2011 2:31

Evo ga nacin za "nadogradnju"
    Canvas.Font.Style := Canvas.Font.Style + [fsBold];
Dakle, mozes samo da opalis tri if-a i ako je otkacen bold, dodas mu samo na prethodno opisan nacin, ako je italic - slicno

Poslao: 18 Avg 2011 14:00
Idi na vrh
offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3898
  • Gde živiš: Novi Sad,Klisa

stavih IF ali
if EdtPoruka.Font.style= [fsitalic] then EdtPoruka.Font.style:=EdtPoruka.Font.style + [fsbold]; EdtPoruka.Font.style:=EdtPoruka.Font.style + [fsunderline]; if EdtPoruka.Font.style= [fsbold] then EdtPoruka.Font.style:=EdtPoruka.Font.style + [fsitalic]; EdtPoruka.Font.style:=EdtPoruka.Font.style + [fsunderline]; if EdtPoruka.Font.style=[fsunderline] then EdtPoruka.Font.style:=EdtPoruka.Font.style + [fsitalic]; EdtPoruka.Font.style:=EdtPoruka.Font.style + [fsbold]; end;
opet se isto desava.... dobijem sva tri....

Poslao: 18 Avg 2011 14:37
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

if EdtPoruka.Font.style= [fsitalic] then
ne proveravas to, los ti je uslov.
Proveravas da li je checkbox otkacen...
If CheckBox1.Checked then
Samo umesto checkbox1 stavi kako ti se zove checkbox za svaki od njih

Poslao: 18 Avg 2011 15:00
Idi na vrh
offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3898
  • Gde živiš: Novi Sad,Klisa

e vidis to mi nije pisalo u knjizi GUZ - Glavom U Zid sad ce da probam Ziveli
RADI Ziveli hvala imenjace Ziveli Ziveli

Poslao: 21 Avg 2011 10:48
Idi na vrh
offline
  • Pridružio: 02 Jul 2008
  • Poruke: 125

Evo kako bih ja to uradio (cbI, cbB, cbU - check boksovi za Kurziv, podebljano i podvučeno):

if cbI.Checked then EdtPoruka.Font.Style := EdtPoruka.Font.Style + [fsitalic] else EdtPoruka.Font.Style:= EdtPoruka.Font.Style - [fsitalic];
if cbB.Checked then EdtPoruka.Font.Style := EdtPoruka.Font.Style + [fsbold] else EdtPoruka.Font.Style:= EdtPoruka.Font.Style - [fsbold];
if cbU.Checked then EdtPoruka.Font.Style := EdtPoruka.Font.Style + [fsunderline] else EdtPoruka.Font.Style:= EdtPoruka.Font.Style - [fsunderline];

MyCity » Pascal -> Delphi » Zadatak iz Delfija - formatiranje poruke

Ko je trenutno na forumu
 

Ukupno su 7164 korisnika na forumu :: 104 registrovanih, 9 sakrivenih i 7051 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: advokat84, Andrija357, as2025, Ba4e, Bane5, bbrasnjo3, Bobrock1, bojan313, bojcistv, boromir, bpop, brufen, Bubimir, bukefal, C-Gun, Centauro, Cirkon, Colt D, Comyymoc, Crazzer, Darko Jovanovic, Deki Duga Devetka, dekiz, del boy, Denaya, Dimitrise93, Djokislav, Djole3621, DonRumataEstorski, Dorcolac, dule10savic, Georgius, Giskard, Gitzherai, GveX, havoc995, HawX, ibssa, Ikica977, invictuss, istokzapad, ivran064, Jeremiah, Jester, jimi_agf, K-1A, Kanader, Kawa26, kinderpingvin, Krin, Kukuvaja, kuntakinte, life, Lotus, Malik, MarkoDzimi, matejman, medaTT, mercedesamg, miki69, Milan A. Nikolic, mile.ilic75, mist-mist, Muki 123, nenomir, niksa517, nnovakis, opt1, Papadubi, pein, radovanstojkov023, Razdroid, Remarqe, repac, Romibrat, rovac, S-lash, sap, Semprini, shlauf, slowhand, Smiljkovich, Sone0883, Spinosa, Srki98, svnedelja, Tamna_strana_Meseca, tomigun, travisrise, trutcina, vathra, Vica1958, vidra boy, VJ, vukan0799, vukdra, x011, xAlex2, zdrebac, zoran77, Zorge, Zrcalo, Zukov, 2001