Zitat von
Christian Seehase:
Moin Rebugger,
gehört zu dem, was Du da dann machen willst auch das setzen der Eigenschaft Checked?
Ne, gehört es nicht !
Hab leider noch ein Anderes Problem:
Delphi-Quellcode:
function SaveSyntax(): String;
var
tmp_string: String;
begin
tmp_string := ColorToString(ColorVordergrund.Color) + ',' +
ColorToString(ColorHintergrund.Color) + ',';
if StilFett.Checked = TRUE then
tmp_string := tmp_string + '1,'
else
tmp_string := tmp_string + '0,';
if StilKursiv.Checked = TRUE then
tmp_string := tmp_string + '1,'
else
tmp_string := tmp_string + '0,';
if StilUnterstrichen.Checked = TRUE then
tmp_string := tmp_string + '1,'
else
tmp_string := tmp_string + '0,';
if StilDurchgestrichen.Checked = TRUE then
tmp_string := tmp_string + '1'
else
tmp_string := tmp_string + '0';
MessageDlg(tmp_string, mtInformation, [mbok],0);
result := tmp_string;
end;
Er sagt mir dauernd:
[Fehler] properties_unit.pas(238): Undefinierter Bezeichner: 'ColorVordergrund'
[Fehler] properties_unit.pas(238): ')' erwartet, aber Bezeichner 'Color' gefunden