[ goblin @ 13.09.2003. 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
[ morlic @ 18.09.2003. 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;
[ goblin @ 23.09.2003. 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 :)