Kolor paska tytulowego

0

W jaki sposob zmienic kollor paska tytulowego dla poszczegolnego okna mojej aplikacjii??
Najlepiej w formie gradient.

0

Ni da sie... Ustaw BorderStyle formatki na bsNone, pozniej na formatke wrzuc TPanel i daj my align na alTop...

0

a mi sie chyba zdaje ze to sie da tylko ze nie wiem w kotrej ksiazce do delphi to bylo, jak porzycze ja od kolegi to napsize, ale nie obiecuje :]

0

Sprawdź archiwalne tematy, tam kiedyś zadawałem takie pytanie i jest konkretna odpowiedź, o ile pamiętam i chyba nawet jest link do specjalnego komponentu. :-)

0

Jezeli chcesz zrobic to szybko i bez kodu to uzyj komponentu (jest takowy na 100% na palecie JEDI)

0

Jezeli chcesz zrobic to szybko i bez kodu to uzyj komponentu (jest takowy na 100% na palecie JEDI)

Jak juz kozystamy z dodatkowych komponentow to polecam komonent z pakietu Transpear XP... ladnie wyglada...

0

Możesz sobie zadeklarować taką prcoedurę:

procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
ACanvas: TCanvas;
begin
inherited;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do
begin
Brush.Color := clActiveCaption;
Font.Name := 'comic sans ms';
Font.Size := 12;
Font.Color := clwhite;
Font.Style := [fsItalic, fsBold];
TextOut(0, 0, ' Some Text');
end;

finally
ReleaseDC(Form1.Handle, ACanvas.Handle);
ACanvas.Free;
end;
end;

Jednak to się czasem trochę dziwnie zachowuje :-/

1 użytkowników online, w tym zalogowanych: 0, gości: 1