Har et lille problem, der er noget glat med denne kode ([Error] Unit1.pas(84): Incompatible types: 'TLabel' and 'String'):
var
alinkpxpt, alinkfont, alinkcolor, alinksize, alinkbold: String;
procedure Tlinkstyle.genererClick(Sender: TObject);
begin
kodebox.Lines.Text := '';
if Px.Checked then
alinkpxpt := 'px'
else
alinkpxpt := 'pt';
if boldbox.Checked then
alinkbold := 'bold'
else
alinkbold := 'plain';
// Color
if alinkcolor.Text = '' then
ShowMessage('Du skal huske at skrive noget i:'#13#10'Farve (a:link)')
else
begin
kodebox.SelText := 'a:link {';
kodebox.SelText := 'color: '+alinkcolor.Text+';'#13#10;
end;
// Color
// Font
if alinkfont.Text = '' then
begin
ShowMessage('Du skal huske at skrive noget i:'#13#10'Skrifttype (a:link)');
kodebox.Lines.Text := '';
end
else
kodebox.SelText := 'font-family: '+alinkfont.Text+';'#13#10;
// Font
// Size
if alinksize.Text = '' then
begin
ShowMessage('Du skal huske at skrive noget i:'#13#10'Størrelse (a:link)');
kodebox.Lines.Text := '';
end
else
kodebox.SelText := 'font-size: '+alinksize.Text+alinkpxpt+';'#13#10'font-weight: '+alinkbold+';'#13#10;
end;
// Size
Håber i vil hjælpe