- 2008
- Nov
- 24
Neve ‘08
E anche quest’anno vi annuncio l’arrivo della neve. Qualche centimetro di bianco che copre più o meno tutto oggi.
E’ stato difficile far riemergere la macchina per andare in ufficio, stamattina.
- 2008
- Nov
- 22
Tristezza
l’altro giorno ho visto un PC molto recente con Norton installato, aveva la stessa velocità di un 486
una pena mi faceva…
- 2008
- Nov
- 18
Tagliatelle panna, prosciutto e piselli
Ingredienti per 3 persone:
3 nidi di tagliatelle
1 scatola di pisellini
½ cipolla scarsa
1 cucchiaio di concentrato di pomodoro
1 panna da cucina
3 fette di prosciutto cotto
- macinare a coltello la ½ cipolla e soffriggere in padella con olio q.b. per coprire il fondo
- prima che dori aggiungere i pisellini già lavati nello scolapasta
- aggiungere il concentrato di pomodoro e aggiungere sale q.b.
- mentre i piselli cuociono a fuoco lento, portare ad ebollizione l’acqua (non salata) per la pasta
- preparare 3 fette di prosciutto tagliate a listarelle
scolare la pasta e saltare in padella aggiungendo 1/3 panna e 2 fette di prosciutto tagliate
servire in tavola aggiungendo un pizzico di panna a crudo e l’ultima fetta di prosciutto a listarelle.
Ricetta e Foto Lunarsat
- 2008
- Nov
- 14
Appunti: StarBasic
Questo pezzo di codice starbasic cerca in ogni slide di una presentazione Impress un riquadro di testo il cui contenuto inizi per “#”, se non lo trova, lo crea
oPages = thisComponent.DrawPages
for k=0 to oPages.count-1
oPage = oPages(k)
Dim oPos As new com.sun.star.awt.Point
Dim oSize As new com.sun.star.awt.Size
oSize.Width = 150
oSize.Height = 50
oPos.X = 0
oPos.Y = 0
dim oShape
foundshape=False
for z=0 to oPage.getCount()-1
obj=oPage.getByIndex(z)
if obj.ImplementationName="SvxShapeText" then
if left(oPage.getByIndex(z).getString(),1)="#" then
foundshape=True
oShape=oPage.getByIndex(z)
end if
end if
next
if not(foundshape) then
oShape = thisComponent.createInstance("com.sun.star.drawing.TextShape")
oPage.add(oShape)
oShape.setString("#slide"+trim(str(k)))
oShape.setPosition(oPos)
oShape.setSize(oSize)
end if
'qui oShape contiene il riferimento al riquadro trovato o creato nuovo
next
non l’ho provato, ma dovrebbe funzionare anche con documenti di Draw
E poi
Aggiunge una stringa in testa a un riquadro di testo, imposta perso e dimensione e aggiunge un “a capo”
oText=oTextShape.getText() oStart = oText.getStart() oStart.setString( "#"+nie_getRnd() ) oStart.CharWeight = com.sun.star.awt.FontWeight.NORMAL oStart.CharHeight = 12 oText.insertControlCharacter( oStart, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False )
