From 04ea50d7507dcc1a694dc3ee3022119d35223222 Mon Sep 17 00:00:00 2001 From: gambas Date: Fri, 26 Oct 2018 03:32:46 +0200 Subject: [PATCH] The toplevel AUTHORS file now contains the list of all Gambas authors. [CONFIGURATION] * NEW: The toplevel AUTHORS file now contains the list of all Gambas authors. [DEVELOPMENT ENVIRONMENT] * NEW: Remove the 'authors.txt' file and use a symbolic link on the toplevel AUTHORS files instead. --- AUTHORS | 274 ++++++++++++++++++++++ app/src/gambas3/.src/Welcome/FAbout.class | 111 +++++---- 2 files changed, 340 insertions(+), 45 deletions(-) diff --git a/AUTHORS b/AUTHORS index e69de29bb..3b750e21a 100644 --- a/AUTHORS +++ b/AUTHORS @@ -0,0 +1,274 @@ +# +# GAMBAS AUTHORS FILE +# +# This file should list all people that have written code or done translations for Gambas. +# If you want to add or fix anything, please write on the mailing-list. +# I apologize by advance for any mistake or omission. +# +# The format of that file is the following: +# +# [Name of the author] ([Country]) <[mail address]> +# [Description in Gambas markup syntax] +# ... +# +# [Name of another author] ({Country]) <[mail address]> +# [Description in Gambas markup syntax] +# ... +# +# Void lines and line beginning with '#' are ignored. +# + +Fabien Bodard (France) + IDE file/project/picture selector and mascot redesign. + The reporting components. + The 'gb.chart' component. + The 'gb.map' component. + The 'gb.scanner' component. + +Nigel Gerrard (United Kingdom) + The [MySQL database driver](http://mysql.com) + The now deprecated QT extended component. + The old SQLite database driver. + +Paul Gardner-Stephen (Australia) + Porting Gambas on Solaris. + +Daniel Campos (Spain) + The networking component + The compression component + The old XML component + The GTK+ component. + The now deprecated VideoForLinux component + The PDF component. + Spanish translation. + +Carlos F. A. Paniago (Brazil) + Porting Gambas on FreeBSD. + +Rob Kudla (USA) + The old Gambas Wiki hosting. + Mandriva RPM packages maintainer. + The 'gb.pcre' component. + +Ronald Onstenk (Netherlands) + The find list in the 1.0 Development Environnement + +Brandon Bergren (USA) + Porting Gambas on Cygwin. + +Laurent Carlier (France) + The SDL component. + The OpenGL component. + ArchLinux support. + +José L. Redrejo Rodríguez (Spain) + Let Gambas compile on all Debian architectures. + Allowed the Gambas IDE to make Debian packages. + Debian and Linex package maintainer. + Spanish translation. + +Andrea Bortolan (Italy) + The ODBC database driver. + +Ahmad Kamal + Arabic translation. + +Daif Al-Otaibi + Arabic translation. + +Dimitri Bellini (Italy) + Italian translation. + +Vincenzo Virgilio (Italy) + Italian translation. + +Maurizio Pozzobon (Italy) + Italian translation + +Jordi Sayol (Andorra) + Catalan translation + +Kazutaka Harada (Japan) + Japanese translation + +Yizhou He + Simplified Chinese translation. + +Knut Berg + Norwegian translation. + +Chunchi Lin + Traditional Chinese translation. + +Wojciech Saltarski (Poland) + Polish translation. + +Radoslav Dejanovic (Croatia) + Croatian translation. + +Luis Minero (Portugal) + Portuguese translation. + +Iuri Matias (Portugal) + Portuguese translation. + +Peter Cernoch (Czech Republic) + Czech translation. + +Nelson Ferraz + Brazilian Portuguese translation. + +Fermyno Gutierrez + Brazilian Portuguese translation. + +Ronald Onstenk (Netherlands) + Dutch translation. + +Fabrice Mous (Netherlands) + Dutch translation. + +Sergey Irupin (Russia) + Russian translation. + +Nima Mohammadi (Iran) + Farsi translation. + +Miha Ambroz + Slovenian translation. + +David Cendal Lago + Galician translation. + +Peter Landgren + Swedish translation. + +Marco Bauer (Germany) + German translation. + +Klaus-Peter Richter (Germany) + German translation. + +Fatih Asici (Turkey) + Turkish translation. + +Balázs Bárány + Hungarian translation. + +Kevin Donnelly + Welsh translation. + +Sahatma Petrus Dolok Marupa Siagian (Indonesia) + Indonesian translation. + +Rizky Tahara Shita + Indonesian translation + +Stefano Palmeri (Italy) + Italian translation. + +Alexander Kazancev (Russia) + Russian translation. + +Robert Rowe (USA) + Development environment enhancements. + +David Villalobos Cambronero (Costa Rica) + The 'gb.mysql' MySQL specific component. + Spanish translation. + +Peter Mathijssen + Dutch translation. + +Liang Wei (China) + Simplified Chinese translation. + +Philippe Séraphin (France) + IDE Packager wizard enhancements. + +Alexandros Prekates (Greece) + Greek translation. + +Pablo Mileti (Argentina) + GNUBoxWorld and Puzzle1To8 examples. + +Timothy Marshal-Nichols (United Kingdom) + PictureDatabase example. + Printing example. + +Jairo Alonso Badillo Bedoya (Columnia) + Concent game example. + +Gareth Bult (United Kingdom) + WebCam video example. + +Iman Karim (Germany) + Gravity example. + GameOfLife example. + +Stefan Lang (Germany) + German translation. + +Radek Fryšták (Czech Republic) + Czech translation. + +Mathias Ebermann (Germany) + German translation. + +Florin Iacob (Romania) + Romanian translation. + +Josef Kubíček (Czech Republic) + Czech translation. + +Regimantas Baublys (Lithuania) + Lithuanian translation. + +Edison Henrique Andreassy (Brazil) + Brazilian Portuguese translation. + +Randall Morgan + The 'gb.gsl' GNU Scientific Library component. + +Tobias Boege (Germany) + The 'gb.data' component. + The 'gb.inotify' component. + The 'gb.ncurses' component. + The 'gb.openssl' component. + +Adrien Prokopowicz (France) + The rewritten 'gb.xml' component. + The 'gb.xml.html' component. + +Emil Lenngren (Sweden) + The initial Just-In-Time compiler. + +Bruce Bruen (Australia) + IDE Packager wizard enhancements. + +Sebastian Kulesz + Spanish translation. + Gambas Debian/Ubuntu packaging. + The 'gb.logging' component. + The 'gb.memcached' component. + The 'gb.net.pop3' component. + +Paul Wheeler (USA) + English Grammar Check & Clarifications to Wiki entries. + +Willy Raets (Netherlands) + Dutch translation. + +Marcelo López (Argentina) + ODBC driver enhancements. + +Bastian Germann (Germany) + Cygwin package. + Debian package. + pkgsrc package. + Porting on NetBSD and OpenBSD. + Portability fixes for Cygwin. + +Benoît Minisini (France) + French translation. + Main developer. Did everything else... + diff --git a/app/src/gambas3/.src/Welcome/FAbout.class b/app/src/gambas3/.src/Welcome/FAbout.class index 4a66f6b3b..1a3415225 100644 --- a/app/src/gambas3/.src/Welcome/FAbout.class +++ b/app/src/gambas3/.src/Welcome/FAbout.class @@ -33,7 +33,7 @@ Public Sub _new() ' Dim hImage As Image ' Dim hBackground As Image - Me.Background = Color.SetAlpha(Color.TextBackground, 90) + Me.Background = Color.SetAlpha(Color.TextBackground, 30) 'hImage = Image.Load("img/background/tawhid.png") 'hBackground = New Image(hImage.W, hImage.H, Color.SetAlpha(Color.TextBackground, 160)) @@ -107,67 +107,83 @@ Private Sub FillAbout() Dim iPos As Integer Dim I As Integer Dim N As Integer + Dim sDesc As String - hFic = Open "authors.txt" + hFic = Open "AUTHORS" While Not Eof(hFic) Line Input #hFic, sLig + sLig = RTrim(sLig) If Not sLig Then Continue - If Left(sLig) = "-" Then Continue + If Left(sLig) = "#" Then Continue - sName = sLig - Line Input #hFic, sMail - Line Input #hFic, sCountry - - sText = "" - While Not Eof(hFic) - - Line Input #hFic, sLig - If Not sLig Then Continue - If Left(sLig) = "-" Then Break + If Not IsSpace(Left(sLig)) Then + + If sName Then aAuthor.Add(sName & "\n\n" & Html(sMail) & "\n" & sCountry & "\n" & sDesc) + + sName = Trim(sLig) + sMail = "" + sCountry = "" + sDesc = "" + + iPos = RInStr(sName, "<") + If iPos Then + sMail = Mid$(sName, iPos + 1) + If Right(sMail) = ">" Then sMail = Left(sMail, -1) + sName = Trim(Left(sName, iPos - 1)) + Endif + + iPos = RInStr(sName, "(") + If iPos Then + sCountry = Mid$(sName, iPos + 1) + If Right(sCountry) = ")" Then sCountry = Left(sCountry, -1) + sName = Trim(Left(sName, iPos - 1)) + Endif - sLig = RemoveLink(sLig) - If Right(sLig) <> "." Then sLig &= "." - sText &= sLig & "
" - - Wend - - If Right(sText, 4) = "
" Then sText = Left(sText, -4) - - aAuthor.Add(sName & "\n\n" & sMail & "\n" & sCountry & "\n" & sText) - - Wend - - Close #hFic - - hFic = Open "support.txt" - - While Not Eof(hFic) - - Line Input #hFic, sLig - iPos = InStr(sLig, " ") - If iPos = 0 Then Break - sName = Mid$(sLig, iPos + 1) - sText = sName & "\n" & Left(sLig, iPos - 1) - - iPos = aAuthor.Find(sName & "\n*", gb.Like) - If iPos < 0 Then - aAuthor.Add(sText) Else - aAuthor[iPos] = sText & Mid$(aAuthor[iPos], Len(sName) + 2) + + sLig = RemoveLink(Markdown.ToHTML(LTrim(sLig))) + If sLig Begins "

