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

Вниз

Скинообразная форма непрямоугольногоя   Найти похожие ветки 

 
Dmitry_04   (2005-02-02 15:24) [0]

Я делаю программу со скинообразной и непрямоугольной формой... Форма у меня прорисовывается по картинке вот как:

var
regn, tmpRegn: integer;
x, y: integer;
begin
regn := CreateRectRgn(0, 0, Form1.ClientWidth, Form1.ClientHeight);
for x := 1 to Image1.Width do
for y := 1 to Image1.Height do
if Image1.Picture.Bitmap.Canvas.Pixels[x-1, y-1] = clSilver then
 begin
 tmpRegn := CreateRectRgn(Image1.Left+x-1, Image1.Top+y-1, Image1.Left+x, Image1.Top+y);
 CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
 DeleteObject(tmpRegn);
 end;
SetWindowRgn(Form1.handle, regn, true);

т.е. вырезает цвет clSilver(серый). А вопрос заключается в следующем: не вызерается форма по цвету почему-то если изображение расстынуто (Stretch=true). Что в таком случае делать?


 
Dmitry_04   (2005-02-02 17:09) [1]

Неужели никто не знает как это сделать?


 
Dmitry_04   (2005-02-02 17:53) [2]

Еще один небольшой вопросик по теме... Как обратно вернуть форму в прямоугольный вид?


 
Dmitry_04   (2005-02-02 20:49) [3]

Я вроде как сначала понял в чем дело, Image1.Picture.Bitmap.Canvas.Pixels[x-1, y-1] поменял на Image1.Canvas.Pixels[x-1, y-1] и всеравно не работает...:(


 
Dmitry_04   (2005-02-03 02:11) [4]

Почему никто не пишет? :((( Помогите пожалуйста! я заметил вот что еще: условие

if Image1.Canvas.Pixels[x-1, y-1] = clSilver then

определяет все остальные точки черным цветом после реального размера фотографии в Imag-е... несмотря на то что оно расстянуто... Пробовал на Form1.Canvas но это не работает в событии OnCreate и OnShow. Сработало когда я чисто для интереса кинул на форму кнопку и при нажатии на нее... Но увы мне нужно при запуске программы это...:( Есть ли какойнибудь еще способ определения цвета определенной точки в расстянутом Image?


 
Kerk ©   (2005-02-03 04:04) [5]

Dmitry_04   (02.02.05 15:24)
Скинообразная форма непрямоугольногоя


Ну прям цитата из энциклопедии по ботанике :)


 
nnm   (2005-02-03 13:25) [6]

Почему? :)



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

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

Наверх




Память: 0.45 MB
Время: 0.038 c
4-1105121060
Oddin
2005-01-07 21:04
2005.02.20
Процессор


1-1107354934
Dmitry_04
2005-02-02 17:35
2005.02.20
Перетаскивание формы за Image


3-1106226601
sten
2005-01-20 16:10
2005.02.20
выделение цветом строки в DBGrid


1-1107534746
hamster
2005-02-04 19:32
2005.02.20
Вопрос по Turbo Pascal


6-1102353214
Zahar
2004-12-06 20:13
2005.02.20
Как узнать адрес DNS-сервера???





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