Menjadi
kan item atau isi pada combobox menjadi dua (2) baris , bagar mana
caranya ? Pertama pada Properties ComboBox rubah Stylenya=csOwnerDrawVariable.
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var ItemString: string; begin TComboBox(Control).Canvas.FillRect(Rect); ItemString := TComboBox(Control).Items.Strings[Index]; DrawText(TComboBox(Control).Canvas.Handle, PChar(ItemString), - 1, Rect, DT_WORDBREAK); end; procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); var ItemString: string; MyRect: TRect; MyImage: TImage; MyCombo: TComboBox; begin // Don't waste time with this on Index = -1 if (Index > -1) then begin MyCombo := TComboBox(Control); // Create a temporary canvas to calculate the height MyImage := TImage.Create(MyCombo); try MyRect := MyCombo.ClientRect; ItemString := MyCombo.Items.Strings[Index]; MyImage.Canvas.Font := MyCombo.Font; // Calc. using this ComboBox's font size Height := DrawText(MyImage.Canvas.Handle, PChar(ItemString), - 1, MyRect, DT_CALCRECT or DT_WORDBREAK); finally MyImage.Free; end; end; end;
Title : Membuat Item ComboBox menjadi 2 Baris [Delphi]
Description : Menjadi kan item atau isi pada combobox menjadi dua (2) baris , bagar mana caranya ? Pertama pada Properties ComboBox rubah Stylenya=...
Description : Menjadi kan item atau isi pada combobox menjadi dua (2) baris , bagar mana caranya ? Pertama pada Properties ComboBox rubah Stylenya=...
0 Response to "Membuat Item ComboBox menjadi 2 Baris [Delphi]"
Post a Comment