avl

← →
_Avenger_ (2002-08-22 19:49) [0]

Приветствую уважаемые мастера и не только!
Вот написал небольшую библиотеку
http://www.netcrack.by.ru/avl.rar (6kb)
и возникли некоторые вопросы:
1. Как изменить шрифт на контроле?
2. Как обрабатывать события (напр. нажатия на кнопки) ?
3. Возможно ли менять стиль окна после создания?
Может кто-нить сможет мне помочь?
А также укажите на ошибки если они есть..или может
быть можно сделать проще?

← →
Gandalf (2002-08-23 16:05) [1]

Не качается :(
>1. Как изменить шрифт на контроле?
Control.Font.Assign(MyFont);

>2. Как обрабатывать события (напр. нажатия на кнопки) ?
OnMessage... OnEvent

>3. Возможно ли менять стиль окна после создания?
Возможно.
Form.Style:=...;
Form.StyleEx:=...;

>Может кто-нить сможет мне помочь?
Пиши - поможем.

← →
Avenger__ (2002-08-23 20:46) [2]

Я же спрашивал как это сделать исходя из того что есть у меня...а не с из того что есть в кол...

← →
Avenger__ (2002-08-23 20:53) [3]

http://www.netcrack.by.ru/avl.rar
буквы некоторые на руском были....... :)

← →
Gandalf (2002-08-24 13:32) [4]

>Вот написал небольшую библиотеку
Посмотрел... Прости меня, конечно еще рано говорить. Но пока это ровно 6Кб Бесполезного кода. Ты сделал некую - причем неудачную надстройку над KOL. Зачем? Ведь стало ничуть не легче.
Пока (дальше незнаю, но пока точно) ты все испортил. И я не пойму зачем. ну зачем делать IntToStr - когда есть Int2Str. А если и делать зачем через Val? Val очень сильная функция - она и Real берет. Это я просто для примера, их там много.

Я понимаю что клевета не критика (,а грязь из лужи не краска из палитры художника),но это все таки критика. И заметь здоровая. Не обижайся. Если хочешь реалино помочь и есть потенциал - напиши пару конпонентов - например для сети. Их нехватает, а судя по тематике сайта (твоего) - это по адресу. DIXI - я сказал.

Не хотел тебя обидеть - извини если так получилось.

← →
Avenger__ (2002-08-24 14:20) [5]

Какие именно компоненты интересуют?

← →
Gandalf (2002-08-24 14:38) [6]

Посмотри (в этом форуме) вопрос:
Кому чего в KOLnMCK НЕ хватает?

← →
Avenger__ (2002-08-24 14:43) [7]

Ну может поможешь всеже сделать реакцию на клик?
Я посмотрю что смогу...

← →
Gandalf (2002-08-24 15:09) [8]

Но можно так:

var
OldCompWndProc: function(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;

implementation

var
wclass: twndclass;
hinst: hWnd;

function CompWindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;
begin
// Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
OldCompWndProc(hWnd,Msg,wParam,lParam);
case Msg of
WM_LBUTTONDOWN : ShowMessage("Component Clicked!");
end;
end;

//---
function NewButton(Parent:TCtrl;Caption:String):TCtrl;
begin
result.handle:=CreateWindow("BUTTON",PChar(Caption),
WS_CHILD or WS_VISIBLE, 70,70,75,25,Parent.Handle,0,Hinstance,nil);
@OldCompWndProc:=Pointer(SetWindowLong(result.handle,GWL_WNDPROC,DWord(@CompWindowProc)));
end;

Но помоему ты зря силы тратишь - есть KOL. Есть ACL - то, что ты делаешь ближе (по моему) к ACL.

Береги здоровье.

avl Найти похожие ветки