ΠΕΡΙΚΛΗ ΘΩΙΔΗ blog

Βγάλε από την ψυχή σου λόγια να ακουστούν

Ναζισμός

Την ιστορία την ξεύρεις καλά. Όλα ξεκίνησαν μέσα στο χάος και την οικονομική δυσπραγία που επέβαλαν οι δυτικοί στην ηττημένη Γερμανία μετά το τέλος του Α’ Παγκοσμίου Πολέμου. Η υψηλή ανεργία, η ανέχεια και η απόγνωση των λαϊκών τάξεων αποτέλεσε το πρόσφορο έδαφος για την ανάδειξη του Χίτλερ και την ευρεία υποστήριξη των επιχειρημάτων του: μειονότητες όπως οι Εβραίοι μας κατατρώνε τον πλούτο, η ανωτερότητα της φυλής μας αποδεικνύεται από τη λαμπρή ιστορία μας, όλοι οι υπόλοιποι λαοί είναι φυλετικά κατώτεροι και άρα θα πρέπει να παταχθούν, οι πολιτικοί είναι διεφθαρμένοι και αναποτελεσματικοί, η βία κατά πάντων είναι δικαιολογημένη όταν ενδύεται το μανδύα του εθνικού συμφέροντος, χρησιμοποιούμε τη δημοκρατία για να επιβάλουμε τον ολοκληρωτισμό.

Εξοχο κείμενο από τον Mario de Andrade

Εξοχο κείμενο από τον Mario de Andrade

(Ποιητή, συγγραφέα, δοκιμιογράφο και μουσικολόγο από τη Βραζιλία).

  • «Μέτρησα τα χρόνια μου και συνειδητοποίησα, ότι μου υπολείπεται λιγότερος χρόνος ζωής  απ’ ότι έχω ζήσει έως τώρα…
  • Αισθάνομαι όπως αυτό το παιδάκι που κέρδισε μια σακούλα καραμέλες: τις πρώτες τις καταβρόχθισε με λαιμαργία αλλά όταν παρατήρησε ότι του απέμεναν λίγες, άρχισε να τις γεύεται με βαθιά απόλαυση.
  • Δεν έχω πια χρόνο για ατέρμονες συγκεντρώσεις όπου συζητούνται, καταστατικά, νόρμες, διαδικασίες και εσωτερικοί κανονισμοί, γνωρίζοντας ότι δε θα καταλήξει κανείς πουθενά.
  • Δεν έχω πια χρόνο για να ανέχομαι παράλογους ανθρώπους που παρά τη χρονολογική τους ηλικία, δεν έχουν μεγαλώσει.
  • Δεν έχω πια χρόνο για να λογομαχώ με μετριότητες.
  • Δε θέλω να βρίσκομαι σε συγκεντρώσεις όπου παρελαύνουν παραφουσκωμένοι εγωισμοί.
  • Δεν ανέχομαι τους χειριστικούς και τους καιροσκόπους.
  • Με ενοχλεί η ζήλια και όσοι προσπαθούν να υποτιμήσουν τους ικανότερους για να οικειοποιηθούν τη θέση τους, το ταλέντο τους και τα επιτεύγματα τους.
  • Μισώ, να είμαι μάρτυρας των ελαττωμάτων που γεννά η μάχη για ένα μεγαλοπρεπές αξίωμα. Οι άνθρωποι δεν συζητούν πια για το περιεχόμενο… μετά βίας για την επικεφαλίδα.
  • Ο χρόνος μου είναι λίγος για να συζητώ για τους τίτλους, τις επικεφαλίδες. Θέλω την ουσία,  η ψυχή μου βιάζεται…Μου μένουν λίγες καραμέλες στη σακούλα…
  • Θέλω να ζήσω δίπλα σε πρόσωπα με ανθρώπινη υπόσταση.
  • Που μπορούν να γελούν με τα λάθη τους.
  • Που δεν επαίρονται για το θρίαμβό τους.
  • Που δε θεωρούν τον εαυτό τους εκλεκτό, πριν από την ώρα τους.
  • Που δεν αποφεύγουν τις ευθύνες τους.
  • Που υπερασπίζονται την ανθρώπινη αξιοπρέπεια
  • Και που το μόνο που επιθυμούν είναι να βαδίζουν μαζί με την αλήθεια και την ειλικρίνεια.
  • Το ουσιώδες είναι αυτό που αξίζει τον κόπο στη ζωή.
  • Θέλω να περιτριγυρίζομαι από πρόσωπα που ξέρουν να αγγίζουν την καρδιά των ανθρώπων…
  • Άνθρωποι τους οποίους τα σκληρά χτυπήματα της ζωής τους δίδαξαν πως μεγαλώνει κανείς με απαλά αγγίγματα στην ψυχή.
  • Ναι, βιάζομαι, αλλά μόνο για να ζήσω με την ένταση που μόνο η ωριμότητα μπορεί να σου χαρίσει.
  • Σκοπεύω να μην πάει χαμένη καμιά από τις καραμέλες που μου απομένουν…Είμαι σίγουρος ότι ορισμένες θα είναι πιο νόστιμες απ’όσες έχω ήδη φάει.
  • Σκοπός μου είναι να φτάσω ως το τέλος ικανοποιημένος και σε ειρήνη με τη συνείδησή μου και τους αγαπημένους μου…»

