25 decembrie 2008

Definiţia sarmalei

Vis înaripat al verzei ce-l avu cât a durat
somnul lung metamorfozic în butoiul de murat...
Potpuriu de porc și vacă, simfonia tocăturii,
imn de laudă mâncării înălțat în cerul gurii.

O cochetă care-și scaldă trupu-n sos și în smântână
și se înfășoară-n varză ca în valuri de cadână.
O abilă diplomată ce-a-ncheiat o strânsă ligă
c-o bărdacă de vin roșu și-un ceaun de mămăligă.

Oponentă din principiu și un strașnic adversar
pentru tot ce e dietă sau regim alimentar.
Un buchet de mirodenii, o frivolă parfumată
ce te-mbie cu mirosuri de slănină afumată.

Locatară principală ține-n spatiu tolerate
perle de piper picante, boabe de orez umflate.
O prozaică-înnăscută, cum s-o prinzi în prozodie
că de când, de când e lumea, porcul n-a citit o poezie.

Un aducător de sete, de bei vinul cu ocaua.
Iată-n câteva cuvinte cum s-ar defini sarmaua...

14 iulie 2008

Recomandare Chanel Insider: 6 unelte gratuite

La adresa această adresă, există o scurtă prezentare a şase unelte gratuite. Aş spune şi utile. În ordinea prezentării:
  • Crap Cleaner
  • AVG Free
  • Comodo FireWall
  • Glary Utilities
  • CD Burner
  • A-Squared Free

8 iulie 2008

AutoFitMergedCellRowHeight în Excel

Problemă: având mai multe celule Excel unite (merge cell), dacă lungimea şirului de caractere introduse depăşeşte lungimea celulei, înălţimea rândului nu se măreşte astfel încât să fie afişat întreg conţinutul celulei, chiar dacă opţiunea Wrap cell este activată.

La această adresă, se găseşte o soluţie care încearcă să rezolve această problemă: funcţia AutoFitMergedCellRowHeight().
Sub AutoFitMergedCellRowHeight()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
If ActiveCell.MergeCells Then
With ActiveCell.MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
CurrentRowHeight = .RowHeight
ActiveCellWidth = ActiveCell.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
Next
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
CurrentRowHeight, PossNewRowHeight)
End If
End With
End If
End Sub
Problema ce persista era aceea că după apăsarea tastei Enter şi selectarea celulei de sub cea curentă (conform setărilor implicite ale Excel), nu avea loc o redimensionare a înălţimii rândului pentru a se afişa toate caracterele din celula editată, fiind necesară o reselectare manuală a celulei respective, moment în care avea loc redimensionarea înălţimii rândului.

Am găsit soluţia după multe căutări Cry. Şi culmea e destul de simplu. La apelarea funcţiei, am forţat reselectarea celulei atribuind proprietăţii MoveAfterReturnDirection valoarea xlUp.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Run "AutoFitMergedCellRowHeight"
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlUp
Application.MoveAfterReturn = False
End Sub

20 mai 2008

Bine monşer!

Ei bine, după upgrade-ul făcut de la versiunea 7.01 la 8.04 Hardy Heron a lui Ubuntu Linux, pierdusem conexiunea wireless pe laptop. După ce te-ai obişnuit cu binele, e de-a dreptul frustrant...

Aşa încât, după căutări disperate pe diverse forumuri de discuţii, am găsit soluţia: pe blogul Ubuntu on Dell Inspiron 1501 la postul

Overview of Ubuntu 8.04 Hardy Heron on the Dell 1501


The Restricted Driver Manager can install the Broadcom B43 fireware. Firmware cutter will not work when used through the Driver Manager. In order to install B43-fwcutter you need to use the terminal. In a terminal type:
sudo apt-get install b43-fwcutter
Îi mulţumesc autorului...

26 aprilie 2008

Salut!

România... Țara mea frumoasă... aflată încă pe mâna canaliilor post-decembriste! Speranţa rămâne. În oameni ca Dan Puric. În loc de motto: