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

Вниз

У меня стоит вопрос !!!   Найти похожие ветки 

 
Agent[007]   (2003-03-20 20:49) [0]

Что не так ?

procedure TForm1.Button1Click(Sender: TObject);

var bmp1:TBitMap;
var bmp2:TBitMap;
var i,g:Integer;

begin
bmp1:=TBitMap.Create;
bmp1.LoadFromFile("C:\My_games\dm0.1\bitmaps\brick\bricks.bmp");
image1.Picture.Assign(bmp1);
bmp2 := TBitMap.Create;
for i := 0 to 31 do for g := 0 to 15 do bmp2.Canvas.Pixels[i,g]:= bmp1.Canvas.Pixels[i,g];
image2.Picture.Assign(bmp2);
end;

end.


 
Anatoly Podgoretsky   (2003-03-20 22:43) [1]

Виагры нужно меньше принимать.
Не так сама постановка вопроса.


 
Романов Р.В.   (2003-03-20 23:00) [2]

Размеры bmp2 не заданы


 
Delirium^.Tremens   (2003-03-21 09:19) [3]

Загадка на тему: что не так в этой картинке ;-)

Радуйся, что до сих пор стоИт. Это не будет продолжаться вечно. Пользуйся. :-)


 
Agent[007]   (2003-03-21 14:58) [4]

Допостим есть BMP c белым цветом фона. Есть красивый background.

Вопрос :

Как совместить BMP и background, чтобы белого цвета BMP не выводилось?!


 
Жук   (2003-03-21 15:00) [5]

Transparent:=true;


 
Johnmen   (2003-03-21 15:07) [6]

Это отсюда ?
"У меня вскочил вопрос,
Потекла идея..."

:)))))))


 
Червелицый Злобоглаз   (2003-03-21 15:21) [7]

Госпиталь, в нем лечатся больные, пострадавшие от радиации.
Из одной палаты доносится жалобный стон больного:
- Сестра... сестра...
Медсестре надоело это слушать, она подходит к больному.
- Больной, ну что Вы хотите?
- Сестра, у меня встал!
- Ну вот и очень даже замечательно, радуйтесь, значит Вы идете на поправку.
На следующий день та же картина, те же стоны из палаты.
- Больной, ну что Вы опять хотите?
- Сестра, у меня упал!
- Ну и что? Не век же ему стоять, иногда и отдохнуть надо.
- Так ведь он на пол упал...


 
myor   (2003-03-21 15:54) [8]

штирлиц продолжал стоять на своем...


 
SergeN   (2003-03-21 17:08) [9]

Печально что ?,а не !. Природа пошутила ... :))))))


 
Agent[007]   (2003-03-21 17:23) [10]

Если вам не трудно, то ответьте пожалуйста, как изменить разрешение на 640 X 480 ?! И как создать приложение без строки заголовка ?! Заранее спасибо :)))


 
app   (2003-03-21 17:36) [11]

Отдельный вопрос, отдельная ветка, не устраиваем свалку и моно-ветку


 
Agent[007]   (2003-03-21 19:06) [12]

И ещё: как в люмом месте Image1 разместить BMP1 ?!


 
Kobik   (2003-03-21 19:55) [13]

2Agent[007]
Я чувствую ты совсем недавно на Delphi, раз спрашиваешь такие вещи. Но всю эту муру долго так обьяснять, лучше - купи себе книженцию.


 
Agent[007]   (2003-03-21 20:34) [14]

Я купил, но не нашел того, что мне надо.


 
Agent[007]   (2003-03-22 05:21) [15]

Люди !!! Вам что трудно написать пару строчек ?!
Пожалуйста, ответьте !!!


 
MBo   (2003-03-22 07:15) [16]

Хелп читай
TCanvas.Draw


 
Anatoly Podgoretsky   (2003-03-22 07:22) [17]

Теперь купи еще инструкцию, где написано где что искать


 
Agent[007]   (2003-03-22 14:08) [18]

Одно мне не понятно :
как менять разрешение ?!?!?!


 
Agent[007]   (2003-03-22 16:34) [19]

До меня дошло !!!!

Однако же как крутить вокруг своей оси BMP"шку ???



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

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

Наверх





Память: 0.48 MB
Время: 0.008 c
14-19837
GDBoy
2003-03-20 21:48
2003.04.07
Для тех кто сидел...


7-19903
cih
2003-02-14 13:14
2003.04.07
Форма. На форме TMemo. В нем cmd.


7-19876
shane54
2003-02-12 00:46
2003.04.07
Размер task bar а


3-19464
weak
2003-03-17 15:16
2003.04.07
MSDE+ADO инсталялка


14-19824
Supreme 2
2003-03-19 22:46
2003.04.07
Хочу познать себя...





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