XCV81
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
// Заполняем структуру TWndClassEx
with Wc do
begin
style := CS_HREDRAW or CS_VREDRAW;
cbSize := Sizeof( Wc );
lpfnWndProc := @WindowProc; //указатель на оконную процедуру
cbClsExtra := 0; //Выделенная память, используемая программой по своему усмотрению.
cbWndExtra := 0; //Выделенная память, используемая программой по своему усмотрению.
hInstance := hInstance; //описатель экземпляра приложения
hbrBackground := COLOR_BTNFACE+1; //цвет фона формы.
lpszClassName := WndClass; //имя класса создаваемого объекта
end;
// Регистрируем класс в системе
RegisterClassEx( Wc );
//Создаём окно
Wnd := CreateWindowEx ( 1, WndClass, WndCaption, WS_SYSMENU or WS_MINIMIZEBOX or WS_SIZEBOX or WS_MAXIMIZEBOX, (GetSystemMetrics(0) - (GetSystemMetrics(0) Div 2)) div 2, (GetSystemMetrics(1) - (GetSystemMetrics(1) Div 2)) div 2, GetSystemMetrics(0) Div 2, GetSystemMetrics(1) Div 2, 0, 0, hInstance, nil);
SendMessage(Wnd, WM_SETICON, 1, LoadIcon(HInstance, 'MAINICON')); //иконка приложения
// Показываем окно программы
ShowWindow( Wnd, SW_SHOWNORMAL );
// Создаём элементы окна
GetWindowREct(Wnd,R);
Buttons := CreateWindowEx( WS_EX_STATICEDGE, 'Button', PAnsiChar('Обновить'), BS_DEFPUSHBUTTON or WS_VISIBLE or WS_CHILD, 10, R.Bottom-R.Top-60, R.Right-R.Left-30, 25, Wnd, 101, hInstance, nil );
hRichDll := LoadLibrary('Riched20.dll');
RichEdit1 := CreateWindowEx (WS_EX_STATICEDGE,'RichEdit20W','',WS_VISIBLE or WS_VSCROLL or WS_HSCROLL or WS_CHILD or ES_AUTOVSCROLL or ES_WANTRETURN or ES_MULTILINE, 10, 10, R.Right-R.Left-30, R.Bottom-R.Top-80,Wnd,0,Hinstance,nil);
|
