Эксперт
Покинул форум
Сообщений всего: 4462
Дата рег-ции: Нояб. 2017
Репутация: 585
|
Цитата: Добавить для textout размер шрифта.
Что-то вроде этого. Хз так оно должно быть или нет.
code (Отобразить)CODE:external(VOID, "TextOut", "TextOutA", "Gdi32.dll");
external(VOID, "SetBkColor", "SetBkColor", "Gdi32.dll");
external(VOID, "SetTextColor", "SetTextColor", "Gdi32.dll");
external(INT, "GetDC", "GetDC", "User32.dll");
external(INT, "CreateFont", "CreateFontA", "Gdi32.dll");
external(INT, "SelectObject", "SelectObject", "Gdi32.dll");
external(INT, "DeleteObject", "DeleteObject", "Gdi32.dll");
external(INT, "ReleaseDC", "ReleaseDC", "User32.dll");
char a[30];
strcpy(#a[0], "Текст сообщения");
char b[30];
strcpy(#b[0], "Message Text");
int hdc;
int Font = CreateFont(72, 0, 0, 0, 400, 0, 0, 0, "ANSI_CHARSET", "OUT_CHARACTER_PRECIS",
"CLIP_DEFAULT_PRECIS", "PROOF_QUALITY", "FIXED_PITCH|FF_SWISS", "Arial"+formatic(0)+formatic(0));
loop()
{
hdc=GetDC(0);
SelectObject (hdc, Font);
SetBkColor(hdc, 65280);
SetTextColor(hdc, 255);
TextOut(hdc, 200, 100, address(#a[0]), size(#a[0]));
ReleaseDC(0, hdc);
DeleteObject(hdc);
hdc=GetDC(0);
SelectObject (hdc, Font);
SetBkColor(hdc, 255);
SetTextColor(hdc, 16700000);
TextOut(hdc, 200, 200, address(#b[0]), size(#b[0]));
ReleaseDC(0, hdc);
DeleteObject(hdc);
sleep(1);
}
Ещё неплохо бы messagebox выводить поверх всех окон. |