Ευτυχία…

Όταν αναρωτιέσαι εάν ζεις καλά, ρίξε μία ματιά μπροστά σου (στο μέλλον που θέλεις), πέντε ματιές πίσω σου και κυρίως ΔΕΚΑ ματιές γύρω σου…

Δίδαγμα: Το ραγισμένο δοχείο

Μια γριά γυναίκα, Κινέζα, κουβαλούσε νερό με δύο μεγάλα δοχεία κρεμασμένα από τους ώμους της.

Το ένα δοχείο ήταν άψογο και  μετέφερε πάντα όλη την ποσότητα νερού που έπαιρνε.

Το άλλο είχε μια ρωγμή και στο τέλος της μακριάς διαδρομής από το ρυάκι στο σπίτι έφθανε μισοάδειο.

Έτσι για δύο ολόκληρα χρόνια η γριά κουβαλούσε καθημερινά μόνο ενάμισι δοχείο νερό στο σπίτι της.

Φυσικά το τέλειο δοχείο ένοιωθε υπερήφανο που εκπλήρωνε απόλυτα και τέλεια το σκοπό για τον οποίο είχε κατασκευαστεί.

Το ραγισμένο δοχείο ήταν δυστυχισμένο, που μόλις και μετά βίας μετέφερε τα μισά από αυτά που έπρεπε, ένοιωθε ντροπή για την ατέλειά του.

Ύστερα από δύο χρόνια δεν άντεχε πια την κατάσταση αυτή και αποφάσισε να μιλήσει στη γριά.

-Ντρέπομαι τόσο για τον εαυτό μου και θέλω να σου ζητήσω συγγνώμη!

-Μα γιατί; ρώτησε η γριά. Για ποιο λόγο νιώθεις ντροπή;

-Ε, να! Δύο χρόνια τώρα μεταφέρω μόνο το μισό νερό λόγω της ρωγμής μου και εξαιτίας μου κοπιάζεις άδικα κι εσύ!

Η γριά χαμογέλασε:

-Παρατήρησες ότι στο μονοπάτι υπάρχουν λουλούδια μόνο στη δική σου πλευρά και όχι στη μεριά του άλλου δοχείου;

Πρόσεξα την ατέλειά σου και την εκμεταλλεύτηκα. Φύτεψα σπόρους στην πλευρά σου και εσύ τους πότιζες.

Δύο χρόνια τώρα μαζεύω τα άνθη και στολίζω το τραπέζι μου, αν δεν ήσουν εσύ αυτή η ομορφιά δε θα λάμπρυνε το σπίτι μου!

Βέβαια δεν ήταν η ατέλεια του δοχείου που το έκανε ξεχωριστό αλλά η ιδιαίτερη ικανότητα της γυναίκας εκείνης να διακρίνει και να χρησιμοποιήσει την αδυναμία του.

Ο καθένας μας έχει τις «ρωγμές» του και τις «αδυναμίες» του που μπορούν ακόμη κι αυτές να γίνουν χρήσιμες και να ομορφύνουν τη ζωή μας.

Κάθε «ρωγμή» μπορεί να κάνει τη ζωή μας πιο πλούσια και πιο ενδιαφέρουσα, αρκεί να βρει κάποιος την ομορφιά που μπορεί να δώσει η ατέλειά μας.

