Mam 2 problemy:
- Mam komponent Image i za pomocą OpenPictureDialog ładuje do niego obrazek:
procedure TForm2.Button2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;
I teraz pojawia się problem: komponent ma rozmiary 32x32. Jeśli załaduje np. obrazek 128x128 albo jakiś większy to nie wyświetli się. Jak załadowany obrazek automatycznie zmniejszyć do 32x32, tak żeby było go widać?
- Mam ListBox. Za pomocą przycisku i OpenDialog ładuje do niego listę plików:
procedure TForm2.Button5Click(Sender: TObject);
begin
if OpenDialog1.Execute then ListBox2.Items.Add(sOpenDialog1.FileName);
end;
Dodaje mi całą ścieżkę do pliku na listę. Teraz jak ścieżka jest dosyć długa to nie widać jej całej w ListBoxie. Jak zrobić scrollbar poziomy, żeby można było przesunąć i zobaczyć?