procedure TFormUpload.LoadSettings; var Ini: TIniFile; ThumbRValue,ThumbGValue,ThumbBValue: Integer; begin //HUSK AT SLETTE DE KONSTANTER DU HAR LAVET DIN NØD Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) ); try //Thumbs //ImageThumb.Width := Ini.WriteInteger( 'Thumb', 'Width', 160); //ImageThumb.Height := Ini.WriteInteger( 'Thumb', 'Height', 120); ComboBoxThumbFont.Text := Ini.ReadString( 'Thumb', 'FontName', 'Times New Roman'); ComboBoxThumbSize.Text := Ini.ReadString( 'Thumb', 'FontSize', '12'); EditThumbText.Text := Ini.ReadString( 'Thumb', 'FontText', PhotoText); CheckBoxThumbBold.Checked := Ini.ReadBool( 'Thumb', 'FontStyleBold', false); CheckBoxThumbItalic.Checked := Ini.ReadBool( 'Thumb', 'FontStyleItalic', false); CheckBoxThumbUnderline.Checked := Ini.ReadBool( 'Thumb', 'FontStyleUnderline', false); CheckBoxThumbStrikeOut.Checked := Ini.ReadBool( 'Thumb', 'FontStyleStrikeOut', false); ThumbRValue := Ini.ReadInteger( 'Thumb', 'FontColorRed', 0); ThumbGValue := Ini.ReadInteger( 'Thumb', 'FontColorGreen', 0); ThumbBValue := Ini.ReadInteger( 'Thumb', 'FontColorBlue', 0); RadioButtonThumbPNG.Checked := Ini.ReadBool( 'Thumb', 'PNG', false); ThumbPNGPath := Ini.ReadString( 'Thumb', 'PNGPath', ''); //HUSK - RGB To color //REAL finally Ini.Free; end; end;