«Ραγισμένοι» φίλοι, μην ξεχνάτε να σταματάτε στην άκρη του δρόμου και να απολαμβάνετε το άρωμα των λουλουδιών που φυτρώνουν στη μεριά σας.

Αν ο καθένας μας μετέτρεπε, σαν τη γριά γυναίκα της ιστορίας μας, τις ατέλειες του διπλανού του σε κάτι χρήσιμο και όμορφο, σίγουρα ο κόσμος μας θα ήταν καλύτερος!

Τι είναι ευτυχία;

Τι είναι Ευτυχία Θανάσης Βέγγος

Ηθικό Δίδαγμα (ατομισμός)

Ένα ποντικάκι κάποτε, παρατηρούσε από την τρυπούλα του τον αγρότη και τη γυναίκα του που ξεδίπλωναν ένα πακέτο. Τι λιχουδιά άραγε έκρυβε εκείνο το πακέτο; Αναρωτήθηκε.

Όταν οι δύο αγρότες άνοιξαν το πακέτο, δεν φαντάζεστε πόσο μεγάλο ήταν το σοκ που έπαθε, όταν διαπίστωσε πως επρόκειτο για μια ποντικοπαγίδα!

Τρέχει γρήγορα λοιπόν στον αχυρώνα για να ανακοινώσει το φοβερό νέο!:

-Μια ποντικοπαγίδα μέσα στο σπίτι! Μια ποντικοπαγίδα μέσα στο σπίτι!

Η κότα κακάρισε, έξυσε την πλάτη της και σηκώνοντας το λαιμό της είπε:

«Κύρ Ποντικέ μου, καταλαβαίνω πως αυτό αποτελεί πρόβλημα για σας. Αλλά δεν βλέπω να έχει καμιά επίπτωση σε μένα! Δε με ενοχλεί καθόλου εμένα η ποντικοπαγίδα στο σπίτι!»

Το ποντικάκι γύρισε τότε στο γουρούνι και του φώναξε:

«Έχει μια ποντικοπαγίδα στο σπίτι! Έχει μια ποντικοπαγίδα στο σπίτι!»

Το γουρούνι έδειξε συμπόνια αλλά απάντησε:

«Λυπάμαι πολύ κυρ ποντικέ μου, αλλά δεν μπορώ να κάνω τίποτα άλλο από το να προσευχηθώ. Να είσαι σίγουρος ότι θα το κάνω. Θα προσευχηθώ.»

Τότε το ποντίκι στράφηκε προς το βόδι και του φώναξε κρούοντας τον κώδωνα του κινδύνου:

«Έχει μια ποντικοπαγίδα στο σπίτι! Έχει μια ποντικοπαγίδα στο σπίτι!»

Και το βόδι απάντησε:

«Κοιτάξτε, κύριε ποντικέ μου, πολύ λυπάμαι για τον κίνδυνο που διατρέχεις, αλλά εμένα η ποντικοπαγίδα το μόνο που μπορεί να μου κάνει, είναι ένα τσιμπηματάκι στο δέρμα μου! »

Έτσι, ο καλός μας ποντικούλης, έφυγε με κατεβασμένο το κεφάλι, περίλυπος και απογοητευμένος γιατί θα έπρεπε ΜΟΝΟΣ ΤΟΥ, να αντιμετωπίσει τον κίνδυνο της ποντικοπαγίδας!

Την επόμενη νύχτα, ένας παράξενος θόρυβος, κάτι σαν το θόρυβο που κάνει η ποντικοπαγίδα όταν κλείνει, ξύπνησε τη γυναίκα του αγρότη που έτρεξε να δει τι συνέβη. Μέσα στη νύχτα όμως, δεν πρόσεξε πως στην παγίδα πιάστηκε από την ουρά ένα φίδι ….

Φοβισμένο το φίδι δάγκωσε τη γυναίκα.

Ο άντρας της έτρεξε γρήγορα και την πήγε στο νοσοκομείο. Αλλοίμονο όμως, την έφερε στο σπίτι με πολύ υψηλό πυρετό. Ο γιατρός τον συμβούλεψε να της κάνει ζεστές σουπίτσες..

Έτσι ο αγρότης *έσφαξε την κότα* για να κάνει μια καλή κοτόσουπα!

