unit LabelColorsUnit;
// модуль цветных TLabel версия 0.1
// [email]Alexpac26@yandex.ru[/email] Тольятти 2011
 
interface
uses  SysUtils, StrUtils, StdCtrls, Classes;
 
type
  TLabel = class(StdCtrls.TLabel)
    public
    procedure Colors(s,e,colorr:integer);
    procedure ColorsPos(txt:string; colorr: integer);
    procedure ResetColors;
  end;
 
implementation

function CustomMessageDialog(mess,title:string;  DlgType: TMsgDlgType; buttons: TMsgDlgButtons; Custom : string = ''):integer;
var d: TForm; s:TStringList; i,k:integer;
begin
  d:=CreateMessageDialog(mess,DlgType,buttons);
  s:=TStringList.Create;
  s.Delimiter:=',';
  s.DelimitedText:=Custom;
  if s.Count>0 then begin
    for i := 0 to d.ControlCount - 1 do
      if (d.Controls