1. Pascal / Говнокод #6592

    +147

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
with ARichEdit do
begin
SelStart := Length(Text);
SelAttributes.Color := AColor;
SelAttributes.Size := 8;
SelAttributes.Name := 'MS Sans Serif';
Lines.Add(AText);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AddColoredLine(RichEdit1, 'Govnokoder уебок', clRed);
AddColoredLine(RichEdit1, 'Govnocoder уебок', clGreen);
end;

    говнокодер уебак разными цветами

    Запостил: megaruliz, 07 Мая 2011

    Комментарии (1) RSS

    Добавить комментарий