Бред компьютерного маньяка

понедельник, 18 апреля 2011 г.

HP 1018: муар справа от напечатанных символов

Итак, очередная проблема и ее победа.
Имеем лазерный принтер HP 1018
И проблему:

Словами это можно описать так - "смещение(муар,двоение) части напечатанного символа(изображения,буквы) вправо.
Читать подробнее в моем блоге по ремонту принтеров

воскресенье, 17 апреля 2011 г.

Узнать количество записей в фильтрованном Dataset в Lazarus.

procedure TFmMain.Button1Click(Sender: TObject);
var
cnt: Integer;
bmk: TBookmark;
begin
inherited;
DbGrid1.DataSource.DataSet.DisableControls; // Это - датасет грида
cnt := 0;
bmk := DbGrid1.DataSource.DataSet.GetBookmark; // Запомнили позицию
try // Считаем
DbGrid1.DataSource.DataSet.First;
while not FmMain.ListKvit.DataSource.DataSet.Eof do
begin
Inc(cnt);
DbGrid1.DataSource.DataSet.Next;
end;
DbGrid1.DataSource.DataSet.GotoBookmark(bmk); // Вернулись
finally
DbGrid1.DataSource.DataSet.FreeBookmark(bmk);
DbGrid1.DataSource.DataSet.EnableControls;
end;
ShowMessage('Всего записей = ' + IntToStr(cnt));
end;

четверг, 14 апреля 2011 г.

SQLIte подмена значений при выборке

Столкнулся с проблемой подменять значения непосредственно при выборке.
Первым вариантом было использовать оператор:

IIF( expression, true-value1, false-value )

Но тут же обнаружилось что для SQLite этот метод не подходит. Порывшись в документации обнаружил аналог данной функции:

case ПОЛЕ when ЗНАЧЕНИЕ1 then ''НА ЧТО ЗАМЕНИЛИ'' when ЗНАЧЕНИЕ2 then ''НА ЧТО ЗАМЕНИЛИ2'' end

Тут же приведу пример как использовать:

select Number,tDate,tChto,tSerial,tChtoInd,tSerialInd,tTelefon, case tSost when 0 then ''У Мастера'' when 1 then ''Готово'' when 2 then ''Выдано'' end as tSost,tSum,tOplat,tRemark from kvit;

вторник, 5 апреля 2011 г.

Samsung scx-4100/SCX-4200: смещение копии при ручной подаче

Ввиду аналогичности аппаратов данный пост будет актуален для Samsung SCX-4100/SCX-4200/SCX-4220/Xerox 3119
При заборе с нижнего лотка заполнение листа полное, при подаче с лотка ручной подачи аппарат печатает на второй части листа верхнюю часть копии.
подробнее в моем блоге по ремонту принтеров.

воскресенье, 3 апреля 2011 г.

Еще один сборник карт в копилку

Еще один отличный ресурс-сборник карт разного типа.
Здесь вы сможете скачать бесплатно топографические карты, карты автомобильных дорог.
http://rus-map.ru/

понедельник, 18 апреля 2011 г.