Image в KOL

[Lauri]

как реализовать? Буквально 2 дня назад начал работать с КОЛ. Появилась потребностить использовать картинку в форме, как создать и загрузить? Информации именно покартинке не нашёл

[Serge_Bliznykov]

так, навскидку

http://kolmck.net/r_demos.htm


Загрузка битмапов из файлов в run time и отображение их на форме. Чистый KOL без MCK.


Два примера использования рисунка с элементом меню и изменением размера рисунка или элемента меню с целью вместить рисунок полностью. MCK, D5.

Converting bitmap to jpeg.


p.s. в документацию и книжку по KOL не заглядывал, так, чисто поиск гуглом...

[Lauri]

Serge_Bliznykov Спасибо, поизучаю

Ещё в догонку вопрос...Создаю едит, и кнопку, при нажатии на кнопку должен происходить проверку на текст но работает не корректно.

procedure OkClickBtn(Dummy: Pointer; Sender: PControl);
var
edit:Pcontrol;
begin
if edit.text='213' then showmessage('GOOD');
end;

...

//OkButton
buttonok := NewButton( form, 'OK' );
 buttonok.Width := 50;
  buttonok.Height := 25;
  buttonok.Top:= 500;
  buttonok.Left:= 700;
Buttonok.OnClick:= TOnEvent(MakeMethod(nil, @OkClickBtn));
/EDIT
edit:= NewEditBox(form, []);
edit.Width:=200;
edit.Top:= 500;
edit.Left:= 500;

[Lauri]

Не получается загрузить PNG
Делаю всё следующим образом. Картинка просто не отображается. Ни с BMP ни с PNG не получается

procedure DrawPaint( Dummy: Pointer; Sender: PControl; DC: HDC ); 
begin
PNG.Draw(PB.Canvas.Handle,0,0);
end;

procedure OkClickBtn(Dummy: Pointer; Sender: PControl);
begin
 if PB = nil then 
  begin
   PB := NewPaintBox(SBox);
   PB.OnPaint := TOnPaint( MakeMethod( nil, @DrawPaint ) );
  end;
begin
     if PNG = nil then
Png := NewPngObject;
     Png.LoadFromFile('D:\Diagram.png');
     PB.Width := png.Width ;
     PB.Height:= png.Height;
     PB.Show;
     showmessage('pict');
    end;
end;
...

Buttonok.OnClick:= TOnEvent(MakeMethod(nil, @OkClickBtn));

[Lauri]

Никто не подскажет по двух последним вопросам?