0 / 0 / 2
Регистрация: 11.03.2014
Сообщений: 53
1

Какие то баги в делфи с шапкой

02.06.2014, 21:17. Показов 1105. Ответов 6
Метки нет (Все метки)

Такая проблема программка шифрует текст в картинку бмп,когда пишу текст, выбираю там все, вот такая хрень в шапке появляется текст ,который я писал.
вот скриншоты
Какие то баги в делфи с шапкой


вот сама прога Вложение 406709
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2014, 21:17
Ответы с готовыми решениями:

Какие были баги в играх НХЛ 2013?
У кого какие были баги и глюки в играх НХЛ/КХЛ 2012-2016? У меня в КХЛ не был доступен чемпионат, а...

Есть ли какие-либо баги в .Net 1.1 по сравнению с 1.0?
Имеет ли смысл переходить с NET 1.0 на NET 1.1?

Делфи использование ветвленией какие формы использовать ?
На плоскости задана прямоугольная система координат с осями Х и У.Составить программу которая...

Какие компоненты в Делфи XE7 нужны для вывода ленты новостей?
Доброго времени суток!) Хочу написать приложение под Андроид на Делфи XE7 которое будет показывать...

6
0 / 0 / 2
Регистрация: 11.03.2014
Сообщений: 53
02.06.2014, 21:23  [ТС] 2
прога-.rar вот прога там что то заглючило
0
157 / 300 / 47
Регистрация: 14.08.2012
Сообщений: 2,578
03.06.2014, 11:53 3
Интересно. Неужели на картинке программный код, это и есть текст?
1
0 / 0 / 2
Регистрация: 11.03.2014
Сообщений: 53
03.06.2014, 17:12  [ТС] 4
не на картинке не сам код, просто взял чтобы лучше смотрелось

Добавлено через 1 час 11 минут
саша40, нет это обычная картинка , текст который кодирую не видно на картинке, ты не смог разобраться почему в шапке появляется текст который я пишу?
0
157 / 300 / 47
Регистрация: 14.08.2012
Сообщений: 2,578
03.06.2014, 18:00 5
Лучший ответ Сообщение было отмечено cepera_ как решение

Решение

Цитата Сообщение от cepera_ Посмотреть сообщение
саша40, нет это обычная картинка , текст который кодирую не видно на картинке, ты не смог разобраться почему в шапке появляется текст который я пишу?
Извини. Я думал на картинке. Это потому что меняется свойство Caption у формы. Посмотри где примерно такой код:
Delphi
1
2
Form.Caption:='***';
Caption:='***';
Если меняется, когда происходит запись текста, то события у компонента Memo посмотрите. Если по нажатию кнопок, то событие onClick у них смотрите.
1
0 / 0 / 2
Регистрация: 11.03.2014
Сообщений: 53
03.06.2014, 20:24  [ТС] 6
саша40, вот именно я это делал все, ничего такого нету. Это что то в коде где я запихиваю текст в пиксели
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
procedure TForm1.Button3Click(Sender: TObject);
 
 var ch:char;
i,j,l,x:integer;
 img : TBitmap;
  r,g,b: byte;
  c:tcolor;
begin
  Edit1.text:='3';
  text:=Memo1.Text;
  if memo1.text='' then begin showmessage('введите в поле текст');  end;
  key:=strtoint(edit1.Text);
  if key<3 then
  begin
  key:=3;
  showmessage('минимум 3');
  end;
  Edit2.text:=Edit2.text+' '+inttostr(length(text));
  i:=1;
  x:=1;
  l:=1;
    for j := 1 to length(text) do
     begin
     c:=Image1.Picture.Bitmap.Canvas.Pixels[i,l];
     if RadioButton1.Checked = True then
     begin
      b:=GetBValue(c);
     g:=GetgValue(c);
     r:=ord(text[x]);
     end;
     if RadioButton2.Checked = True then
     begin
      r:=GetRValue(c);
     b:=GetBValue(c);
     g:=ord(text[x]);
     end;
     if RadioButton3.Checked = True then
     begin
      r:=GetRValue(c);
     g:=GetgValue(c);
     b:=ord(text[x]);
     end;
     Image1.Picture.Bitmap.Canvas.Pixels[i,l]:=RGB(r,g,b);
     x:=x+1;
     if i>=Image1.Picture.Width then begin
     l:=l+key;
     i:=1;
     if l>=Image1.picture.height then begin
     showmessage('Достигнута граница изображения');
     exit;
     end;
     end;
     i:=i+key;
 
     end;
 
  showmessage('Успешно зашифровано! запомните уровень скрытности и кол-во символов');
Добавлено через 54 минуты
саша40, саша спасибо кароче не стал париться просто сделал изменение на жту кнопку названия формы. поставил тебе спасибо и лучший ответ
0
157 / 300 / 47
Регистрация: 14.08.2012
Сообщений: 2,578
04.06.2014, 12:52 7
Цитата Сообщение от cepera_ Посмотреть сообщение
саша40, саша спасибо кароче не стал париться просто сделал изменение на жту кнопку названия формы. поставил тебе спасибо и лучший ответ
Мне до сих пор странно, то, что в коде реально нет такого изменения(название формы).
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2014, 12:52
Помогаю со студенческими работами здесь

Определите какие из слов состоят из букв с возрастающими кодами, какие с убывающими и какие из смешанных
Помогите пожалуёста а то мне ваще попа зачёт не поставят( Лаба №3 11. Введите с клавиатуры...

Магазин видеоигр. Что нужно для функционирования магазина. Какие таблицы должны быть, какие запросы и какие отчеты
Я очень сильно запутался и я не могу себе представить, что нужно для функционирования магазина....

Какие из следующих событий являются невозможными, какие - случайными, какие - достоверными
В общем есть задача: В классе учится 10 мальчиков и 20 девочек. Какие из следующих событий...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru