مشکل RightToLeft با ActiveReport

[soheil_programmer]

با سلام

من چندین برنامه با ActiveReport طراحی کردم و حالا در هنگام استفاده از جملات ترکیبی انگلیسی و فارسی و بدلیل نداشتن خاصیت RightToLeft در TextBox ها و Labelهای ActiveReport برام مشکل پیش اومده لطفاً کمک بفرمائید.

[hrj1981]

دوست عزيز با سلام
تا نسخه 1314 اكتيو رييورت اين مشكل حل نشده باقي مانده است انشاا... با مكاتبات دوستان اين نقيصه نرم افزار رفع گردد.

[soheil_programmer]

دوست عزيز با سلام
تا نسخه 1314 اكتيو رييورت اين مشكل حل نشده باقي مانده است انشاا... با مكاتبات دوستان اين نقيصه نرم افزار رفع گردد.

سلام

خود من در حال مکاتبه هستم مثلاً!! اما جواب نمیدن نامردها!!

[ASKaffash]

سلام
قبلا در یک تاپیک روشی را با سورس با استفاده از یک Activex قرار دادم لطفا با جستجو پیدا کنید ولی سورس ActiveX به قرار ذیل است :
(نام فایل هم LabelExtended بود)

Public Sub Font(FontName As String, FontSize As Single, FontBold As Boolean)

With UserControl.Label1.Font

        .Name = FontName

        .Size = FontSize

        .Bold = FontBold

End With

End Sub

Public Sub Alignment(Value As AlignmentConstants)

UserControl.Label1.Alignment = Value

End Sub

Public Property Get Caption() As String

Caption = UserControl.Label1.Caption

End Property

Public Property Let Caption(Value As String)

UserControl.Label1.Caption = Value

PropertyChanged "Caption"

End Property

Public Property Get ForeColor() As OLE_COLOR

ForeColor = UserControl.Label1.ForeColor

End Property

Public Property Let ForeColor(Value As OLE_COLOR)

UserControl.Label1.ForeColor = Value

PropertyChanged "ForeColor"

End Property

Public Property Get BackColor() As OLE_COLOR

BackColor = UserControl.Label1.BackColor

End Property

Public Property Let BackColor(Value As OLE_COLOR)

UserControl.Label1.BackColor = Value

PropertyChanged "BackColor"

End Property

Private Sub UserControl_Resize()

With UserControl.Label1

     .Top = 0

     .Left = 0

     .Width = UserControl.ScaleWidth

     .Height = UserControl.ScaleHeight

End With

End Sub

Private Sub UserControl_InitProperties()

If Not UserControl.Ambient.UserMode Then

   Me.Caption = UserControl.Name

   Me.ForeColor = 0

   Me.BackColor = RGB(255, 255, 255)

End If

Call UserControl_Resize

End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Me.Caption = PropBag.ReadProperty("Caption", "")

Me.ForeColor = PropBag.ReadProperty("ForeColor", UserControl.ForeColor)

Me.BackColor = PropBag.ReadProperty("BackColor", UserControl.BackColor)

End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("Caption", Me.Caption, "")

Call PropBag.WriteProperty("ForeColor", Me.ForeColor, UserControl.ForeColor)

Call PropBag.WriteProperty("BackColor", Me.BackColor, UserControl.BackColor)

End Sub

[soheil_programmer]

سلام
قبلا در یک تاپیک روشی را با سورس با استفاده از یک Activex قرار دادم لطفا با جستجو پیدا کنید ولی سورس ActiveX به قرار ذیل است :
(نام فایل هم LabelExtended بود)

Public Sub Font(FontName As String, FontSize As Single, FontBold As Boolean)

With UserControl.Label1.Font

        .Name = FontName

        .Size = FontSize

        .Bold = FontBold

End With

End Sub

Public Sub Alignment(Value As AlignmentConstants)

UserControl.Label1.Alignment = Value

End Sub

Public Property Get Caption() As String

Caption = UserControl.Label1.Caption

End Property

Public Property Let Caption(Value As String)

UserControl.Label1.Caption = Value

PropertyChanged "Caption"

End Property

Public Property Get ForeColor() As OLE_COLOR

ForeColor = UserControl.Label1.ForeColor

End Property

Public Property Let ForeColor(Value As OLE_COLOR)

UserControl.Label1.ForeColor = Value

PropertyChanged "ForeColor"

End Property

Public Property Get BackColor() As OLE_COLOR

BackColor = UserControl.Label1.BackColor

End Property

Public Property Let BackColor(Value As OLE_COLOR)

UserControl.Label1.BackColor = Value

PropertyChanged "BackColor"

End Property

Private Sub UserControl_Resize()

With UserControl.Label1

     .Top = 0

     .Left = 0

     .Width = UserControl.ScaleWidth

     .Height = UserControl.ScaleHeight

End With

End Sub

Private Sub UserControl_InitProperties()

If Not UserControl.Ambient.UserMode Then

   Me.Caption = UserControl.Name

   Me.ForeColor = 0

   Me.BackColor = RGB(255, 255, 255)

End If

Call UserControl_Resize

End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Me.Caption = PropBag.ReadProperty("Caption", "")

Me.ForeColor = PropBag.ReadProperty("ForeColor", UserControl.ForeColor)

Me.BackColor = PropBag.ReadProperty("BackColor", UserControl.BackColor)

End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("Caption", Me.Caption, "")

Call PropBag.WriteProperty("ForeColor", Me.ForeColor, UserControl.ForeColor)

Call PropBag.WriteProperty("BackColor", Me.BackColor, UserControl.BackColor)

End Sub

ببخشید این روش برای نرم افزار گزارش گیر ActiveReport است؟؟؟

من که از مثال شما سر در نیاوردم؟!

[sajjad_k62]

با سلام هر كس راهنمايي مي خواد لطف كنه با شماره من تماس بگيره 09173124311

[کرکی]

راه حل:
https://barnamenevis.org/showthread.p...=1#post1369331
موفق باشید

[zeroone01]

سلام
بنظرم ActiveReport نسبت به CrystalReport خیلی خیلی بهتره.اگرچه این برنامه نسبت به CrystalReport چند تا ضعف داره اما به برنامه نویس این امکان رو میده که با کد نویسی، مشکل رو حل کنه
متاسفانه یکی از مشکلات ActiveReport، متون فارسی هستش. مثلا راست به چپ کردن جملات فارسی ممکن نیست و یا در خروجی Pdf ،فونتها از هم جدا و بر عکس نمایش داده میشن
من یه کامپوننت طراحی کردم که تا حدودی این مشکلات رو حل میکنه
یه فایل به اسم ActiveLabel.ocx که باید در System32 ویندوز کپی بشه و مثل سایر کامپوننتها رجیستر بشه
واسه استفاده از این ابزار باید در محیط طراحی گزارش و در بخش نوار ابزار روی Activex control (چکش و آچار) کلیک کنید و از لیست ActiveLabelComponent.ActiveLabel رو انتخاب کنید و یه Label رسم کنید
امیدوارم این ابزار مفید باشه
راستی یادتون نره که فایل ActiveLabel.ocx باید به همراه برنامه شما در کامپیوتر مورد نظر رجیستر بشه