Η γυναίκα όμως πήγαινε από το κακό στο χειρότερο και όλοι οι γείτονες ερχόταν στη φάρμα να βοηθήσουν. Ο καθένας με τη σειρά του καθόταν στο προσκεφάλι της γυναίκας από ένα 8ωρο.

Για να τους ταΐσει όλους αυτούς ο αγρότης αναγκάστηκε να *σφάξει το γουρούνι*.

Τελικά όμως η γυναίκα δε τη γλύτωσε! Πέθανε! Στη κηδεία της ήρθε πάρα πολύς κόσμος, γιατί ήταν καλή γυναίκα και την αγαπούσαν όλοι.

Για να φιλοξενήσει όλον αυτόν τον κόσμο ο αγρότης αναγκάστηκε να *σφάξει το βόδι*
Ο κυρ Ποντικός μας, έβλεπε όλο αυτό το πήγαιν’έλα από την τρυπούλα του με πάρα πολύ μεγάλη θλίψη…….

ΤΑ ΣΥΜΠΕΡΑΣΜΑΤΑ ΕΙΝΑΙ ΠΩΣ:

Χάσαμε την ανθρωπιά μας. και ενισχύσαμε τον ατομισμό μας..!
όταν κάποιος δίπλα μας κινδυνεύει, βρισκόμαστε όλοι σε κίνδυνο!
είμαστε όλοι συνεπιβάτες σ’αυτό το πλοίο που λέγεται ζωή!
ο καθένας μας αποτελεί τον κρίκο της ίδιας αλυσίδας!
είμαστε σαν τις ίνες ενός υφάσματος.
Και αν ένα μέρος του υφάσματος χαλάσει, το ύφασμα είναι άχρηστο….

ΚΑΙ ΓΙΑ ΟΣΟΥΣ ΔΕΝ ΚΑΤΑΛΑΒΑΝ.

Εμείς είμαστε τα ποντικάκια..
Εμείς όμως είμαστε και οι κότες..
Εμείς και τα γουρούνια.
Εμείς και τα βόδια.

ΓΙ ΑΥΤΟ ΚΑΛΑ ΝΑ ΠΑΘΟΥΜΕ, ΓΙΑ ΝΑ ΜΑΘΟΥΜΕ ΠΩΣ.
Είναι αδύνατον να γελάμε, αν δεν γελάει ολόκληρη η γειτονιά.

Delphi 5 automation OpenOffice Calc

