Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "KOL";
Текущий архив: 2008.09.14;
Скачать: [xml.tar.bz2];

Вниз

проблема с Bitmap.LoadFromFile   Найти похожие ветки 

 
Дмитрий Пырин   (2007-10-22 10:20) [0]

проблема при компиляции под 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


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

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


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

вот весь код полностью (это слегка подчищеный пример из уроков по 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.        


 
Vladimir Kladov ©   (2007-10-22 17:38) [3]

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


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

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


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

не помогло :(


 
Vladimir Kladov ©   (2007-10-27 22:04) [6]

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



Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2008.09.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.039 c
3-1204532945
Ega23
2008-03-03 11:29
2008.09.14
Добавить разом много записей.


9-1153323049
korvin88
2006-07-19 19:30
2008.09.14
блендинг текстур по маске


6-1193124658
Alex_C
2007-10-23 11:30
2008.09.14
Загрузить фаил на сервер


15-1215553340
Маэстро
2008-07-09 01:42
2008.09.14
Вопрос....


15-1216902649
DevilDevil
2008-07-24 16:30
2008.09.14
можно ли как то в опциях Delphi-проекта указать выходное имя *.ex





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский