Dim Text ="العربية أكبر لغات المجموعة السامية من حيث عدد المتحدثين، وإحدى أكثر اللغات انتشارًا في العالم، يتحدثها أكثر من 422 مليون نسمة،1 ويتوزع متحدثوها في المنطقة المعروفة باسم الوطن العربي، بالإضافة إلى العديد من المناطق الأخرى المجاورة كالأحواز وتركيا وتشاد ومالي والسنغالوارتيرياوللغة العربية أهمية قصوى لدى أتباع الديانة الإسلامية، فهي لغة مصدري التشريع الأساسيين في الإسلام: القرآن، والأحاديث النبوية المروية عن النبي محمد، ولا تتم الصلاة في الإسلام (وعبادات أخرى) إلا بإتقان بعض من كلمات هذه اللغة. والعربية هي أيضًا لغة طقسية رئيسية لدى عدد من الكنائس المسيحية في العالم العربي، كما كتبت بها الكثير من أهم الأعمال الدينية والفكرية اليهودية في العصور الوسطى. وأثّر انتشار الإسلام، وتأسيسه دولًا، أرتفعت مكانة اللغة العربية، وأصبحت لغة السياسة والعلم والأدب لقرون طويلة في الأراضي التي حكمها المسلمون، وأثرت العربية، تأثيرًا مباشرًا أو غير مباشر على كثير من اللغات الأخرى في العالم الإسلامي، كالتركية والفارسية والأرديةوالالبانية واللغات الأفريقية الاخرى واللغات الأوروبية مثل الروسية والإنجليزية والفرنسية والأسبانية والايطالية والألمانية.كما انها تدرس بشكل رسمى او غير رسمى في الدول الاسلامية والدول الأفريقية المحادية للوطن العربى."
Dim ia =New ImageAlign(ImageAlignHorz.Left, ImageAlignVert.Top,True,True,False,False,False)
Dim bmp =New GcBitmap(pixelSize.Width, pixelSize.Height,True, dpi, dpi)
Using g = bmp.CreateGraphics(Color.White)
g.Renderer.Multithreaded =True
Dim tl = g.CreateTextLayout()
tl.FirstLineIndent =18
tl.ParagraphSpacing =6
tl.TextAlignment = TextAlignment.Justified
tl.RightToLeft =True
Dim fnt As GCTEXT.Font
Dim fpath = Path.Combine("Resources","Fonts","times.ttf")
If File.Exists(fpath)Then
fnt = GCTEXT.Font.FromFile(fpath)
Else
fnt = FontCollection.SystemFonts.FindFamilyName("Times New Roman")
EndIf
Dim tf =New TextFormat()With
{
.Font = fnt,
.FontSize =14
}
'' Repeat test text to fill a few columns
For i =0To3
tl.Append(Text, tf)
tl.AppendLine()
Next
'' Layout text in 3 columns
'' (The logic/code in this sample Is identical to JapaneseColumns
Const NCOLS =3
Dim margin =48.0F
Dim gap =24.0F
Dim colWid =(bmp.Width - margin *2- gap *(NCOLS -1))/ NCOLS
tl.MaxWidth = bmp.Width
tl.MaxHeight = bmp.Height
tl.MarginTop = margin
tl.MarginBottom = margin
tl.MarginRight = margin
tl.MarginLeft = margin +(colWid + gap)*(NCOLS -1)
'' We can specify arbitrary rectangles for the text to flow around.
'' In this case, we add 3 areas to draw some images:
Dim rect1 =New ObjectRect(bmp.Width - margin -315, margin,320,320)
Dim rect2 =New ObjectRect(margin +133, margin +80,177,133)
Dim rect3 =New ObjectRect(margin, bmp.Height - margin -400,400,385)
tl.ObjectRects =New List(Of ObjectRect)() From {rect1, rect2, rect3}
'' THE call: it calculates the glyphs needed To draw the text, And lays it out:
tl.PerformLayout(True)
For col =0To NCOLS -1
Dim nextcol =If(col < NCOLS -1, col +1,0)
'' TextSplitOptions tell TextLayout.Split() how to layout the remaining text.
'' In this case we advance from column to column by updating top And bottom margins: