Шаблоны форм

[Lemo]

1)Вы бы не могли дать ссылку или просто коды выкинуть шаблонов разных форм(вал на форуму уже нашел, но там баг, когда перемешаешь его то перемешаеться контур прямоугольника (самаже обрезаная форма))
2) Как поменять вид или хотябы цвет полосы (Mainform.caption)? по стандарту она синяя=)

[spamer]

2) Для изменения цвета полосы Mainform.caption :

type
  TForm1 = class(TForm)
  private
    procedure MyPaint(var d: TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
  end;


procedure TForm1.MyPaint(var d: TWMNCPaint);
var
  DC: THandle;
  Brush: TBrush;
begin
  DC := GetWindowDC(Handle);
  Brush := TBrush.Create;
  try
    Brush.Color := clRed;
    FillRect(DC, Rect(0,0,Width, 28), Brush.Handle);
    FillRect(DC, Rect(0,0,8, Height), Brush.Handle);
    FillRect(DC, Rect(Width-8,0,Width, Height), Brush.Handle);
    FillRect(DC, Rect(0,Height-8,Width, Height), Brush.Handle);
  finally
    ReleaseDC(Handle, DC);
    Brush.Free;
  end;
end;

[Lemo]

Какой параметр в этом коде отвечает за цвет?
ЗЫ: Спс=)

[spamer]

Сообщение от Lemo

Какой параметр в этом коде отвечает за цвет?
ЗЫ: Спс=)

Brush.Color := clRed;(тут указываете цвет, например Red, Green, Black и тд.)

[Lemo]

А как менять кнопки (свернуть, развернуть и закрыть)?

[spamer]

Сообщение от Lemo

А как менять кнопки (свернуть, развернуть и закрыть)?

А что тебе нада с кнопками сделать???

[Lemo]

1)Ну поменять их вид на более красивый;
2)

type
  TForm1 = class(TForm)
  private
    procedure MyPaint(var d: TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
  end;


procedure TForm1.MyPaint(var d: TWMNCPaint);
var
  DC: THandle;
  Brush: TBrush;
begin
  DC := GetWindowDC(Handle);
  Brush := TBrush.Create;
  try
    Brush.Color := clRed;
    FillRect(DC, Rect(0,0,Width, 28), Brush.Handle);
    FillRect(DC, Rect(0,0,8, Height), Brush.Handle);
    FillRect(DC, Rect(Width-8,0,Width, Height), Brush.Handle);
    FillRect(DC, Rect(0,Height-8,Width, Height), Brush.Handle);
  finally
    ReleaseDC(Handle, DC);
    Brush.Free;
  end;
end;

Цвет действительно меняеться, но каптион даже не видно =((

[Jeni]

Сообщение от Lemo

А как менять кнопки (свернуть, развернуть и закрыть)?

Судя по требованиям, проще сделать форму без заголовка (установить BorderStyle=bsNone), и организовать "заголовок" искусственно - кинуть на форму какую-нибудь панель, закрасить нужным цветом, разместить нужные кнопки и т.д.

[Lemo]

а как моно на панель имейдж кинуть?! Моно на bevel кинуть =)

[Jeni]

Сообщение от Lemo

а как моно на панель имейдж кинуть?!

На TPanel? Точно так же, как и на форму.

Сообщение от Lemo

Моно на bevel кинуть =)

На TBevel кинуть вообще ничего нельзя. Он, как и TLabel не является окном с точки зрения системы.