procedure TForm0.OpenOffice(Sender: TObject);
var desktop,document, oSheet, bookmark, textRange: OleVariant;
URL:String;
allBorders, aBorder:Variant;
i, row_print:integer;
begin
// must declare serviceManager like this
//  public
//    { Public declarations }
//    serviceManager:Variant;
serviceManager:= CreateOleObject(‘com.sun.star.ServiceManager’);
desktop:= serviceManager.createInstance(‘com.sun.star.frame.Desktop’);
Url :=’file:///’+extractFilePath(FileNameEdit1.FileName)+’D24.ods’; // Template
document:=Desktop.loadComponentFromURL(Url, ‘_blank’, 0, VarArrayCreate([0, 0], VarVariant));
//  oSheet := document.getSheets.getByIndex(0); // get the zero
oSheet := document.getSheets.getByName( ‘sname’ ); // get by name
DecimalSeparator:=’.’; // for use in greek language
DataPrint.tKrat_help.close;
DataPrint.tKrat_help.sql.Clear;
DataPrint.tKrat_help.sql.Add(‘Select * from krat2000’);
DataPrint.tKrat_help.open;
oSheet.getCellRangeByName(‘D6’).setString(dataprint.tconfig.FieldByname(‘cnf_yphresia’).asstring);
oSheet.getCellRangeByName(‘D7’).setString(dataprint.tconfig.FieldByname(‘cnf_ypol’).asstring);
oSheet.getCellRangeByName(‘C9′).setString(form32.mmistos.Text+’ ‘+form32.mhnas.Text+’ ‘+main.metos);
oSheet.getCellRangeByName(‘G9’).setString(HId.Text);
row_print:=12;
oSheet.getCellRangeByName(‘A12’).setString(‘1’);
for i:=1 to num_AP do begin
if DataPrint.TsSynola.FieldByNAme(‘AP’+strZero(i,2)).ascurrency<>0 then begin
tkae_apod.locate(‘name’,DataPrint.tKrat_Help.fieldByname(‘name’).asstring,[loCaseInsensitive, loPartialKey]);
if check_kae.checked then
oSheet.getCellRangeByName(‘B’+inttostr(row_print)).setString(mKae.Text)
else begin
oSheet.getCellRangeByName(‘B’+inttostr(row_print)).setString(tKae_apod.FieldByNAme(‘kae_xml’).asstring);
end;
oSheet.getCellRangeByName(‘C’+inttostr(row_print)).setString(tKae_apod.FieldByNAme(‘print_name’).asstring);
oSheet.getCellRangeByName(‘D’+inttostr(row_print)).setValue(DataPrint.TsSynola.FieldByNAme(‘AP’+strZero(i,2)).ascurrency);
oSheet.getCellRangeByName(‘D’+inttostr(row_print)).NumberFormat:=4;  //#.##0,00
row_print:=row_print+1;
end;
end;
oSheet.getCellRangeByName(‘B’+inttostr(row_print)+’:’+’C’+inttostr(row_print)).Merge(True);
oSheet.getCellRangeByName(‘B’+inttostr(row_print)).setString(‘sumary value’);
oSheet.getCellRangeByName(‘A’+inttostr(row_print)+’:’+’D’+inttostr(row_print)).Merge(True);
oSheet.getCellRangeByName(‘D’+inttostr(row_print)).setFormula(‘=sum(D12:D’+inttostr(row_print-1)+’)’);
row_print:=row_print+1;
oSheet.getCellRangeByName(‘B’+inttostr(row_print)).setString(‘Sum Sumary’);
oSheet.getCellRangeByName(‘B’+inttostr(row_print)+’:’+’C’+inttostr(row_print)).Merge(True);
oSheet.getCellRangeByName(‘D’+inttostr(row_print)).setFormula(‘=D’+inttostr(row_print-1));
oSheet.getCellRangeByName(‘A’+inttostr(row_print)+’:’+’D’+inttostr(row_print)).CharWeight := 150; // Bold
oSheet.getCellRangeByName(‘A12:’+’A’+inttostr(row_print-1)).Merge(True);
//  procedure for drawing borders
//  procedure oo_cell_Border(ooRange:string; ooTop,ooBottom,ooLeft,ooRight,ooVertical,ooHorizontal:integer; oSheet:OLEVariant);
oo_cell_Border(‘A12:A12’,50,50,50,50,50,50,oSheet);
oo_cell_Border(‘B12:D’+inttostr(row_print),50,50,50,50,50,50,oSheet);
DecimalSeparator:=’,’; // for use in greek language
end;
procedure TForm0.oo_cell_Border(ooRange:string; ooTop,ooBottom,ooLeft,ooRight,ooVertical,ooHorizontal:integer; oSheet:OLEVariant);
Var allBorders, aBorder: Variant;
begin
allBorders := oSheet.getCellRangeByName(oorange).TableBorder;
aBorder := allBorders.TopLine;
//aBorder.Color := clBlack ;
aBorder.OuterLineWidth := ooTop;
allBorders.TopLine := aBorder;
aBorder := allBorders.BottomLine;
//aBorder.Color := clBlack ;
aBorder.OuterLineWidth := ooBottom;
allBorders.BottomLine:= aBorder;
aBorder := allBorders.LeftLine;
//aBorder.Color := clBlack ;
aBorder.OuterLineWidth := ooLeft;
allBorders.LeftLine := aBorder;
aBorder := allBorders.RightLine;
//aBorder.Color := clBlack ;
aBorder.OuterLineWidth := ooRight;
allBorders.RightLine := aBorder;
aBorder := allBorders.VerticalLine;
aBorder.Color := 0;
aBorder.OuterLineWidth := ooVertical;
allBorders.VerticalLine := aBorder;
aBorder := allBorders.HorizontalLine;
aBorder.Color := 0;
aBorder.OuterLineWidth := ooHorizontal;
allBorders.HorizontalLine := aBorder;
allBorders.IsTopLineValid := True;
allBorders.IsBottomLineValid := True;
allBorders.IsLeftLineValid := True;
allBorders.IsRightLineValid := True;
allBorders.IsVerticalLineValid := True;
allBorders.IsHorizontalLineValid := True;
oSheet.getCellRangeByName(oorange).TableBorder:= allBorders;
end;

