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

Вниз

как бмп проявить   Найти похожие ветки 

 
Alik   (2004-01-05 19:58) [0]

создаю
var
imag: Tbitmap;
form1.create(...);
begin
imag:=Tbitmap.Create;
imag.picture.loadfromfile("c:\1.bmp"); и нету его, и чме это лучше чем просто кинуть на форму имаг1 и написать image1.picture.loadfromfile("c:\1.bmp");


 
Юрий Федоров   (2004-01-05 20:01) [1]

form1.create(...);
странный код. Сомневаюсь, что это и задумано

imag.picture.loadfromfile
Это не откомпилируется


 
YuRock   (2004-01-05 20:26) [2]

Ничем, просто так (не совсем так) иногда удобно писать. А иногда удобнее и imag.bitmap.loadfromfile


 
YuRock   (2004-01-05 20:28) [3]

В догонку - вернее, "image1.picture.loadfromfile("c:\1.bmp");"


 
Mihey   (2004-01-05 20:49) [4]

Надо:

...
var Bmp: Tbitmap; // переменная
...
Bmp := TBitmap.Create; // создаём объект
Bmp.LoadFromFile("c:\1.bmp"); // грузим файл
Form1.Canvas.Draw(0, 0, Bmp); // рисуем на канве форме
...
Bmp.Free; // освобождаем память
...


 
Alik   (2004-01-05 21:00) [5]

var
bit : Tbitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
bit:=tbitmap.create;
bit.loadfromfile("c:\bg.bmp");
form1.canvas.draw(0,0,bit);
bit.free;
end;
и нечего не показываеться


 
Mihey   (2004-01-05 21:12) [6]

Вот ты сам посуди, что наваял. Рисуешь на форме, когда она создаётся. Надо:

procedure TForm1.FormPaint(Sender: TObject);
var bit: Tbitmap;
begin
bit:=tbitmap.create;
bit.loadfromfile("c:\1.bmp");
form1.canvas.draw(0,0,bit);
bit.free;
end;



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

Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
3-49455
Andriy Tysh
2003-12-16 15:46
2004.01.16
Возвратить значение COMPUTE


1-49539
z.Jenya
2004-01-02 17:24
2004.01.16
ListView


3-49386
Patrick
2003-12-22 09:21
2004.01.16
Настройка Oracle.


1-49522
edicon
2004-01-03 02:16
2004.01.16
BMP в ICO


14-49681
Goblin
2003-12-26 12:15
2004.01.16
В паскале нет функции копирования файлов?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский