Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2012, 21:51   #1
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию Winapi цвет label

Hello!!!Пишу тут инф.ленту для плеера все почти готово но мне надо поменять цвет label наоборот. Привожу код
Код:
procedure showinflen(inf:string);
var ScreenDC:hdc;
screenX,i:integer;
window:TWndClassEx;
Mwindow,label1: HWND;
Mmsg: MSG;

// Ïðîöåäóðà îáðàáîòêè ñîîáùåíèé
function WindowProc (wnd: HWND; msg: integer; wparam: WPARAM; lparam: LPARAM):LRESULT;STDCALL;
begin
case msg of
WM_Destroy:
begin
PostQuitMessage (0);
Result := 0;
Exit;
end;
WM_CTLCOLORSTATIC: 
                    begin 
                            SetTextColor(WParam, 0);
                            SetBkColor(wParam, RGB(255, 255, 255)); 
                          end; 
 else
Result := DefWindowProc(wnd,msg,wparam,lparam);
end;
end;

// Ðèñòðàöèÿ êëàññà îêíà
begin
window.cbSize := sizeof (window);
window.style := CS_HREDRAW or CS_VREDRAW;
window.lpfnWndProc := @WindowProc;
window.cbClsExtra := 0;
window.cbWndExtra := 0;
window.hInstance := HInstance;
window.hIcon := LoadIcon (0,IDI_APPLICATION);
window.hCursor := LoadCursor (0,IDC_ARROW);
window.hbrBackground:=2;
window.lpszMenuName := nil;
window.lpszClassName := 'Main_Window';
RegisterClassEx (window);
// Ñîçäàíèå îêíà íà îñíîâå ñîçäàííîãî êëàññà
Mwindow := CreateWindowEx(WS_EX_TOOLWINDOW,'Main_Window','First_WinAPI_Programm', WS_POPUP,100,100,300,300,0,0,Hinstance,nil);
// Ïîêàçàòü ñîçäàííîå îêíî
Label1:=CreateWindow('STATIC',pchar(inf),WS_VISIBLE or WS_CHILD or WM_SETTEXT,10,10,60,23,Mwindow,0,hInstance,nil);
SHOWWINDOW (Mwindow,SW_Show);
SHOWWINDOW (Label1,SW_Show);
ScreenDC:=GetDC(0);
screenX:=GetDeviceCaps(ScreenDC,HORZRES);
setwindowpos(Mwindow,HWND_TOP,0,0,screenX,80,SWP_SHOWWINDOW);
setwindowpos(Label1,HWND_TOP,round(screenX/2),0,100,20,SWP_SHOWWINDOW);
UpdateWindow(Mwindow);
SetWindowLong(Mwindow , GWL_EXSTYLE, GetWindowLong(Mwindow , GWL_EXSTYLE) or WS_EX_LAYERED or WS_EX_TOOLWINDOW);
for i:=0 to 150 do begin
SetLayeredWindowAttributes(Mwindow , 0, i, LWA_ALPHA);
sleep(30);
end;
SetLayeredWindowAttributes(label1 , 0, 255, LWA_ALPHA);
UpdateWindow(Mwindow);
sleep(3000);
for i:=150 downto 0 do begin
SetLayeredWindowAttributes(Mwindow , 0, i, LWA_ALPHA);
sleep(30);
end;
end;
гугл не помог)))код написан методом copypaste))Спасибо
Кольша вне форума Ответить с цитированием
Старый 20.02.2012, 09:35   #2
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

help me please
Кольша вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Dev C++ WinApi Преобразовать цвет точки экрана в HTML код. kachkarvv Софт 1 08.08.2012 12:41
Цвет кнопки,Delphi WinApi red-eye Win Api 0 08.01.2012 21:49
Цвет времени на Label krikaved Общие вопросы Delphi 2 10.03.2010 20:36
Каким образом можно изменять цвет фона и цвет шрифта в Label? jungle Win Api 17 21.09.2009 00:38
Вопрос по label. Как сделать так чтобы label была прозрачной. Lonix Компоненты Delphi 2 01.04.2007 06:23