procedure TForm0.OpenOffice(Sender: TObject);var desktop,document, oSheet, bookmark, textRange: OleVariant;    URL:String;    allBorders, aBorder:Variant;    i, row_print:integer;begin
// must declare serviceManager like this//  public//    { Public declarations }//    serviceManager:Variant;
serviceManager:= CreateOleObject(‘com.sun.star.ServiceManager’);  desktop:= serviceManager.createInstance(‘com.sun.star.frame.Desktop’);  Url :=’file:///’+extractFilePath(FileNameEdit1.FileName)+’D24.ods’; // Template  document:=Desktop.loadComponentFromURL(Url, ‘_blank’, 0, VarArrayCreate([0, 0], VarVariant));
//  oSheet := document.getSheets.getByIndex(0); // get the zero  oSheet := document.getSheets.getByName( ‘sname’ ); // get by name
DecimalSeparator:=’.’; // for use in greek language
DataPrint.tKrat_help.close;  DataPrint.tKrat_help.sql.Clear;  DataPrint.tKrat_help.sql.Add(‘Select * from krat2000’);  DataPrint.tKrat_help.open;  oSheet.getCellRangeByName(‘D6’).setString(dataprint.tconfig.FieldByname(‘cnf_yphresia’).asstring);  oSheet.getCellRangeByName(‘D7’).setString(dataprint.tconfig.FieldByname(‘cnf_ypol’).asstring);  oSheet.getCellRangeByName(‘C9′).setString(form32.mmistos.Text+’ ‘+form32.mhnas.Text+’ ‘+main.metos);  oSheet.getCellRangeByName(‘G9’).setString(HId.Text);
row_print:=12;  oSheet.getCellRangeByName(‘A12’).setString(‘1’);  for i:=1 to num_AP do begin     if DataPrint.TsSynola.FieldByNAme(‘AP’+strZero(i,2)).ascurrency<>0 then begin        tkae_apod.locate(‘name’,DataPrint.tKrat_Help.fieldByname(‘name’).asstring,[loCaseInsensitive, loPartialKey]);        if check_kae.checked then             oSheet.getCellRangeByName(‘B’+inttostr(row_print)).setString(mKae.Text)        else begin           oSheet.getCellRangeByName(‘B’+inttostr(row_print)).setString(tKae_apod.FieldByNAme(‘kae_xml’).asstring);        end;
oSheet.getCellRangeByName(‘C’+inttostr(row_print)).setString(tKae_apod.FieldByNAme(‘print_name’).asstring);        oSheet.getCellRangeByName(‘D’+inttostr(row_print)).setValue(DataPrint.TsSynola.FieldByNAme(‘AP’+strZero(i,2)).ascurrency);        oSheet.getCellRangeByName(‘D’+inttostr(row_print)).NumberFormat:=4;  //#.##0,00        row_print:=row_print+1;     end;  end;  oSheet.getCellRangeByName(‘B’+inttostr(row_print)+’:’+’C’+inttostr(row_print)).Merge(True);  oSheet.getCellRangeByName(‘B’+inttostr(row_print)).setString(‘sumary value’);  oSheet.getCellRangeByName(‘A’+inttostr(row_print)+’:’+’D’+inttostr(row_print)).Merge(True);  oSheet.getCellRangeByName(‘D’+inttostr(row_print)).setFormula(‘=sum(D12:D’+inttostr(row_print-1)+’)’);  row_print:=row_print+1;
oSheet.getCellRangeByName(‘B’+inttostr(row_print)).setString(‘Sum Sumary’);  oSheet.getCellRangeByName(‘B’+inttostr(row_print)+’:’+’C’+inttostr(row_print)).Merge(True);  oSheet.getCellRangeByName(‘D’+inttostr(row_print)).setFormula(‘=D’+inttostr(row_print-1));  oSheet.getCellRangeByName(‘A’+inttostr(row_print)+’:’+’D’+inttostr(row_print)).CharWeight := 150; // Bold
oSheet.getCellRangeByName(‘A12:’+’A’+inttostr(row_print-1)).Merge(True);    //  procedure for drawing borders  //  procedure oo_cell_Border(ooRange:string; ooTop,ooBottom,ooLeft,ooRight,ooVertical,ooHorizontal:integer; oSheet:OLEVariant);  oo_cell_Border(‘A12:A12’,50,50,50,50,50,50,oSheet);     oo_cell_Border(‘B12:D’+inttostr(row_print),50,50,50,50,50,50,oSheet);

