Промежуток времени

[Ernest027]

Привет всем) Вопрос такой: нужно чтобы с 11:00 до 13:00

label1.font.color:=clred;

. а в остальное время

label1.font.color:=clgreen;

как это сделать?
Спасибо.

делаю так:

if (TimeToStr(Now) >= '08:27:00') and (TimeToStr(Now) <= '08:28:00') then
begin
Form1.sLabel3.UseSkinColor:=false;
Form1.sLabel3.Font.Color:=$00A5FF;

end
else
Form1.sLabel3.UseSkinColor:=true;
end;

не получается(((

[Stilet]

А ты этот код где прописал?

[Ernest027]

в timer'е)

form1.sLabel4.Caption:=FormatDateTime( 'DDDD, dd mmmm yyyy г.', Date);

выводит так "среда, 12 Август 2015 г."
А как вывести "Среда, 12 Августа 2015 г."?

[Stilet]

выводит так "среда, 12 Август 2015 г."
А как вывести "Среда, 12 Августа 2015 г."?

Интересно, это у меня че-то с глазами, или я теряю рассудок? О_о
Мне кажется что эти строки одинаковы? Может пора креститься?

[Ernest027]

а если повнимательнее?)))

[Stilet]

Разница только в первой букве.
Ну сделай ты ее большой.

s:=FormatDateTime( 'DDDD, dd mmmm yyyy г.', Date);
form1.sLabel4.Caption:=AnsiUpperCase(s[1])+copy(s,2,Length(s));

Но зачем??? Ей богу не пойму - это же настройки локали винды.

[Ernest027]

Красивее так)
12 АвгустААААААА 2015 г.

[Stilet]

А-а-а... Ценитель Поллака? Ну что ж. Уважаю. Хотя как по мне Уорхолл интереснее.

[Ernest027]

а как же основной вопрос этой темы решить?

[Stilet]

Я не пойму, что у тебя не получается. Никак не пойму.
Ладно. Толку расспросов - предложу свое:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses    dateutils,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private     bt,et:TTime;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with Label1 do if (Time>bt) and (et<Time) then Color:=clGreen else Color:=clRed;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bt:=EncodeTime(11,00,00,00);
  et:=EncodeTime(13,00,00,00);
  Timer1.Interval:=1000;
end;

end.