delphi - checked? - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

<< < 1 2 > >>

Bruger #5572 @ 12.05.04 21:32

Jeg skriver programmer hvor jeg undrer mig over at denne kode ikke virker:

Bold.Checked := not Bold.Checked;

if Bold.Checked then
Memo1.Font.Style := Memo1.Font.Style + [fsBold]
else
Memo1.Font.Style := Memo1.Font.Style - [fsBold];

Hvad gør jeg galt, den siger hele tiden fejl ved checked, så jeg har vel glemt at tilføje den et sted eller hvad?

Besøg: http://www.interflare.tk

12 svar postet i denne tråd vises herunder
4 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #3275 @ 12.05.04 21:40

1.736

Det er fordi der skal skrives et boolean værdi (true/false). Altså enten CheckBox1.Checked:= true; eller CheckBox1.Checked:= false;

-------------------------------------------------------
Jonas (Decko)
http://www.growyourownshit.com/users/Decko
-------------------------------------------------------

Bruger #206 @ 12.05.04 21:47

252

Jonas --> CheckBox1.Checked := not CheckBox1.Checked; er en gyldig syntax eftersom det er bool'ske værdier...

Din kode:

Kode

procedure TForm1.BoldClick(Sender: TObject); 
var checked:boolean; 
begin 
Bold.Checked := not Bold.Checked; 

if Bold.Checked then 
Editor.Font.Style := Editor.Font.Style + [fsBold] 
else 
Editor.Font.Style := Editor.Font.Style - [fsBold]; 
end;

rettes til

Kode

procedure TForm1.BoldClick(Sender: TObject); 
begin 
//Bold.Checked := not Bold.Checked; 

if Bold.Checked then 
Editor.Font.Style := Editor.Font.Style + [fsBold] 
else 
Editor.Font.Style := Editor.Font.Style - [fsBold]; 
end;

Hvis du i din originale kode, dvs. den jeg ikke rettede, klikker på checkboxen, som er markeret med et flueben. Så vil du fjerne fluebenet. Din kode kommer lige bagefter og sætter den på igen. Derfor virker det ikke...

Casper

[Redigeret d. 12/05-04 21:54:14 af Casper Steinmann]

Bruger #5097 @ 13.05.04 16:29

818

Jeg ville lade vær at skrive det med else. Den irritere mig altid. Og det er sikkert den...:

Skriv ca. sådan (kun efter hovet) i en timer:

if bold.checked = true then
//Det der du vil når den er checked
if bold.checked = false then
//Det der du vil når den ikke er checked...

Det er sværre men er lige så god. Og på den måde undgår du else...

Theis F. Hinz
(Shafh)
Theisf@stofanet.dk

E = MC2

Bruger #3143 @ 15.05.04 12:19

1.965

Jeg ville lade vær at skrive det med else. Den irritere mig altid. Og det er sikkert den...:

Skriv ca. sådan (kun efter hovet) i en timer:

if bold.checked = true then
//Det der du vil når den er checked
if bold.checked = false then
//Det der du vil når den ikke er checked...

Det er sværre men er lige så god. Og på den måde undgår du else...

Theis F. Hinz
(Shafh)
Theisf@stofanet.dk

E = MC2

Hvad er dog ideen i det ??????????? Man skal da skrive så kort og overskueligt som muligt. For så går det også hurtigere.

Bruger #5572 @ 12.05.04 21:45

Det er fordi der skal skrives et boolean værdi (true/false). Altså enten CheckBox1.Checked:= true; eller CheckBox1.Checked:= false;

Igen tak?
Kan du evt. Rette min kode?

procedure TForm1.BoldClick(Sender: TObject);
var checked:boolean;
begin
Bold.Checked := not Bold.Checked;

if Bold.Checked then
Editor.Font.Style := Editor.Font.Style + [fsBold]
else
Editor.Font.Style := Editor.Font.Style - [fsBold];
end;

Besøg: http://www.interflare.tk

Bruger #5572 @ 12.05.04 22:05

Jammen min kode er ikke et flueben, men en knap der kan trykkes ind eller ud (som i en texteditor).

Besøg: http://www.interflare.tk

Bruger #206 @ 12.05.04 22:13

252

dvs. du bruger en toolbar?

Hvis ja, er denne knap som du klikker på, så sat: style = tbsCheck? Hvis ja, så bruger du bare down istedet... ellers så sæt style := tbsCheck;

altså:

Kode

procedure TForm1.BoldClick(Sender: TObject); 
begin 
if Bold.Down then 
  Editor.Font.Style := Editor.Font.Style + [fsBold] 
else 
  Editor.Font.Style := Editor.Font.Style - [fsBold]; 
end;

Casper

[Redigeret d. 12/05-04 22:13:22 af Casper Steinmann]

Bruger #5209 @ 13.05.04 10:33

165

Hva sier feilen?

Mvh
DiZpel

Bruger #5572 @ 13.05.04 15:23

dvs. du bruger en toolbar?

Hvis ja, er denne knap som du klikker på, så sat: style = tbsCheck? Hvis ja, så bruger du bare down istedet... ellers så sæt style := tbsCheck;

altså:
Kode
procedure TForm1.BoldClick(Sender: TObject); 
begin 
if Bold.Down then 
  Editor.Font.Style := Editor.Font.Style + [fsBold] 
else 
  Editor.Font.Style := Editor.Font.Style - [fsBold]; 
end;
Casper

[Redigeret d. 12/05-04 22:13:22 af Casper Steinmann]

Supergodt Casper, men nu er der bare et problem! Når jeg trykker knappen ind bliver alt min tekst fed og når jeg trykker den ud bliver alt min tekst tynd... Sådan skal det helst IKKE være!
Besøg: http://www.interflare.tk

Bruger #206 @ 13.05.04 19:36

252

Supergodt Casper, men nu er der bare et problem! Når jeg trykker knappen ind bliver alt min tekst fed og når jeg trykker den ud bliver alt min tekst tynd... Sådan skal det helst IKKE være!

Bruger du Richedit? Hvis ikke, så smid en richedit istedet for den memo du har.

Hvis du har richedit, så bytter du:

Kode

procedure TForm1.BoldClick(Sender: TObject); 
begin 
if Bold.Down then 
  Editor.Font.Style := Editor.Font.Style + [fsBold] 
else 
  Editor.Font.Style := Editor.Font.Style - [fsBold]; 
end;

ud med:

Kode

procedure TForm1.BoldClick(Sender: TObject); 
begin 
if Bold.Down then 
  RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style +[fsBold]
else 
  RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style +[fsBold];
end;

Jeg er gået ud fra, at den richedit du smed på hedder RichEdit1

Casper

<< < 1 2 > >>

checked?

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler