Не прогружается картинка ( Image)

@Ivanko1993 · Регистрация: 29.05.2012

Студворк — интернет-сервис помощи студентам

Проблема такая, что при открытии нового изображения в программе оно не появляется пока я его не поверну.

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
unit Unit1;
 
interface //Используется для внешних определений модуля, и как скелет класса
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs,jpeg, XPMan, Menus, ComCtrls, // Списки
  Buttons; // Объявляет список модулей (Units), которые будут импортированы.
 
type     // Определяет новую категорию переменной или процесса.
  TForm1 = class(TForm)
    dlgOpenPic1: TOpenPictureDialog;
    img1: TImage;
    xpmnfst1: TXPManifest;
    mm1: TMainMenu;
    mniN1: TMenuItem;
    mniN2: TMenuItem;
    mniN3: TMenuItem;
    mniN4: TMenuItem;
    mniN5: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    TrackBar1: TTrackBar;
    Label1: TLabel;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    SavePictureDialog1: TSavePictureDialog;
    N13: TMenuItem;
    PopupMenu1: TPopupMenu;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    TrackBar2: TTrackBar;
    procedure mniN3Click(Sender: TObject);
    procedure mniN4Click(Sender: TObject);
    procedure mniN5Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
    WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
    procedure N8Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 
  private  //раздел частных объявлений
  public   // раздел общих объявлений
    bmSrc : TPicture; // управляет вызовами соответствующих методов
    bmDest : TBitmap; //определяет класс изображений
  end;
 
var  // раздел объявления переменных
  Form1: TForm1;
 implementation
 
uses  //Объявляет список модулей (Units), которые будут импортированы
  unit2, Rotate, Unit3; // Rotate - это компонент для поворота изображения на определённый градус
 
{$R *.dfm}
 
procedure TForm1.mniN3Click(Sender: TObject); // Открытие изображения
begin
  if dlgOpenPic1.Execute then
  begin
    Img1.Width:=279;  // Сброс зума
    Img1.height:=339;
    TrackBar1.Position := 0;  // Устанока позиции TrackBar1 ноль
    bmSrc.LoadFromFile(dlgOpenPic1.FileName); // Загрузка изображения
    bmDest.Assign(bmSrc.Graphic); //Связывает дескриптор файла с бинарным файлом
  end;
end;
procedure TForm1.mniN4Click(Sender: TObject);
begin
img1.Width:=img1.Width+50;                                 //Увеличиваем длину Image и ширину
img1.Height:=img1.Height+50;
if (Form1.Width-img1.Width) mod 2 = 0 then
img1.Left:=(Form1.Width-img1.Width)div 2 else img1.Left:=(Form1.Width-img1.Width)div 2-1;    //Устанавливаем картинку по центру формы
if (Form1.Height-img1.Height) mod 2 =0 then
img1.Top:=(Form1.Height-img1.Height) div 2 else img1.Top:=(Form1.Height-img1.Height) div 2-1;
end;
 
procedure TForm1.mniN5Click(Sender: TObject);
begin
img1.Width:=img1.Width-50;                                //Уменьшаем длину Image и ширину
img1.Height:=img1.Height-50;
if (Form1.Width-img1.Width) mod 2 = 0 then
img1.Left:=(Form1.Width-img1.Width)div 2 else img1.Left:=(Form1.Width-img1.Width)div 2-1;  //Устанавливаем картинку по центру формы
if (Form1.Height-img1.Height) mod 2 =0 then
img1.Top:=(Form1.Height-img1.Height) div 2 else img1.Top:=(Form1.Height-img1.Height) div 2-1;
end;
 
procedure TForm1.FormResize(Sender: TObject); // Image центруется относительно размеров формы
begin
img1.Left:=(Form1.Width-img1.Width)div 2;
img1.Top:=(Form1.Height-img1.Height) div 2;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
AboutBox.Show; // открытие справки
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
close; // закрытие
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True;
  Label1.Caption := Format('Угол %d', [TrackBar1.Position]); // Устанока label1 в зависимости от позиции TrackBar1
  bmSrc  := TPicture.Create;
  bmDest := TBitmap.Create;
  bmSrc.LoadFromFile('Пикчи/000.jpg'); //загрузка изображения
  bmDest.Assign(bmSrc.Graphic);
  Img1.Picture.Assign(bmDest);   //Связывает дескриптор файла с бинарным файлом
  Form1.PopupMenu := PopupMenu1; //контекстное меню
end;
 
procedure TForm1.FormDestroy(Sender: TObject); // при завершении работы программы:деструкторы free очищают память: bmSrc.Free; bmDest.Free;
begin
  bmSrc.Free;
  bmDest.Free;
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Label1.Caption := Format('Угол %d', [TrackBar1.Position]); // Устанока label1 в зависимости от позиции TrackBar1
  bmDest.Assign(bmSrc.Graphic); // связка 
  RotateBitmap(bmDest, TrackBar1.Position, clbtnFace); //это компонент для поворота изображения на определённый градус.
  Img1.Picture.Assign(bmDest); //Связывает дескриптор файла с бинарным файлом
  Img1.Refresh;
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
TrackBar1.Position:=TrackBar1.Position+45; //  поворот + 45 градусов 
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
TrackBar1.Position:=TrackBar1.Position-45;//  поворот - 45 градусов 
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
TrackBar1.Position:=0;        // Сброс поворотов изображения 
end;
 
 
 
procedure TForm1.N12Click(Sender: TObject);
begin
If SavePictureDialog1.Execute then Img1.Picture.Graphic.SaveToFile(ChangeFileExt(SavePictureDialog1.Filename, '.jpg'));  //Сохранение изображения
end;
 
procedure TForm1.N13Click(Sender: TObject);
begin
aboutbox1.showmodal; //справка
end;
 
procedure TForm1.N15Click(Sender: TObject);
begin
If SavePictureDialog1.Execute then Img1.Picture.Graphic.SaveToFile(ChangeFileExt(SavePictureDialog1.Filename, '.jpg')); //Сохранение изображения
end;
 
procedure TForm1.N16Click(Sender: TObject);
begin
close; //закрытие
end;
 
procedure TForm1.N14Click(Sender: TObject);
begin
  if dlgOpenPic1.Execute then
  begin
    Img1.Width:=279;  // Сброс зума
    Img1.height:=339;
    TrackBar1.Position := 0; // Сброс поворотов изображения
    bmSrc.LoadFromFile(dlgOpenPic1.FileName); //Открытие изображения
    bmDest.Assign(bmSrc.Graphic);//Связывает дескриптор файла с бинарным файлом
  end;
end;
 
 
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 Form1.VertScrollBar.Position := Form1.VertScrollBar.Position - WheelDelta div 4; // Вертикальный скрол бар
 
  if TrackBar2.Focused then Handled := true;
  if ssCtrl in Shift then
  begin
    TrackBar2.Position := TrackBar2.Position + WheelDelta div WHEEL_DELTA;
    img1.Width:=img1.Width + WheelDelta div 4;                                 //Увеличиваем длину Image и ширину
    img1.Height:=img1.Height + WheelDelta div 4;
    img1.Stretch:=True;                                         //Устанавливаем пропорциональность и чтобы изображение было подогнано под размер Image
    img1.Proportional:=True;
    if (Form1.Width-img1.Width) mod 2 = 0 then
    img1.Left:=(Form1.Width-img1.Width)div 2 else img1.Left:=(Form1.Width-img1.Width)div 2-1;    //Устанавливаем картинку по центру формы
    if (Form1.Height-img1.Height) mod 2 =0 then
    img1.Top:=(Form1.Height-img1.Height) div 2 else img1.Top:=(Form1.Height-img1.Height) div 2-1;
  end;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Img1.Width:=279;  // Сброс зума
Img1.height:=339;
 
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); // Подтверждение выхода
begin
  CanClose:=MessageDlg ('Действительно выйти?',mtConfirmation,[mbYes,mbNo],0)=mrYes
end;
 
end.

Может быть проблема тут?

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True;
  Label1.Caption := Format('Угол %d', [TrackBar1.Position]); // Установка label1 в зависимости от позиции TrackBar1
  bmSrc  := TPicture.Create;
  bmDest := TBitmap.Create;
  bmSrc.LoadFromFile('Пикчи/000.jpg'); //загрузка изображения
  bmDest.Assign(bmSrc.Graphic);
  Img1.Picture.Assign(bmDest);   //Связывает дескриптор файла с бинарным файлом
  Form1.PopupMenu := PopupMenu1; //контекстное меню
end;

@FIL · 27.11.2012, 13:48

Может

Delphi
1
Img1.Refresh;

поможет?

@Ivanko1993 · 27.11.2012, 14:11 **[ТС]**

Сообщение от gorfil

Может

Delphi
1
Img1.Refresh;

поможет?

неа=(

@FIL · 27.11.2012, 15:22

Если ты про этот кусок:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.mniN3Click(Sender: TObject); // Открытие изображения
begin
  if dlgOpenPic1.Execute then
  begin
    Img1.Width:=279;  // Сброс зума
    Img1.height:=339;
    TrackBar1.Position := 0;  // Устанока позиции TrackBar1 ноль
    bmSrc.LoadFromFile(dlgOpenPic1.FileName); // Загрузка изображения
    bmDest.Assign(bmSrc.Graphic); //Связывает дескриптор файла с бинарным файлом
  end;
end;

то тут похоже не хватает:

Delphi
1
Img1.Picture.Assign(bmDest);

@Ivanko1993 · 27.11.2012, 15:51 **[ТС]**

Сообщение от gorfil

тут похоже не хватает:

Delphi
1
Img1.Picture.Assign(bmDest);

Спасибо, а не подскажешь что этот код делает?

@FIL · 27.11.2012, 16:59

Передает копирует картинку из bmDest в компонент на форме Img1 и она становится видна.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	27.11.2012, 16:59
	Передает копирует картинку из bmDest в компонент на форме Img1 и она становится видна. 1