Вывести на канву раскладку клавиатуры

[phphel]

Здравствуйте, возникла какая-то глупая ошибка..
Не могу вьехать, вобщем, мне нужно на картинку шаблон, выводить название текущей раскладки клавиатуры.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   AklName: array [0..255] of Char;
   tmp:string;
begin
   GetLocaleInfo( LoWord(GetKeyboardLayout(0)),
   LOCALE_SABBREVLANGNAME,AklName,SizeOf(AklName));
   tmp:=LowerCase(string(AklName));
   tmp:=Copy(tmp, 0, 3);
   form1.Canvas.Font.style:=[fsBold];;
   form1.Canvas.TextOut(15, 3, tmp);
   caption:=tmp;
end;

Англ. показывается нормально, а русский нет, какой-то лишний символ в конце..

Мб это из-за несоответствия типов, char, string, вобщем прошу помощи.

P.S - подскажите, как можно рисовать текст через TextOut не только на битмап, но и к примеру на jpeg?

[phphel]

function AbbrByLocale(LocID: LCID): String;
var
  Size, Res: Integer;
  Buf: PChar;

begin
  Size := GetLocaleInfoA(LocID, LOCALE_SABBREVLANGNAME, nil, 0);
  GetMem(Buf, Size);
  try
    Res := GetLocaleInfoA(LocID, LOCALE_SABBREVLANGNAME, Buf, Size);
    if Res = Size then
      Result := Copy(String(Buf), 1, 3) 
    else
      Result := 'ERROR';
  finally
    FreeMem(Buf, Size);
  end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   form1.Canvas.Font.style:=[fsBold];;
   form1.Canvas.TextOut(15, 3, WideLowerCase(AbbrByLocale(LoWord(GetKeyboardLayout(0)))));
   caption:=LowerCase(AbbrByLocale(LoWord(GetKeyboardLayout(0))));
end;

Аналогчино...

[phphel]

Kороче получилось через paintbox, но почему я не вьеду, может кто-то обьяснит?)
Английский то нормально рисуется..

[Serge_Bliznykov]

дык, остаются следы от старой надписи (шрифт не моноширный - ширина буковок разная,
разная, соответственно, и длина надписи получается..

попробуйте очищать место перед выводом...

begin
   form1.Canvas.Font.style:=[fsBold];

   // удалим сначала старую надпись
   form1.Canvas.Brush.Style := bsSolid;
   form1.Canvas.Pen.Color := form1.Canvas.Brush.Color;
   form1.Canvas.Rectangle(15,3,
       15+form1.Canvas.TextWidth('ENU'),3+form1.Canvas.TextHeight('ENU'));

   form1.Canvas.TextOut(15, 3, WideLowerCase(AbbrByLocale(LoWord(GetKeyboardLayout(0)))));
   caption:=LowerCase(AbbrByLocale(LoWord(GetKeyboardLayout(0))));
end;

[phphel]

Serge_Bliznykov, разобрался, благодарю.

А со вторым вопросом не поможете?

[Пепел Феникса]

сразу на жпег рисовать нельзя.
сначало грузите через JPEGImage потом переводите в битмап, его изменяете и через JPEGImage сохраняете обратно.

[phphel]

Ну такой способ я знаю)
Думал, что можно более красиво, ладно, еще раз спасибо.
Тема не актуальна.

[Пепел Феникса]

JPEG в первую очередь способ хранения данных, а не для отображения на экране.