본문 바로가기

Developist

Delphi/꿀팁 TcxGrid에서 조건에 따라 셀병합 하기(Vertical) TcxGrid에 컬럼을 추가하고, Column이벤트에서 OnCompareValuesForCellMerging을 추가합니다. procedure TForm1.cxGridColumn1CompareValuesForCellMerging(Sender: TcxGridColumn; Aproperties1: TcxCustomEditProperties; const AValue1: Variant; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); begin if AValue1 = AValue2 then //셀을 합칠 조건을 설정합니다. AAreEqual := True; //셀 병합 end;
Delphi/꿀팁 TcxGrid에서 특정 Cell에서 마우스 포인터 바꾸기 procedure TForm1.cxGridTableViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var AGridSite: TcxGridSite; AGridView: TcxGridTableView; AHitTest: TcxCustomGridHitTest; begin AGridSite := Sender as TcxGridSite; AGridView := AGridSite.GridView as TcxGridTableView; AHitTest := AGridView.GetHitTest(X, Y); //탐지를 원하는 특정 셀 if (AHitTest is TcxGridRecordCellHitTest) and ((AHitTest as TcxG..
Delphi/꿀팁 모니터 해상도 변경하기 var DeviceMode: TDeviceMode; DisplayDevice: TDisplayDevice; begin Result := False; ZeroMemory(@DisplayDevice, SizeOf(DisplayDevice)); DisplayDevice.cb := SizeOf(TDisplayDevice); //변경할 모니터의 인덱스로 모니터 여부 확인 if EnumDisplayDevices(nil, Index, DisplayDevice, 0) then begin ZeroMemory(@DeviceMode, SizeOf(DeviceMode)); DeviceMode.dmSize := SizeOf(TDeviceMode); DeviceMode.dmPelsWidth := Width; //변경할 가로 길이..

티스토리툴바