DecimalSeparator:=’,’; // for use in greek language
end;
procedure TForm0.oo_cell_Border(ooRange:string; ooTop,ooBottom,ooLeft,ooRight,ooVertical,ooHorizontal:integer; oSheet:OLEVariant);Var allBorders, aBorder: Variant;
begin  allBorders := oSheet.getCellRangeByName(oorange).TableBorder;
aBorder := allBorders.TopLine;  //aBorder.Color := clBlack ;  aBorder.OuterLineWidth := ooTop;  allBorders.TopLine := aBorder;
aBorder := allBorders.BottomLine;  //aBorder.Color := clBlack ;  aBorder.OuterLineWidth := ooBottom;  allBorders.BottomLine:= aBorder;
aBorder := allBorders.LeftLine;  //aBorder.Color := clBlack ;  aBorder.OuterLineWidth := ooLeft;  allBorders.LeftLine := aBorder;
aBorder := allBorders.RightLine;  //aBorder.Color := clBlack ;  aBorder.OuterLineWidth := ooRight;  allBorders.RightLine := aBorder;
aBorder := allBorders.VerticalLine;  aBorder.Color := 0;  aBorder.OuterLineWidth := ooVertical;  allBorders.VerticalLine := aBorder;
aBorder := allBorders.HorizontalLine;  aBorder.Color := 0;  aBorder.OuterLineWidth := ooHorizontal;  allBorders.HorizontalLine := aBorder;
allBorders.IsTopLineValid := True;  allBorders.IsBottomLineValid := True;  allBorders.IsLeftLineValid := True;  allBorders.IsRightLineValid := True;  allBorders.IsVerticalLineValid := True;  allBorders.IsHorizontalLineValid := True;
oSheet.getCellRangeByName(oorange).TableBorder:= allBorders;end;

!!!

Η μεγάλη ανανέωση του κόσμου δεν θα έρθει τη στιγμή που οι φτωχοί θα συμβιβαστούν με τη μοίρα τους,
αλλά τη στιγμή που οι πλούσιοι θ’ αρχίσουν να έχουν ηθικούς δισταγμούς για τη δική τους μοίρα!

Αλγόριθμος Ελέγχου ΑΜΚΑ

Ψάχνοντας για τον αλγόριθμο ελέγχου ορθότητα του ΑΜΚΑ βρήκα τον παρακάτω αλγόριθμο  τον εφάρμοσα  και δείχνει να δουλεύει άψογα.

2.1 Attachment Control Number (ACN) Check Digit Example
ID = 49927398716
The ACN consists of 11 numeric digits, with the last being the check digit.
Step 1:

4 9 9 2 7 3 9 8 7 1 6
x 2 x 2 x 2 x 2 x 2
18 4 6 16 2

Step 2:
4 + (1+8) + 9 + (4) + 7 + (6) + 9 + (1+6) + 7 + (2) + 6
Result: Sum = 70: The number is valid.
Note: The number is valid because 70 divided by 10 yields no remainder
(70 mod 10 = 0).


Xωρίς παράνομες διαφημιστικές πινακίδες

Xωρίς παράνομες διαφημιστικές πινακίδες

Έχουμε την βούληση να προστατέψουμε το αναφαίρετο δικαίωμα σου να απολαμβάνεις τον δημόσιο χώρο και να κυκλοφορείς σε αυτόν με ασφάλεια. Η διαδικτυακή σελίδα «χωρίς παράνομες διαφημιστικές πινακίδες» δημιουργήθηκε κατόπιν εντολής και με την άμεση επίβλεψη του Πρωθυπουργού και αποτελεί μέρος των δράσεων των συναρμόδιων υπουργείων για την οδική ασφάλεια.

Μέσα από αυτή την σελίδα μπορείς με την συμμετοχή σου να συμβάλλεις αποφασιστικά στην αποξήλωση των επικίνδυνων παράνομων διαφημιστικών πινακίδων.


Top
 
Μετάβαση σε γραμμή εργαλείων