Скачать: CL | DM;

Может кто знает?   Найти похожие ветки 

← →
АндрейС   (2002-10-04 14:16) [0]

Почему при помещении текста функцией TextOut на контекст кнопки приложение генерирует ОШИБКУ причем "вешая" все, что можно?
ЗАРАНЕЕ СПАСИБО

---

← →
MBo ©   (2002-10-04 14:22) [1]

код?

---

← →
АндрейС   (2002-10-09 17:19) [2]

Пожалуйста...
procedure BrushBut(But: THANDLE);
var DC: HDC;
Rgn: THANDLE;
Rect: TRect;
RecH: integer;
Text: PChar;
Font: HFONT;
begin
GetClientRect(But,Rect);
DC:=GetDC(But);
// Закраска кнопки
DeleteObject(Rgn);
with Rect do
begin
RecH:=abs(Bottom-Top) div 4;
// Вывод текста
GetWindowText(But,Text,50);
Font:=CreateFont(10,6,1,1,FW_NORMAL,0,0,0,ANSI_CHARSET,
OUT_CHARACTER_PRECIS,CLIP_CHARACTER_PRECIS,
DEFAULT_QUALITY,FF_DONTCARE,
"TimesNewRoman");
SetMapperFlags(DC,1);
SetTextColor(DC,clBlue);
SetBkColor(DC,clSilver);
SetTextAlign(DC,TA_CENTER);
SelectObject(DC,Font);
TextOut(DC,4*RecH+4,RecH+4,Text,StrLen(Text));
end;
// Освобождение памяти
ReleaseDC(But,DC);
DeleteObject(Font);
DeleteObject(DC);
end;
ЗАРАНЕЕ СПАСИБО!!!

---

← →
MBo ©   (2002-10-09 17:25) [3]

procedure BrushBut(But: THANDLE);
var DC: HDC;
Rect: TRect;
RecH: integer;
Text: PChar;
Font: HFONT;
begin
GetMem(Text,51);
GetClientRect(But,Rect);
DC:=GetDC(But);
//

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c