DELPHI Tutorial

Работа со ДИЈАЛОГ компоненти за слики

Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File->NEW Application. После поставување на Главно мени (Main Menu ) од палетата со компоненти Standard со опции Sliki, Otvori, Zapamti, Resetiraj и Izlez и една компонента Image од палетата со компоненти Additional, потоа се поставуваат два дијалози од палетата со компоненти Dialogs и тоа Dialogs и тоа OpenPictureDialog и
SavePictureDialog.

На опцијата Otvori се впишува следниот код

openpicturedialog1.Execute;                                                                        //активирање на дијалог прозорец за отворање
if openpicturedialog1.FileName<>'' then                                                        //контрола ако е избрана слика
    image1.Picture.LoadFromFile(openpicturedialog1.FileName);                     //полнење на слика во Image1

На опцијата Zapamti се впишува следниот код

savepicturedialog1.Execute;                                                                       //активирање на дијалог прозорец за памтење
if Image1.Picture.Graphic = nil then                                                            //ако немаме што да запомниме (ако нема отворено слика)
    ShowMessage('Nemate slika za pamtenje!')
else
    if savepicturedialog1.FileName<>'' then                                                   //Ако имаме име за документот - сликата
        image1.Picture.SaveToFile(savepicturedialog1.FileName);                    //да ја запамти

На опцијата Resetiraj се впишува следниот код

Image1.Picture.Graphic := nil;

На опцијата Izlez се впишува следниот код

form1.Close;

PS. Овој начин на пабота подржува работа со слики со наставки bmp,ico, wmf итн. Ако сакате работа со JPG и JPEG тогаш
во делот USES се дополнува JPEG.