글씨로 글자체 변경하기

Question

나는 델파이 7을 사용하고 있습니다.

탭과 관련된 페이지에 내용이 있음을 나타냅니다. 페이지의 dbgrid에 내용이있는 경우 캡션 뒤에 권자가오고 n은 상자로 표시되는 문자로 표시됩니다. 이제 'Paient History'라는 캡션 대신 'Patient History'+ 조금 꽉 찬 상자를 읽게됩니다.

글꼴 유형이 wingding 인 기호 'n'이므로 캡션 중간에서 글꼴 유형을 변경하고 캡션 끝에 작은 문자로 채워진 문자 n을 추가하려고합니다.

Tabsheet.caption := 'Patient History ' + changefonttypetowinding + 'n'. 

Doable?

Answer 1

당신이 여기에 영토를 그려 넣으려는 사람은 테마를 고려해 보면 잘하는 것이 쉽지 않습니다. 당신이 그 길로 간다면 Wingdings에 귀찮게하지 않을 것입니다. 상자를 칠하면 TCanvas.FillRect이됩니다.

저는 개인적으로 유니 코드 델피를 살펴보고 U + 2587 (▇) 또는 그 친구 중 한 명을 사용합니다.

Answer 2

유니 코드 사용 버전의 델파이를 사용하지 않으므로 David가 지적한대로 소유자 드로잉 또는 "ANSI"문자 세트로 제한됩니다. (제 제안은 델파이 2009+로 업그레이드하는 것입니다. 유니 코드는 디지털 세상에서 가장 좋은 일입니다. 유니 코드를 사용하면 127 또는 255 대신에 수만개의 문자 (이론적으로, 글꼴 당)를 얻을 수 있습니다. U-232C 벤젠 링 : ⌬)

이제 업그레이드가 불가능하다고 가정 해 봅시다. 그런 다음, 내가 너라면, 나는이 목적을 위해 역사적인 "표준 문자", 즉 별표 (*)를 사용할 것이다. 나는 당신의 경우에 이것을 매우 강력하게 추천한다.

검은 색 사각형을 원할 경우, 소유자 도면을 사용해야합니다. 다음과 같이 할 수 있습니다.

// Please don't do this -- see comments below 
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; 
    TabIndex: Integer; const Rect: TRect; Active: Boolean); 
const 
    Padding = 8; 
    SqSize = 6; 
var 
    capt: string; 
    r: TRect; 
begin 
    capt := TTabControl(Control).Tabs[TabIndex]; 
    r := Rect; 
    r.Left := r.Left + Padding; 
    DrawText(Control.Canvas.Handle, capt, length(capt), r, DT_SINGLELINE or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS); 
    r.Left := r.Right - Padding - SqSize; 
    r.Right := r.Left + SqSize; 
    r.Top := (r.Bottom - r.Top - SqSize) div 2; 
    r.Bottom := r.Top + SqSize; 
    FillRect(Control.Canvas.Handle, r, GetStockObject(BLACK_BRUSH)); 
end; 

그러나 시각적 테마가 사용 중지됩니다. 그것은 두려운 것입니다! 제발 하지마!