Fórum ComboBox em InputBox #357315
18/04/2008
0
Bom dia a todos.
Pesquisando na Internet encontrei um código para criar um ComboBox em uma InputBox.
Nesse código é usada uma função chamada GetCharSize.
Aqui está o código.
O código começou a ficar complicado para eu enteder da função GetTextExtentPoint para baixo.
Será que alguém poderia me explicar o que ocorre daí pra frente?
Pesquisando na Internet encontrei um código para criar um ComboBox em uma InputBox.
Nesse código é usada uma função chamada GetCharSize.
Aqui está o código.
function GetCharSize(Canvas: TCanvas): TPoint;
var
I: Integer;
Buffer: array[0..51] of Char;
begin
for I := 0 to 25 do
Buffer[I] := Chr(I + Ord(´A´));
for I := 0 to 25 do
Buffer[I + 26] := Chr(I + Ord(´a´));
GetTextExtentPoint(Canvas.Handle, Buffer, 52,
TSize(Result));
Result.X := Result.X div 52;
end;O código começou a ficar complicado para eu enteder da função GetTextExtentPoint para baixo.
Será que alguém poderia me explicar o que ocorre daí pra frente?
Jonathan Bispo
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)