" Then sLig = Mid$(sLig, 4) + If sLig Ends "

" Then sLig = Left$(sLig, -4) + If sDesc Then sDesc &= "
" + sDesc &= sLig + Endif - + Wend + + If sName Then aAuthor.Add(sName & "\n\n" & sMail & "\n" & sCountry & "\n" & sDesc) Close #hFic + + ' hFic = Open "support.txt" + ' + ' While Not Eof(hFic) + ' + ' Line Input #hFic, sLig + ' iPos = InStr(sLig, " ") + ' If iPos = 0 Then Break + ' sName = Mid$(sLig, iPos + 1) + ' sText = sName & "\n" & Left(sLig, iPos - 1) + ' + ' iPos = aAuthor.Find(sName & "\n*", gb.Like) + ' If iPos < 0 Then + ' aAuthor.Add(sText) + ' Else + ' aAuthor[iPos] = sText & Mid$(aAuthor[iPos], Len(sName) + 2) + ' Endif + ' + ' Wend + ' + ' Close #hFic aAuthor.Sort(gb.Language + gb.IgnoreCase) gvwAbout.Columns.Count = 1 N = 6 - gvwAbout.Rows.Count = aAuthor.Count + N + gvwAbout.Rows.Count = aAuthor.Count + N + 1 gvwAbout.Columns[0].Width = Me.ClientWidth - Desktop.Scale * 6 gvwAbout.Padding = Desktop.Scale @@ -234,6 +250,9 @@ Private Sub FillAbout() 'gvwAbout.Rows[I + N].Height += Desktop.Scale Next + + ' Final space + gvwAbout.Rows[I + N].H = dwgAbout.H End @@ -255,7 +274,7 @@ Private Sub ScrollText(D As Integer) $aCache[2] = hImage Inc $YP - If ($YP * dwgAbout.H) >= gvwAbout.ScrollH Then $YP = 0 + If ($YP * dwgAbout.H) >= (gvwAbout.ScrollH - dwgAbout.H) Then $YP = 0 PaintAbout($aCache[2], $YP) @@ -264,7 +283,7 @@ Private Sub ScrollText(D As Integer) Else If D < 0 Then While $Y < 0 - + If $YP = 2 Then $Y = 0 Break @@ -278,6 +297,7 @@ Private Sub ScrollText(D As Integer) $aCache[0] = hImage Dec $YP + If $YP < 0 Then $YP = gvwAbout.ScrollH \ dwgAbout.H - 1 PaintAbout($aCache[0], $YP - 2) Wend @@ -319,6 +339,7 @@ End Private Sub PaintAbout(hImage As Image, iPos As Integer) gvwAbout.Move(Me.ClientW, 0, dwgAbout.W, dwgAbout.H) + If iPos < 0 Then iPos += gvwAbout.ScrollH \ dwgAbout.H gvwAbout.Scroll(0, iPos * dwgAbout.H) hImage.Fill(Color.Transparent) Paint.Begin(hImage)