root/trunk/Forms/frm_ConverToFBD.pas
Download diff| 470 | 479 | ||
|---|---|---|---|
90 | implementation | 90 | implementation |
91 | 91 | ||
92 | uses | 92 | uses |
93 | IOUtils, | ||
93 | EncdDecd, | 94 | EncdDecd, |
94 | jpeg, | 95 | jpeg, |
95 | pngimage, | 96 | pngimage, |
... | ... | ||
247 | 248 | ||
248 | if FEditorMode then | 249 | if FEditorMode then |
249 | begin | 250 | begin |
250 | FBD.Load(Folder, ExtractShortFileName(FBookrecord.FileName), FBookrecord.FileExt); | 251 | FBD.Load(Folder, TPath.GetFileNameWithoutExtension(FBookrecord.FileName), FBookrecord.FileExt); |
251 | alFBDAuthors.Items := FBD.GetAuthors(atlFBD); | 252 | alFBDAuthors.Items := FBD.GetAuthors(atlFBD); |
252 | with FBD.Publisher do | 253 | with FBD.Publisher do |
253 | begin | 254 | begin |