Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Client charset u titlebaru

[es] :: Pascal / Delphi / Kylix :: Client charset u titlebaru

[ Pregleda: 996 | Odgovora: 2 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

goblin
Milan Aleksic
Finsoft, Analyst Programmer
Beograd

Član broj: 4055
Poruke: 74
*.ptt.yu

Jabber: milanaleksic@gmail.com
ICQ: 53177884


Profil

icon Client charset u titlebaru13.09.2003. u 10:13

Kako, o kako da postignem da mi se u naslovnoj liniji pojavi charset koji ja hocu, bez direktnog preuzimanja ispisivanja teksta na titlebaru? Postoji li neki jednostavniji nacin, jer u ovom slucaju mora da se pazi na sirinu teksta da ne bi doslo do ispisivanja iza sistemskih dugmica, a opet, kako uopste mogu da skapiram koji se font koristi od strane sistema u titlebaru (tako nesto se ne saznaje preko GetSystemMetrics)?????

Pozdrav
www.milanaleksic.net
---
Don't try to impress me... I'm good !
13.09.2003. u 10:13 

morlic
Milos Orlic
Beograd

Moderator
Član broj: 6081
Poruke: 732
*.173.EUnet.yu



Profil

icon Re: Client charset u titlebaru18.09.2003. u 17:48
Evo koda kako da dobijes TFont koji se koristi za naslov forme:


Code:

function GetCaptionFont: TFont;
var ncMetrics: TNonClientMetrics;
begin
  ncMetrics.cbSize := sizeof(TNonClientMetrics);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 
                                 sizeof(TNonClientMetrics),
                                 @ncMetrics, 0);
  Result := TFont.Create;
  Result.Handle  := CreateFontIndirect(ncMetrics.lfCaptionFont);
end;
18.09.2003. u 17:48 

goblin
Milan Aleksic
Finsoft, Analyst Programmer
Beograd

Član broj: 4055
Poruke: 74
*.beotel.net

Jabber: milanaleksic@gmail.com
ICQ: 53177884


Profil

icon Re: Client charset u titlebaru23.09.2003. u 14:10
Hvala... sad sam na odmoru pa ne mogu da zavrsim stvar koju sam poceo u Smederevu (pa ne mogu da na delu proverim kod) ali je bas ovo ono sto sam trazio.
Hvala

P.S. U principu, veoma prakticna i zanimljiva stvar :)
www.milanaleksic.net
---
Don't try to impress me... I'm good !
23.09.2003. u 14:10 

[es] :: Pascal / Delphi / Kylix :: Client charset u titlebaru

[ Pregleda: 996 | Odgovora: 2 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.