Problem with search.

[BadVariemai]

If open the search menu and then close the programm (without closing search before), next time you open the programm the search menu has only the names (Search in Field and Search for value) and nothing else. The only way to use again the search is to close search menu and the close the programm and restart.

I would like also to put here a proposal. I think it would be better if there was a place in database that we can put whether we have seen the movie or not.
It would be also usefull if it was possible to copy fromone field to another. For example to copy original name to label or the number of the movie to label.

I 'm from Greece so by the way I must say that the Greek translation has some problems...

[antp]

next time you open the programm the search menu has only the names (Search in Field and Search for value) and nothing else.

This is a known bug that happens when using something else than "Office 2000" style for toolbars, and I can't solve it in current version actually. It should be gone in version 4.

I would like also to put here a proposal. I think it would be better if there was a place in database that we can put whether we have seen the movie or not.

You can use one of the field that you do not use currently, or use the checkboxes in the list (Tools -> Preferences -> Movie List, then check option "Checkboxes").
In version 4 I will add fields.

It would be also usefull if it was possible to copy fromone field to another. For example to copy original name to label or the number of the movie to label.

This can be done with a script (select the movies to modify, then Tools -> Scripting). There is a sample called "Move fields" that you can modify.

I 'm from Greece so by the way I must say that the Greek translation has some problems...

Since I do not speak Greek, the only thing that I can say is that you can correct it What kind of problems are there ?

[BadVariemai]

Hello Thank you for the information and congratulation for that very usefull programm.

As for the Greek translation, I'm working on it. I'm editing the *.lng file so soon I'll send it to you in order to replace the other one.

But I have a problem with the suggestion of using the move field.
I'm posting it here. If you thing is better I'll writr to scripts forum.

I want to copy the movie number to the media label.
I've modified original one to the following, but it doens't work. What's the problem?

// SCRIPTING
// Move the value from one field to another
program MoveField;
const
fieldNumber = -1;
fieldMedia = -1;
WholeFieldOnly = False;
begin
if (fieldNumber = -1) or (fieldMedia = -1) then
begin
ShowMessage('Please modify the default value of "SourceField" and "TargetField"');
Error;
end;
SetField(fieldMedia, GetField(fieldNumber));
SetField(fieldNumber, '');
end.

-------------------------------------------

Also I would like to add some information to all movies in the database. (I haven't seen that I can do it by default and now I have 350 movies to modify). I want to name make mediatyp --> Divx, Languages --> English (it's easier to correct only the others) and also Subtitles Greek. What do you think about that?

[antp]

Here is how you had to modify the script :

Code: Select all

// SCRIPTING
// Move the value from one field to another
program MoveField;
const
  SourceField = 0;
  TargetField = fieldMedia;
  WholeFieldOnly = False;
begin
  if (SourceField = -1) or (TargetField = -1) then
  begin
    ShowMessage('Please modify the default value of "SourceField" and "TargetField"');
    Error;
  end;
  SetField(TargetField, GetField(SourceField));
  SetField(SourceField, '');
end.

Just modify the "-1" value of Source & TargetField to the field value that you want. I've put 0 instead of fieldNumber because I do not remember if this name exists (and number field is the field nr 0).

For the other thing (set a value) it is even easier :

Code: Select all

program SetField
begin
  SetField(fieldMediaType, 'Divx');
  SetField(fieldLanguages, 'English');
  SetField(fieldSubtitles, 'Greek');
end.

[badvariemai]

Thank you very much for your answer. It was very helpfull.
Just a question. I don't know how it is but in the previous script (move field) I would like to have a 4 digit number in the medialabel filed. To make it more clear
if the number is 23 I would like with the script in media label to appear 0023
if it's 1 --> 0001
if it's 555 --> 0555
I hope that I make it clear.
Is it easy to be done?
Thanks again.

[antp]

You can try something like that :

Code: Select all

program AddZero
var
  s: string;
begin
  s := GetField(fieldMedia);
  case Length(s) of
    1: s := '000' + s;
    2: s := '00' + s;
    3: s := '0' + s;
  end;
  SetField(fieldMedia);
end;

[Guest]

The last code doesn't work.
It gives me the following message
Script error: MAIN at position 215 (comma expected)

The cursor goes where the | is bellow...
end;
SetField(fieldMedi|a);
end;

Any ideas?


As for the code move-field I wanted to copy not to move so it must be corrected the following...
intead of
SetField(TargetField, GetField(SourceField));
SetField(SourceField, '');

I corrected with this (I'm writting that in case someone else want to the same with me).
SetField(TargetField, GetField(SourceField));
SetField(SourceField, GetField(SourceField));

Thanx a lot again

[antp]

it is SetField(fieldMedia, s);
I forgot the "s"

When you write
SetField(SourceField, GetField(SourceField));
simply do not put anything, since this line is quite useless.
SourceField was replaced by an empty string because it was for "moving" a value from one field to another, not copy it. To copy it just remove the line that clears the source

[BadVariemai]

The problem solved but another came.
Now I took the message
Script error: MAIN at position 224 (period expected)
and the cursor goes to the last en|d;
now what?

[BadVariemai]

As I saw that there is problem with recognising Video CD support I would like to add with a script the standard info for VCDs in order to save some time. It needs only to change the media typ to "Video Cd"
please take a look to the code bellow and tell me where is the wrong? I tried also to use if - then but I got problems again.

Code: Select all

// SCRIPTING 
// For VCD 

var 
  s: string; 
begin 
  s:= GetField(fieldMediaType);
case s:='Video CD'
  SetField(fieldVideoFormat, 'MPEG1/VideoCD');
  SetField(fieldAudioFormat, 'MPEG1/VideoCD'); 
  SetField(fieldResolution, '352x288'); 
  SetField(fieldFrameRate, '25'); 
  SetField(fieldAudioBitrate, '224'); 
  SetField(fieldVideoBitrate, '1150'); 
  end.

[antp]

The problem solved but another came.
Now I took the message
Script error: MAIN at position 224 (period expected)
and the cursor goes to the last en|d;
now what?

The last end should be followed by a "." and not a ";", that's my fault, sorry

About the other script :

Code: Select all

// SCRIPTING
// For VCD

begin
  if GetField(fieldMediaType) = 'Video CD' then
  begin
    SetField(fieldVideoFormat, 'MPEG1/VideoCD');
    SetField(fieldAudioFormat, 'MPEG1/VideoCD');
    SetField(fieldResolution, '352x288');
    SetField(fieldFrameRate, '25');
    SetField(fieldAudioBitrate, '224');
    SetField(fieldVideoBitrate, '1150');
  end;
end.

[Guest]

Thank you very much.
Everything Perfect now.
I own you the corrected GreeK translation.
I hope that I'll send it to you this week.