Делаю графопостроитель, который должен работать по принципу Paint'a (теже инструменты). У меня несколько вопросов:
Как сделать, что бы по пикчербоксу можно было перемещать перекрестие линий (для сверки координат0, чтобы эти линии не оставляли следов на пикчербоксе?
Как сохранить в картинку не весь пикчербокс а н.р. его какую-то часть?
Помогите, плииииз...
Типа Paint'a
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 13
• Страница 1 из 1
- SeT
- Постоялец
-
- Сообщения: 362
- Зарегистрирован: 29.12.2004 (Ср) 13:11
Типа Paint'a
SeT » 19.02.2006 (Вс) 13:49
01000100
Причиняет боль 0010
Виртуальная любовь 00100
Индустрия снов 0010
Причиняет боль 0010
Виртуальная любовь 00100
Индустрия снов 0010
- tyomitch
- Пользователь #1352
-
- Сообщения: 12822
- Зарегистрирован: 20.10.2002 (Вс) 17:02
- Откуда: חיפה
tyomitch » 19.02.2006 (Вс) 14:35
SeT писал(а):не, курсор не подойдёт. нужно чтобы линии по всей длине были, до осей координат
Рисунок храни в свойстве Picture, поверх него рисуй линии. Когда потом вызовешь Cls -- рисунок останется, а линии сотрутся.
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 19.02.2006 (Вс) 14:38
Могу предложить:
а) подождать и присоединиться к развитию редактора AltPaint
б) http://www.google.com/search?client=ope ... 8&oe=utf-8
а) подождать и присоединиться к развитию редактора AltPaint
б) http://www.google.com/search?client=ope ... 8&oe=utf-8
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- SeT
- Постоялец
-
- Сообщения: 362
- Зарегистрирован: 29.12.2004 (Ср) 13:11
SeT » 19.02.2006 (Вс) 14:51
А как рисунок сохранить с Picture? Я ж на нём гафик строю. линии графика должны оставаться, а вот линии так сказать наводки оставаться не должны...
01000100
Причиняет боль 0010
Виртуальная любовь 00100
Индустрия снов 0010
Причиняет боль 0010
Виртуальная любовь 00100
Индустрия снов 0010
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 19.02.2006 (Вс) 14:54
Ну ёклмн...
Ты мой пост читал? По ссылке ходил? VB Paint (исходники полноценного граф. редактора) смотрел?
Ты мой пост читал? По ссылке ходил? VB Paint (исходники полноценного граф. редактора) смотрел?
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- Andrey Fedorov
- Член-корреспондент академии VBStreets
- Сообщения: 3287
- Зарегистрирован: 21.05.2004 (Пт) 9:28
- Откуда: Москва
Re: Типа Paint'a
Andrey Fedorov » 20.02.2006 (Пн) 16:46
SeT писал(а):Как сделать, что бы по пикчербоксу можно было перемещать перекрестие линий (для сверки координат0, чтобы эти линии не оставляли следов на пикчербоксе?
Тут все примитивно - возьми два контрола Line (горизонтальную и вертикальную), положи их на свой рисунок и перемещай сколько хочешь.
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...
- Бяка
- Бывалый
-
- Сообщения: 219
- Зарегистрирован: 21.09.2005 (Ср) 21:28
Бяка » 23.02.2006 (Чт) 0:06
по вопросу 1 кидаеш Line2 и Line1 на Picture1 и Text1 и TextRGB(Text2)
и вот этот код который я только что аж 5минут писал
куда?
если на диск как бмп то вот
если просто изменения в пикчурсе то
и вот этот код который я только что аж 5минут писал
- Код: Выделить всё
Private Sub coord(x As Single, y As Single, Visib As Boolean)
Dim Pixel As Long, RCoord As Long, GCoord As Long, BCoord As Long
Line1.Visible = Visib
Line2.Visible = Visib
'это линии
Line1.x1 = Picture1.ScaleLeft
Line1.x2 = Picture1.ScaleWidth
Line1.y1 = y
Line1.y2 = y
Line2.y1 = Picture1.ScaleHeight
Line2.y2 = Picture1.ScaleTop
Line2.x1 = x
Line2.x2 = x
Text1.Text = CStr(Fix(x)) & "," & CStr(Fix(y)) ' это координаты
Pixel = Picture1.Point(x, y)
RCoord = Pixel Mod 256
GCoord = ((Pixel And &HFF00) / 256) Mod 256
BCoord = (Pixel And &HFF00) \ 256 \ 256
TextRGB.Text = CStr((RCoord)) & "," & CStr((GCoord)) & "," & CStr((BCoord)) ' это цвет тоцки под курсором
End Sub
А как рисунок сохранить с Picture?
куда?
если на диск как бмп то вот
- Код: Выделить всё
Call SavePicture(Picture1.Image, "c:\голая тётка.bmp")
если просто изменения в пикчурсе то
- Код: Выделить всё
Picture1=Picture1.Image
Как сохранить в картинку не весь пикчербокс а н.р. его какую-то часть?
- Код: Выделить всё
BitBlt Picture1.hDc, CoordLeft, CoorTop, CoorW, CoorH, Picture2.hDc, 0, 0, vbSrcCopy ' где CoordLeft, CoorTop, CoorW, CoorH это координаты куска рисунка
Call SavePicture(Picture2.Image, "c:\сиська.bmp")
Сообщений: 13
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 69