| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

проблема с Bitmap.LoadFromFile [WinCE, Lazarus]

Дмитрий Пырин ©   (2007-10-22 10:20:00) 

проблема при компиляции под WinCE под win32 работает нормально.
вот такой кусок кода:


Procedure OpenPic ;
begin
if PB = nil then
 begin
  PB := NewPaintBox(SBox);
  PB.OnPaint := TOnPaint( MakeMethod( nil, @DrawPaint ) );
 end;
  if BMP = nil then
   begin
    Bmp := NewBitmap( 0, 0 );
    Bmp.LoadFromFile('pic1.bmp');
    PB.Width := Bmp.Width ;
    PB.Height:= Bmp.Height;
   end;
end;


использую
kolce_rev205

---

Vladimir Kladov   (2007-10-27 22:04:00) [1]

так все-таки проведите тест именно для битмапа. У вас слишком много неизвестных в уравнении.

---

Дмитрий Пырин   (2007-10-27 21:35:00) [2]

не помогло :(

---

Yury Sidorov   (2007-10-23 15:23:00) [3]

Добавь PB.Show;после создания паинтбокса.
То, что без PB.Show оно работает под win32 это чистая случайность.
Для всех контролов, которые создаются если родитель виден нужно вызывать Show;, иначе они не будут видны.

---

Vladimir Kladov   (2007-10-22 17:38:00) [4]

Не слишком сложно (и скролбокс здесь, и выравнивание). Проверить только загрузку битмапа - сразу после загрузки сделать SaveToFile.

---

Дмитрий Пырин   (2007-10-22 10:41:00) [5]

вот весь код полностью (это слегка подчищеный пример из уроков по KOL)


program BMP_test;

uses
 windows,
 messages,
 kol;
var
Form,
pTop,
PB,
buOpen,
SBox:pControl;
bmp: pBitmap;

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

///////////////////////////////////////////////////////////
Procedure OpenPic ;//( Dummy : Pointer; Sender : PControl );
begin
if PB = nil then
 begin
  PB := NewPaintBox(SBox);
  PB.OnPaint := TOnPaint( MakeMethod( nil, @DrawPaint ) );
 end;
  if BMP = nil then
   begin
    Bmp := NewBitmap( 0, 0 );
    Bmp.LoadFromFile('pic1.bmp');
    PB.Width := Bmp.Width ;
    PB.Height:= Bmp.Height;
   end;
end;
//////////////////////////////////////////////////////////

begin
Applet := NewApplet('BMP test');
Form := NewForm(Applet,'BMP test');

// -------- -----------------------------
pTop := NewPanel(Form,esRaised). SetAlign(caTop);
pTop.Height := 35;

buOpen := NewButton(pTop,'show').SetAlign(caLeft);
buOpen.OnClick := TOnEvent( MakeMethod( nil, @OpenPic ) );
SBox := NewScrollBoxEx(Form,esLowered).SetAlign(caClient);
// -------------------------------------------------------
run(Applet);
end.        


---

Дмитрий Пырин   (2007-10-22 10:38:00) [6]

сама программа нормально компилируется, и запускается, но  отображение битмапа не работает.
хотя при перекомпиляции под win32 всё работает отлично :(

---

Наверх