From b219c0d5a8b45348fd6e26e373c5c2ef44f1f984 Mon Sep 17 00:00:00 2001 From: m-audio91 Date: Sat, 23 Sep 2017 10:34:59 +0330 Subject: [PATCH] Small cleanups --- fasubrip.lpi | 2 +- umain.lfm | 66 ++++++++++++++++++++++++++-------------------------- umain.pas | 2 +- 3 files changed, 35 insertions(+), 35 deletions(-) diff --git a/fasubrip.lpi b/fasubrip.lpi index c8ecf44..57e71b6 100644 --- a/fasubrip.lpi +++ b/fasubrip.lpi @@ -19,7 +19,7 @@ - + diff --git a/umain.lfm b/umain.lfm index d2ff577..313f1fe 100644 --- a/umain.lfm +++ b/umain.lfm @@ -19,8 +19,8 @@ object FaSubripMain: TFaSubripMain LCLVersion = '1.9.0.0' object Extras: TGroupBox Left = 8 - Height = 201 - Top = 50 + Height = 217 + Top = 51 Width = 417 Align = alTop AutoSize = True @@ -33,14 +33,14 @@ object FaSubripMain: TFaSubripMain ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 181 + ClientHeight = 201 ClientWidth = 413 ParentBidiMode = False ParentShowHint = False TabOrder = 1 object StripHTMLFontTags: TCheckBox Left = 6 - Height = 19 + Height = 21 Hint = 'فعال کردن این گزینه منجر به حذف تگ های و می شود.'#13#10#13#10'این تگ ها در اکثر پلیرهای کامپیوتری عمل می کنند اما پخش کننده های سخت افزاری و'#13#10'گوشی یا مستقیما خود تگ را نشان می دهند یا در بهترین حالت فقط نشان نمی دهند.'#13#10'پس در نتیجه حذفشان ضرری ایجاد نمی کند.' Top = 0 Width = 397 @@ -52,9 +52,9 @@ object FaSubripMain: TFaSubripMain end object StripHTMLStyleTags: TCheckBox Left = 6 - Height = 19 + Height = 21 Hint = 'فعال کردن این گزینه منجر به حذف تگ های Italic ،Bold و Underline مانند و غیره می شود.'#13#10#13#10'این تگ ها در اکثر پلیرهای کامپیوتری عمل می کنند اما پخش کننده های سخت افزاری و'#13#10'گوشی یا مستقیما خود تگ را نشان می دهند یا در بهترین حالت فقط نشان نمی دهند.'#13#10'پس در نتیجه حذفشان ضرری ایجاد نمی کند.' - Top = 19 + Top = 21 Width = 397 BidiMode = bdRightToLeft BorderSpacing.Right = 8 @@ -64,9 +64,9 @@ object FaSubripMain: TFaSubripMain end object ArabicCharsToFarsi: TCheckBox Left = 6 - Height = 19 + Height = 21 Hint = 'با فعال کردن این گزینه حروف ''ك'' و ''ي'' در صورت موجود بودن'#13#10'با نسخه فارسی خودشان جایگزین خواهند شد.'#13#10#13#10'تذکر:'#13#10'اگر مشاهده کردید در نرم افزار پخش کننده تان این دو حرف در زیرنویس خروجی'#13#10'بصورت علامت سوال یا مربع و امثال آن دیده می شوند موقعیت این گزینه را تغییر'#13#10'داده و مجددا امتحان کنید.'#13#10'همچنین برخی فونت ها از حالت فارسی این دو حرف پشتیبانی نمی کنند.'#13#10#13#10'تذکر: هنگامی که با کدگذاری ANSI WINDOWS-1256 خروجی می گیرید این گزینه بطور خودکار'#13#10'غیر فعال می گردد زیرا نسخه فارسی این دو حرف در این کدگذاری در برخی'#13#10'از پخش کننده ها مشکل ساز است!' - Top = 38 + Top = 42 Width = 397 BidiMode = bdRightToLeft BorderSpacing.Right = 8 @@ -76,9 +76,9 @@ object FaSubripMain: TFaSubripMain end object CensorshipPhrases: TCheckBox Left = 6 - Height = 19 + Height = 21 Hint = 'با فعال کردن این گزینه فاسابریپ دسته ای از کلمات و عبارات ناشایست عامیانه فارسی (تقریبا اکثر آنها)'#13#10'را که بطور داخلی برایش تعریف شده سانسور می کند. به این معنی که با چند ستاره ***** جایگزین می کند.'#13#10#13#10'چنانچه نیاز داشته باشید امکان اضافه کردن فایل حاوی عبارات بطور جداگانه و مستقل از این گزینه قرار داده شده'#13#10'که می توانید شخصا اقدام به تعریف عبارت مدنظر خود کنید یا در عین فعال بودن این گزینه، عبارات دیگری را'#13#10'با آن گزینه هدف قرار بدهید.' - Top = 57 + Top = 63 Width = 397 BidiMode = bdRightToLeft BorderSpacing.Right = 10 @@ -88,9 +88,9 @@ object FaSubripMain: TFaSubripMain end object CensorshipExtraPhrases: TCheckBox Left = 6 - Height = 19 - Hint = 'در صورت فعال کردن این گزینه و ارائه دادن یک فایل معتبر حاوی عبارات مدنظرتان فاسابریپ اقدام'#13#10'به سانسور یا جایگزینی آنها می کند.'#13#10'طریقه تهیه این فایل:'#13#10#13#10'مثلا تو سیستم عامل ویندوز'#13#10'نت پد رو باز کنید'#13#10'File > Save As'#13#10'رو بزنید و پائین دیالوگ باز شده'#13#10'Encoding > UTF-8'#13#10'رو انتخاب کنید و در مسیر دلخواه ذخیره کنید'#13#10'بعد عبارات مدنظر خودتون رو هر کدام "در یک خط جدید" وارد کنید و ذخیره کنید و وارد فاسابریپ کنید'#13#10'مثال:'#13#10'عبارت1'#13#10'عبارت2'#13#10'عبارت3'#13#10#13#10'توی لینوکس چون هر توزیع ویرایشگر متن متفاوتی استفاده می کند خودتون پیدا کنید'#13#10'ولی دقت کنید در لینوکس بدون پسوند ذخیره نکنید چون نمی تونید با فاسابریپ بازش کنید'#13#10'همچنین با فرمت فایل متنی ساده باشه نه فایل آفیس و غیره'#13#10#13#10'جایگزینی بجای سانسور:'#13#10'اگر می خواهید عبارتی که اضافه می کنید بجای تبدیل شدن به ***** با چیز'#13#10'دیگری مثلا شکل دیگری از آن عبارت جایگزین بشود کافیست آن را نوشته'#13#10'سپس یک مساوی = نوشته و بعد عبارت جایگزین را بنویسید.'#13#10'مثال:'#13#10'filth=fi**h'#13#10'کثافت=چرک'#13#10#13#10'(نکته: هر لغتی که اول نوشتید با لغتی که بعد از تایپ مساوی نوشتید جایگزین می شود.'#13#10'نگران نمایش راست به چپ عبارات فارسی نباشید. در مثال بالا کلمه'#13#10'filth با fi**h جایگزین می شود و کثافت با چرک)' - Top = 76 + Height = 21 + Hint = 'در صورت فعال کردن این گزینه و ارائه دادن یک فایل معتبر حاوی عبارات مدنظرتان فاسابریپ اقدام'#13#10'به سانسور یا جایگزینی آنها می کند.'#13#10'طریقه تهیه این فایل:'#13#10#13#10'مثلا تو سیستم عامل ویندوز'#13#10'نت پد رو باز کنید'#13#10'File > Save As'#13#10'رو بزنید و پائین دیالوگ باز شده'#13#10'Encoding > UTF-8'#13#10'رو انتخاب کنید و در مسیر دلخواه ذخیره کنید'#13#10'بعد عبارات مدنظر خودتون رو هر کدام "در یک خط جدید" وارد کنید و ذخیره کنید و وارد فاسابریپ کنید'#13#10'مثال:'#13#10'عبارت1'#13#10'عبارت2'#13#10'عبارت3'#13#10#13#10'توی لینوکس چون هر توزیع ویرایشگر متن متفاوتی استفاده می کند خودتون پیدا کنید'#13#10'ولی دقت کنید در لینوکس بدون پسوند ذخیره نکنید چون نمی تونید با فاسابریپ بازش کنید'#13#10'همچنین با فرمت فایل متنی ساده باشه نه فایل آفیس و غیره'#13#10#13#10'جایگزینی بجای سانسور:'#13#10'اگر می خواهید عبارتی که اضافه می کنید بجای تبدیل شدن به ***** با چیز'#13#10'دیگری مثلا شکل دیگری از آن عبارت جایگزین بشود کافیست آن را نوشته'#13#10'سپس یک مساوی = نوشته و بعد عبارت جایگزین را بنویسید.'#13#10'مثال:'#13#10'filth=fi**h'#13#10'کثافت=چرک'#13#10#13#10'(نکته: هر لغتی که اول نوشتید با لغتی که بعد از تایپ مساوی نوشتید جایگزین می شود.'#13#10'نگران نمایش راست به چپ عبارات فارسی نباشید. در مثال بالا کلمه filth با fi**h جایگزین'#10'می شود و کثافت با چرک)' + Top = 84 Width = 397 BidiMode = bdRightToLeft BorderSpacing.Right = 10 @@ -100,9 +100,9 @@ object FaSubripMain: TFaSubripMain end object CensExtraPhrases: TFileNameEdit Left = 6 - Height = 23 + Height = 27 Hint = 'فایل حاوی عبارات اضافی برای حذف یا جایگزینی' - Top = 95 + Top = 105 Width = 397 DialogOptions = [ofReadOnly, ofFileMustExist, ofEnableSizing, ofViewDetail] Filter = 'فایل متنی ساده حاوی عبارات|*.txt;*.dat' @@ -118,19 +118,19 @@ object FaSubripMain: TFaSubripMain end object OutFileEncodingL: TLabel Left = 6 - Height = 15 + Height = 17 Hint = 'با توجه به اینکه اصل فاسابریپ تبدیل زیرنویس به UTF-8 هست'#13#10'تا نیازی به تغییر System Locale نباشد دلیل خاصی'#13#10'برای تغییر این گزینه وجود ندارد مگر اینکه خواسته باشید'#13#10'زیرنویس خروجی را در نرم افزاری یا پخش کننده سخت افزاری'#13#10'باز کنید که مثلا تنها از ANSI پشتیبانی می کند.'#13#10'که برای آن منظور این گزینه قرار داده شده.'#13#10'دو مورد از این نرم افزار ها که به ذهنم می رسد TxtToVobSub و'#13#10'Subtitle Creator هستند.'#13#10#13#10'در مورد UTF-16 هم به همین صورت.' - Top = 118 + Top = 132 Width = 397 Caption = 'کدگذاری حروف فایل خروجی' ParentColor = False end object OutFileEncoding: TComboBox Left = 6 - Height = 23 - Top = 133 + Height = 25 + Top = 149 Width = 397 - ItemHeight = 15 + ItemHeight = 0 ItemIndex = 0 Items.Strings = ( 'UTF-8' @@ -144,9 +144,9 @@ object FaSubripMain: TFaSubripMain end object AppendEncodingToFileName: TCheckBox Left = 6 - Height = 19 + Height = 21 Hint = 'فعال کردن این گزینه صرفا برای شناسایی کدگذاری از نام فایل بعدا توسط خودتان مفید می باشد'#13#10#13#10'مثلا خروجی'#13#10'test.srt'#13#10'در حالت عادی'#13#10'test_FaSubrip.srt'#13#10'می باشد که با فعال کردن این گزینه و یو تی اف 8 بودن کدگذاری انتخابی خروجی می شود'#13#10'test_FaSubripUTF-8.srt' - Top = 156 + Top = 174 Width = 397 BorderSpacing.Bottom = 6 Caption = 'افزودن نام کدگذاری انتخابی به نام فایل خروجی' @@ -157,14 +157,14 @@ object FaSubripMain: TFaSubripMain end object Header: TPanel Left = 0 - Height = 19 + Height = 21 Top = 0 Width = 433 Align = alTop AutoSize = True BevelOuter = bvNone BidiMode = bdRightToLeft - ClientHeight = 19 + ClientHeight = 21 ClientWidth = 433 Color = 4342338 Font.Color = clWhite @@ -174,7 +174,7 @@ object FaSubripMain: TFaSubripMain TabOrder = 2 object Description: TLabel Left = 8 - Height = 15 + Height = 17 Top = 4 Width = 417 Align = alTop @@ -187,8 +187,8 @@ object FaSubripMain: TFaSubripMain end object OpenSubsContainer: TPanel Left = 8 - Height = 25 - Top = 22 + Height = 24 + Top = 24 Width = 417 Align = alTop Alignment = taRightJustify @@ -202,7 +202,7 @@ object FaSubripMain: TFaSubripMain ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 25 + ClientHeight = 24 ClientWidth = 417 Color = clForm Font.Color = 4342338 @@ -211,11 +211,11 @@ object FaSubripMain: TFaSubripMain ParentFont = False TabOrder = 0 object OpenSubs: TButton - Left = 146 - Height = 25 + Left = 150 + Height = 24 Hint = 'با این دکمه زیرنویس (های) خود را بارگزاری کنید.'#13#10'همچنین می توانید از فایل اکسپلورر بکشید (شان) و روی صفحه فاسابریپ رها کنید'#13#10'بعلاوه می توانید بدون باز کردن فاسابریپ، از فایل اکسپلورر بکشید (شان) و روی آیکون فاسابریپ رها کنید'#13#10#13#10'توجه: User Account Control در سیستم عامل ویندوز ممکن است مانع کشیدن و رها کردن بشود!' Top = 0 - Width = 125 + Width = 117 AutoSize = True Caption = 'بازکنید زیرنویس ها را' OnClick = OpenSubsClick @@ -226,8 +226,8 @@ object FaSubripMain: TFaSubripMain end object Footer: TPanel Left = 8 - Height = 0 - Top = 253 + Height = 1 + Top = 270 Width = 417 Align = alTop AutoSize = True diff --git a/umain.pas b/umain.pas index cd1a6aa..368fde2 100644 --- a/umain.pas +++ b/umain.pas @@ -480,7 +480,7 @@ procedure TFaSubripMain.ShowGuide(Sender: TObject); if (i = 0) or (i mod 2 = 0) then begin Labels[i].BorderSpacing.Top := 8; - Labels[i].Font.Height := Canvas.GetTextHeight('AText')*3; + Labels[i].Font.Height := Canvas.GetTextHeight('AText')*2; end; end;